-while (my $cn = shift @names2) {
- print CL " chanservremovecommand(\"".$cn."\", ".(shift @func2).");\n";
+ my $cl = $cmdlevels[$i];
+ if ($isalias) {
+ $cl .= " | " if ($cl ne "");
+ $cl .= "QCMD_ALIAS";
+ }
+
+ print CL " chanservaddcommand(\"".$cn."\", ".($cl).", ".($cmdargs[$i]).", ";
+ print CL ($cmdfunc[$i]).", \"".($cmddesc[$i])."\", \"".(generate_help_text($cn,$help[$i])),"\");\n";