hamradio/spider
1
0
Fork 0
mirror of git://scm.dxcluster.org/scm/spider synced 2024-09-21 07:47:10 +00:00
Code Issues Packages Projects Releases Wiki Activity

made non-existant commands return an error

Browse Source
This commit is contained in:
djk 1998-11-10 21:59:07 +00:00
parent a0cf638d2e
commit 6832157d99
1 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
perl/DXCommandmode.pm
View File

@ -124,7 +124,7 @@ sub normal
($path, $fcmd) = search($main::cmd, $cmd, "pl") if !$path || !$fcmd;
my $package = find_cmd_name($path, $fcmd);
@ans = (0, "Syserr: compile err on $package\n$@$errstr") if !$package ;
@ans = (0) if !$package ;
if ($package) {
my $c = qq{ \@ans = $package(\$self, \$args) };
@ -145,7 +145,7 @@ sub normal
} else {
shift @ans;
if (@ans > 0) {
$self->send($self->msg('e2', @ans));
$self->send($self->msg('e2'), @ans);
} else {
$self->send($self->msg('e1'));
}
@ -394,6 +394,7 @@ sub find_cmd_name {
my $fh = new FileHandle;
if (!open $fh, $filename) {
$errstr = "Syserr: can't open '$filename' $!";
return undef;
};
local $/ = undef;
my $sub = <$fh>;
@ -424,7 +425,6 @@ sub find_cmd_name {
print "\$\@ = $@";
$errstr = $@;
delete_package($package);
$package = undef;
} else {
#cache it unless we're cleaning out each time
$Cache{$package}{mtime} = $mtime;
@ -433,6 +433,7 @@ sub find_cmd_name {
#print Devel::Symdump->rnew($package)->as_string, $/;
$package = "DXCommandmode::$package" if $package;
$package = undef if $errstr;
return $package;
}