From: minima Date: Wed, 3 Oct 2001 10:38:44 +0000 (+0000) Subject: 2. handle @gb7tlh.#35.eu type addresses as well X-Git-Tag: R_1_49~77 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=40310b181de51fd4917e74f4672aa31a5f255c34;p=spider.git 2. handle @gb7tlh.#35.eu type addresses as well --- diff --git a/Changes b/Changes index 19fe2f4f..99ef06d1 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,6 @@ 03Oct01======================================================================= 1. don't allow @WWW to become a 'TO' field... +2. handle @gb7tlh.#35.eu type addresses as well 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 3bc2a6b3..59b535f7 100644 --- a/cmd/send.pl +++ b/cmd/send.pl @@ -94,7 +94,7 @@ 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 send it 'to node' + } elsif (($f =~ /^[\@\.\#]$/ || $f eq '.#') && @f) { # this is bbs syntax, for send it 'to node' shift @f; } elsif ($f =~ /^\$/) { # this is bbs syntax for a bid next; diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index 5691b725..3d83359d 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -1224,7 +1224,7 @@ sub import_one ; } elsif ($notincalls && ($f eq 'RR')) { $rr = '1'; - } elsif ($f eq '@' && @f) { # this is bbs syntax, for AT + } elsif (($f =~ /^[\@\.\#]$/ || $f eq '.#') && @f) { # this is bbs syntax, for AT shift @f; } elsif ($f eq '<' && @f) { # this is bbs syntax for from call $from = uc shift @f;