From 4cc67094baaf97c4d3d47aca73e2585c36a866eb Mon Sep 17 00:00:00 2001 From: djk Date: Fri, 4 Dec 1998 10:13:20 +0000 Subject: [PATCH] fixed bull problems properly --- perl/DXMsg.pm | 19 +++++++++++-------- 1 file changed, 11 insertions(+), 8 deletions(-) diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index d8096075..eacbf6fe 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -171,13 +171,17 @@ sub process # remove it from the work in progress vector # stuff it on the msg queue if ($ref->{lines} && @{$ref->{lines}} > 0) { # ignore messages with 0 lines - $ref->{msgno} = next_transno("Msgno") if !$ref->{file}; - push @{$ref->{gotit}}, $f[2]; # mark this up as being received - $ref->store($ref->{lines}); - add_dir($ref); - my $dxchan = DXChannel->get($ref->{to}); - $dxchan->send("New mail has arrived for you") if $dxchan; - Log('msg', "Message $ref->{msgno} from $ref->{from} received from $f[2] for $ref->{to}"); + if ($ref->{file}) { + $ref->store($ref->{lines}); + } else { + $ref->{msgno} = next_transno("Msgno"); + push @{$ref->{gotit}}, $f[2]; # mark this up as being received + $ref->store($ref->{lines}); + add_dir($ref); + my $dxchan = DXChannel->get($ref->{to}); + $dxchan->send("New mail has arrived for you") if $dxchan; + Log('msg', "Message $ref->{msgno} from $ref->{from} received from $f[2] for $ref->{to}"); + } } $ref->stop_msg($self); queue_msg(); @@ -286,7 +290,6 @@ sub store } else { confess "can't open file $ref->{to} $!"; } - # push @{$ref->{gotit}}, $ref->{fromnode} if $ref->{fromnode}; } else { # a normal message # attempt to open the message file -- 2.43.0