From 40310b181de51fd4917e74f4672aa31a5f255c34 Mon Sep 17 00:00:00 2001
From: minima <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