From: minima <minima>
Date: Fri, 22 Jun 2001 22:58:32 +0000 (+0000)
Subject: 2. fix stat/msg a bit more
X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=a38e5ea93005099bdd5486fda443595d20a26e13;p=spider.git

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
---

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^~";
 }