From ba97b5ce3899461ec8b630cc305c58eff36d301f Mon Sep 17 00:00:00 2001 From: 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