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 51a48e5fc177c3f52ed8cc07737910982f44adb4..485284926ee24f76d83b6e2efc6de07065fc9af4 100644 (file)
--- 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 f8bed015e6ce84cceaae997a9aa66dc6f2e4ed6e..da4a726248cab01d9825682e2622bdab4d53e272 100644 (file)
--- 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 52d4d7281b6fee6744fc7fa957141a492f3bdd7d..95c1981359262202c5e255752327453540f640a7 100644 (file)
--- 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^~";
 }