#
# Copyright (c) 1998 - Dirk Koopman G1TLH
#
-# $Id$
+#
#
my ($self, $line) = @_;
# The fields are:- privilege level, full command name, short description
#
-$DB::single = 1;
+#$DB::single = 1;
my $defh = new IO::File;
$line =~ s{[^\w/]}{}g;
$line =~ s{/}{.*/}g;
$line =~ s/^\s+//g;
-$line =~ s/\s+$//g;
+$line =~ s/[\s\r]+$//g;
$line = "help" if $line =~ /^\s*$/;
# sort out aliases
foreach $in (<$h>) {
next if $in =~ /^\#/;
chomp $in;
+ $in =~ s/\r$//;
if ($in =~ /^===/) {
last if $state == 2; # come out on next command
$in =~ s/=== //;