From 6e8ea6c3fb2e0702e616a6553629905ca6ae22c1 Mon Sep 17 00:00:00 2001 From: minima Date: Tue, 9 Oct 2001 23:24:15 +0000 Subject: [PATCH] fix sending msgs to g1tlh-2 (and not to g1tlh, - and 2) --- Changes | 1 + cmd/send.pl | 2 +- perl/DXMsg.pm | 2 +- 3 files changed, 3 insertions(+), 2 deletions(-) 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)$/ ) { -- 2.43.0