fix sending msgs to g1tlh-2 (and not to g1tlh, - and 2)

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.
+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

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") {
 
-       my @f = split /\b/, $line;
+       my @f = split /([\s\@\$])/, $line;
        @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;
-       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)$/ ) {