+print CL " ".$smallname."_init();\n";
+
+sub generate_help_text {
+ my ($cn, $ch) = @_;
+
+ my %SUBS;
+
+ $SUBS{"COMMAND"} = $cn;
+ $SUBS{"UCOMMAND"} = uc($cn);
+
+ my %realsubs;
+ while(my ($key, $value) = each(%SUBS)) {
+ $key = '@'.quotemeta($key).'@';
+ $value = quotemeta($value);
+ $ch =~ s/$key/$value/g;
+ }