From 40310b181de51fd4917e74f4672aa31a5f255c34 Mon Sep 17 00:00:00 2001 From: minima Date: Wed, 3 Oct 2001 10:38:44 +0000 Subject: [PATCH] 2. handle @gb7tlh.#35.eu type addresses as well --- Changes | 1 + cmd/send.pl | 2 +- perl/DXMsg.pm | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) 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; -- 2.43.0