make sure that @WWW is completely ignored

diff --git a/Changes b/Changes
index a87e9ec9d861166f664fb06b2437cfd2733470a1..19fe2f4f711d4f9c069c5fe179ed033d0b1dae4c 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+03Oct01=======================================================================
+1. don't allow @WWW to become a 'TO' field...
 02Oct01=======================================================================
 1. fixed the 'ever lengthening msg' syndrome and probably made the whole
 thing more reliable at the same time.

diff --git a/cmd/send.pl b/cmd/send.pl
index d6e502cd4f1d82840335fe5bed9c1a1ec389adde..c3ff858362d1db997fe71a5550cc33751b27ca5b 100644 (file)
--- a/cmd/send.pl
+++ b/cmd/send.pl
@@ -95,7 +95,7 @@ if ($self->state eq "prompt") {
                } elsif ($f eq '<' && @f) {     # this is bbs syntax  for from call
                        $loc->{from} = uc shift @f;
                } elsif ($f eq '@' && @f) {       # this is bbs syntax, for send it 'to node'
-                       ;
+                       shift @f;
                } elsif ($f =~ /^\$/) {     # this is bbs syntax  for a bid
                        next;
                } elsif ($f =~ /^<\S+/) {     # this is bbs syntax  for from call

diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm
index bd6118768f93011462fe834f997e266a7912d823..46280dfa32dddeeefddf1264de642b2c4a1860a9 100644 (file)
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -1225,7 +1225,7 @@ sub import_one
                } elsif ($notincalls && ($f eq 'RR')) {
                        $rr = '1';
                } elsif ($f eq '@' && @f) {       # this is bbs syntax, for AT
-                       next;
+                       shift @f;
                } elsif ($f eq '<' && @f) {     # this is bbs syntax  for from call
                        $from = uc shift @f;
                } elsif ($f =~ /^\$/) {     # this is bbs syntax  for a bid