projects
/
spider.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
407d9a8
)
fix sending msgs to g1tlh-2 (and not to g1tlh, - and 2)
author
minima
<minima>
Tue, 9 Oct 2001 23:24:15 +0000
(23:24 +0000)
committer
minima
<minima>
Tue, 9 Oct 2001 23:24:15 +0000
(23:24 +0000)
Changes
patch
|
blob
|
history
cmd/send.pl
patch
|
blob
|
history
perl/DXMsg.pm
patch
|
blob
|
history
diff --git
a/Changes
b/Changes
index f32123d106aef7cf455e1d6d549ac1f7564f41f1..90b26c80d3c53dae979a456aae78672511b4094e 100644
(file)
--- a/
Changes
+++ b/
Changes
@@
-16,6
+16,7
@@
the standard alias "expunge". This will cause the message to be deleted at
the next queue message cycle.
5. Put in prototype echo handling for direct connections using ExtMsg and
Listeners.pm.
the next queue message cycle.
5. Put in prototype echo handling for direct connections using ExtMsg and
Listeners.pm.
+6. fix msgs to g1tlh-2 (as opposed to g1tlh)
04Oct01=======================================================================
1. allow a residence time of (default) 2 days before actually deleting a msg.
2. reduce the number R: lines on a bull from a bbs to 2 (the origin and the
04Oct01=======================================================================
1. allow a residence time of (default) 2 days before actually deleting a msg.
2. reduce the number R: lines on a bull from a bbs to 2 (the origin and the
diff --git
a/cmd/send.pl
b/cmd/send.pl
index 71cea2bc7f7d0616ac8234516dcda53597e9069e..9154d34b6f8966edb3fd4760106abf54966ede4c 100644
(file)
--- a/
cmd/send.pl
+++ b/
cmd/send.pl
@@
-32,7
+32,7
@@
$loc->{rrreq} = '0';
if ($self->state eq "prompt") {
if ($self->state eq "prompt") {
- my @f = split /
\b
/, $line;
+ my @f = split /
([\s\@\$])
/, $line;
@f = map {s/\s+//g; length $_ ? $_ : ()} @f;
# any thing after send?
@f = map {s/\s+//g; length $_ ? $_ : ()} @f;
# any thing after send?
diff --git
a/perl/DXMsg.pm
b/perl/DXMsg.pm
index 77259d071ad2e18707ed5f32e79cbf669b675a35..677888f850948c490c9be43ebbc34abd7e30e49c 100644
(file)
--- a/
perl/DXMsg.pm
+++ b/
perl/DXMsg.pm
@@
-1237,7
+1237,7
@@
sub import_one
# first line;
my $line = shift @$ref;
# first line;
my $line = shift @$ref;
- my @f = split /
\b
/, $line;
+ my @f = split /
([\s\@\$])
/, $line;
@f = map {s/\s+//g; length $_ ? $_ : ()} @f;
unless (@f && $f[0] =~ /^(:?S|SP|SB|SEND)$/ ) {
@f = map {s/\s+//g; length $_ ? $_ : ()} @f;
unless (@f && $f[0] =~ /^(:?S|SP|SB|SEND)$/ ) {