projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
ba97b5c
)
make sure that @WWW is completely ignored
author
minima
<minima>
Wed, 3 Oct 2001 10:08:39 +0000
(10:08 +0000)
committer
minima
<minima>
Wed, 3 Oct 2001 10:08:39 +0000
(10:08 +0000)
Changes
patch
|
blob
|
history
cmd/send.pl
patch
|
blob
|
history
perl/DXMsg.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index a87e9ec9d861166f664fb06b2437cfd2733470a1..19fe2f4f711d4f9c069c5fe179ed033d0b1dae4c 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-1,3
+1,5
@@
+03Oct01=======================================================================
+1. don't allow @WWW to become a 'TO' field...
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 d6e502cd4f1d82840335fe5bed9c1a1ec389adde..c3ff858362d1db997fe71a5550cc33751b27ca5b 100644
(file)
--- a/
cmd/send.pl
+++ b/
cmd/send.pl
@@
-95,7
+95,7
@@
if ($self->state eq "prompt") {
} 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 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'
- ;
+
shift @f
;
} elsif ($f =~ /^\$/) { # this is bbs syntax for a bid
next;
} elsif ($f =~ /^<\S+/) { # this is bbs syntax for from call
} elsif ($f =~ /^\$/) { # this is bbs syntax for a bid
next;
} elsif ($f =~ /^<\S+/) { # this is bbs syntax for from call
diff --git
a/perl/DXMsg.pm
b/perl/DXMsg.pm
index bd6118768f93011462fe834f997e266a7912d823..46280dfa32dddeeefddf1264de642b2c4a1860a9 100644
(file)
--- a/
perl/DXMsg.pm
+++ b/
perl/DXMsg.pm
@@
-1225,7
+1225,7
@@
sub import_one
} elsif ($notincalls && ($f eq 'RR')) {
$rr = '1';
} elsif ($f eq '@' && @f) { # this is bbs syntax, for AT
} elsif ($notincalls && ($f eq 'RR')) {
$rr = '1';
} elsif ($f eq '@' && @f) { # this is bbs syntax, for AT
-
next
;
+
shift @f
;
} elsif ($f eq '<' && @f) { # this is bbs syntax for from call
$from = uc shift @f;
} elsif ($f =~ /^\$/) { # this is bbs syntax for a bid
} elsif ($f eq '<' && @f) { # this is bbs syntax for from call
$from = uc shift @f;
} elsif ($f =~ /^\$/) { # this is bbs syntax for a bid