From ba97b5ce3899461ec8b630cc305c58eff36d301f Mon Sep 17 00:00:00 2001
From: minima <minima>
Date: Tue, 2 Oct 2001 16:57:40 +0000
Subject: [PATCH] fix @bbs syntax

---
 Changes       | 1 +
 cmd/send.pl   | 4 ++--
 perl/DXMsg.pm | 4 ++--
 3 files changed, 5 insertions(+), 4 deletions(-)

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
-- 
2.43.0