From a38e5ea93005099bdd5486fda443595d20a26e13 Mon Sep 17 00:00:00 2001 From: minima Date: Fri, 22 Jun 2001 22:58:32 +0000 Subject: [PATCH] 2. fix stat/msg a bit more 3. small change to PC28 generation to make sure that the subject always contains at least a blank --- Changes | 3 +++ cmd/stat/msg.pl | 7 +++++-- perl/DXProtout.pm | 1 + 3 files changed, 9 insertions(+), 2 deletions(-) diff --git a/Changes b/Changes index 51a48e5f..48528492 100644 --- a/Changes +++ b/Changes @@ -1,5 +1,8 @@ 21Jun01======================================================================= 1. fix (some) problems with 'init' +2. fix stat/msg a bit more +3. small change to PC28 generation to make sure that the subject always +contains at least a blank 16Jun01======================================================================= 1. fix talk 2. fix stat/msg diff --git a/cmd/stat/msg.pl b/cmd/stat/msg.pl index f8bed015..da4a7262 100644 --- a/cmd/stat/msg.pl +++ b/cmd/stat/msg.pl @@ -18,12 +18,15 @@ if (@list == 0) { foreach $ref (sort {$a->to cmp $b->to} DXMsg::get_all_busy) { my $msgno = $ref->msgno; my $stream = $ref->stream; - my $lines = scalar $ref->lines; + my $lref = $ref->lines; + my $lines = 0; + $lines = @$lref if $lref; my $count = $ref->count; + my $to = $ref->to; my $lastt = $ref->lastt ? " Last Processed: " . cldatetime($ref->lastt) : ""; my $waitt = $ref->waitt ? " Waiting since: " . cldatetime($ref->waitt) : ""; - push @out, " $call -> msg: $msgno stream: $stream Count: $count Lines: $lines$lastt$waitt"; + push @out, " $call -> $to msg: $msgno stream: $stream Count: $count Lines: $lines$lastt$waitt"; } } else { foreach my $msgno (@list) { diff --git a/perl/DXProtout.pm b/perl/DXProtout.pm index 52d4d728..95c19813 100644 --- a/perl/DXProtout.pm +++ b/perl/DXProtout.pm @@ -195,6 +195,7 @@ sub pc28 my $time = ztime($t); $private = $private ? '1' : '0'; $rr = $rr ? '1' : '0'; + $subject ||= ' '; return "PC28^$tonode^$fromnode^$to^$from^$date^$time^$private^$subject^ ^5^$rr^ ^$origin^~"; } -- 2.43.0