X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=cmd%2Fsend.pl;h=959a8101e531b957c9c9f364dd8f2397fcdebcbc;hb=refs%2Ftags%2FR_1_7;hp=8667d0cc35edf80ae0e21ea4a088e469c9c37bfc;hpb=57b5e464bc44ae8eee23ab94c1f499f527595dc9;p=spider.git

diff --git a/cmd/send.pl b/cmd/send.pl
index 8667d0cc..959a8101 100644
--- 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