From: minima <minima>
Date: Tue, 2 Oct 2001 16:57:40 +0000 (+0000)
Subject: fix @bbs syntax
X-Git-Tag: R_1_49~80
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=ba97b5ce3899461ec8b630cc305c58eff36d301f;p=spider.git

fix @bbs syntax
---

diff --git a/Changes b/Changes
index 1dd680fb..a87e9ec9 100644
--- 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 a0a64ffa..d6e502cd 100644
--- 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 e66c1336..bd611876 100644
--- 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