fix @bbs syntax

diff --git a/Changes b/Changes
index 1dd680fb9e3831369bb1c74bde25c982ba65d3e1..a87e9ec9d861166f664fb06b2437cfd2733470a1 100644 (file)
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@
 1. fixed the 'ever lengthening msg' syndrome and probably made the whole
 thing more reliable at the same time.
 2. do some restructuring of the msg system and upissue the version no.
+3. fix @xxxx syntax for bbs input
 01Oct01=======================================================================
 1. made login info not the default
 2. change the looping protoection for PC16/17/19/21 and also be more rigorous

diff --git a/cmd/send.pl b/cmd/send.pl
index a0a64ffad79713eda70783b4b199c2f1b9980352..d6e502cd4f1d82840335fe5bed9c1a1ec389adde 100644 (file)
--- a/cmd/send.pl
+++ b/cmd/send.pl
@@ -94,8 +94,8 @@ if ($self->state eq "prompt") {
                        $loc->{rrreq} = '1';
                } 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 origin
-                       $loc->{origin} = uc shift @f;
+               } elsif ($f eq '@' && @f) {       # this is bbs syntax, for send it 'to node'
+                       ;
                } 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 e66c1336e729637a92de745bf344bcd93fb09741..bd6118768f93011462fe834f997e266a7912d823 100644 (file)
--- a/perl/DXMsg.pm
+++ b/perl/DXMsg.pm
@@ -1224,8 +1224,8 @@ sub import_one
                        ;
                } elsif ($notincalls && ($f eq 'RR')) {
                        $rr = '1';
-               } elsif ($f eq '@' && @f) {       # this is bbs syntax, for origin
-                       $origin = uc shift @f;
+               } elsif ($f eq '@' && @f) {       # this is bbs syntax, for AT
+                       next;
                } elsif ($f eq '<' && @f) {     # this is bbs syntax  for from call
                        $from = uc shift @f;
                } elsif ($f =~ /^\$/) {     # this is bbs syntax  for a bid