From: 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.net/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