2. handle @gb7tlh.#35.eu type addresses as well

diff --git a/Changes b/Changes
index 19fe2f4f711d4f9c069c5fe179ed033d0b1dae4c..99ef06d142264ffac1310c8d8913274f6de0cf6d 100644 (file)
--- 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 3bc2a6b3498bdde9b94751272b7e20e3c2207a3e..59b535f73fae60da27fe6388345d4dfa9723752c 100644 (file)
--- 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 5691b725dbbda64231cef15696d5f48ea132cc69..3d83359d350e911eef0a374f4dc109c568e84d09 100644 (file)
--- 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;