From f04ec95fe999a857f0f0c9e08e0f0bfd808ada32 Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 3 Oct 2001 10:08:39 +0000 Subject: [PATCH] make sure that @WWW is completely ignored --- Changes | 2 ++ cmd/send.pl | 2 +- perl/DXMsg.pm | 2 +- 3 files changed, 4 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index a87e9ec9..19fe2f4f 100644 --- a/Changes +++ b/Changes @@ -1,3 +1,5 @@ +03Oct01======================================================================= +1. don't allow @WWW to become a 'TO' field... 02Oct01======================================================================= 1. fixed the 'ever lengthening msg' syndrome and probably made the whole thing more reliable at the same time. diff --git a/cmd/send.pl b/cmd/send.pl index d6e502cd..c3ff8583 100644 --- a/cmd/send.pl +++ b/cmd/send.pl @@ -95,7 +95,7 @@ if ($self->state eq "prompt") { } 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 send it 'to node' - ; + shift @f; } 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 bd611876..46280dfa 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -1225,7 +1225,7 @@ sub import_one } elsif ($notincalls && ($f eq 'RR')) { $rr = '1'; } elsif ($f eq '@' && @f) { # this is bbs syntax, for AT - next; + shift @f; } 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