From: minima <minima>
Date: Tue, 9 Oct 2001 23:24:15 +0000 (+0000)
Subject: fix sending msgs to g1tlh-2 (and not to g1tlh, - and 2)
X-Git-Tag: R_1_49~47
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=6e8ea6c3fb2e0702e616a6553629905ca6ae22c1;p=spider.git

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

diff --git a/Changes b/Changes
index f32123d1..90b26c80 100644
--- 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 71cea2bc..9154d34b 100644
--- 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 77259d07..677888f8 100644
--- 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)$/ ) {