From a38e5ea93005099bdd5486fda443595d20a26e13 Mon Sep 17 00:00:00 2001
From: minima <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.34.1