projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
214add5
)
2. handle @gb7tlh.#35.eu type addresses as well
author
minima
<minima>
Wed, 3 Oct 2001 10:38:44 +0000
(10:38 +0000)
committer
minima
<minima>
Wed, 3 Oct 2001 10:38:44 +0000
(10:38 +0000)
Changes
patch
|
blob
|
history
cmd/send.pl
patch
|
blob
|
history
perl/DXMsg.pm
patch
|
blob
|
history
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...
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.
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;
$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;
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 ($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;
shift @f;
} elsif ($f eq '<' && @f) { # this is bbs syntax for from call
$from = uc shift @f;