fixed sh/c/n

[spider.git] / cmd / send.pl

diff --git a/cmd/send.pl b/cmd/send.pl
index 8667d0cc35edf80ae0e21ea4a088e469c9c37bfc..959a8101e531b957c9c9f364dd8f2397fcdebcbc 100644 (file)
--- a/cmd/send.pl
+++ b/cmd/send.pl
@@ -25,6 +25,9 @@ my $loc;
 if ($self->state eq "prompt") {
 
   my @f = split /\s+/, $line;
+
+  # any thing after send?
+  return (1, $self->msg('e6')) if !@f;
   
   $f[0] = uc $f[0];
   
@@ -52,7 +55,9 @@ if ($self->state eq "prompt") {
                                                          $main::systime, 
                                                          '1',  
                                                          $newsubj, 
-                                                         $main::mycall, $rr);
+                                                         $main::mycall,
+                                                         '0',
+                                                         $rr);
          my @list;
          my $from = $oref->from;
          my $to = $oref->to;
@@ -91,10 +96,9 @@ if ($self->state eq "prompt") {
   }
   
   # check we have some callsigns
-  if ($i  >  @f) {
+  if ($i  >=  @f) {
     delete $self->{loc};
-    #return (0, $self->msg('esend2'));
-    return (0, "need a callsign");
+       return (1, $self->msg('e6'));
   }
   
   # now save all the 'to' callsigns for later