7. rewrote send so that an SB doesn't send a buckshee bull to NOPRIVATE!

[spider.git] / cmd / msg.pl

diff --git a/cmd/msg.pl b/cmd/msg.pl
index 0f68779b61d70803a34f4736a5607e2b7fe250af..36b75dc7a9f116a824b2f22e4a8a566d76a155cd 100644 (file)
--- a/cmd/msg.pl
+++ b/cmd/msg.pl
@@ -8,7 +8,7 @@
 #
 
 my ($self, $line) = @_;
-return (1, $self->msg('e5')) if $self->priv < 9;
+return (1, $self->msg('e5')) if $self->priv < 6;
 
 # a line is cmd, msgno, data 
 my @f = split /\s+/, $line, 3;
@@ -18,8 +18,8 @@ my $data;
 
 #$DB::single = 1;
 
-$cmd = shift @f if $f[0] =~ /^\w+$/;
-$msgno = shift @f if $f[0] =~ /^\d+$/;
+$cmd = shift @f if @f && $f[0] =~ /^\w+$/;
+$msgno = shift @f if @f && $f[0] =~ /^\d+$/;
 
 # handle queuing
 if ($cmd =~ /^qu/i && !$msgno) {