altered wcy display a bit

diff --git a/Changes b/Changes
index f9fcf1a32802037af7962b92bd0e9d5922ac1b3e..1037946f798ea20721eeb755bb216e3c8ec14068 100644 (file)
--- a/Changes
+++ b/Changes
@@ -1,3 +1,5 @@
+27Nov00=======================================================================
+1. alter sh/wcy output slightly
 26Nov00=======================================================================
 1. made it possible for sysop calls to be used on other nodes and still have
 anti loop checking on PC16/17.

diff --git a/perl/WCY.pm b/perl/WCY.pm
index f3202dd4c7451dbe536385dd20a672bccffc37a2..06f41d2d9d394cc0348ea932977390d6c171d05e 100644 (file)
--- a/perl/WCY.pm
+++ b/perl/WCY.pm
@@ -195,7 +195,7 @@ sub print_item
        my $d = cldate($r->[0]);
        my $t = (gmtime($r->[0]))[2];
 
-       return sprintf("$d   %02d %5d %3d %3d   %3d %3d %-5s %-5s     %-3s <%s>", 
+       return sprintf("$d   %02d %5d %3d %3d   %3d %3d %-5s %-5s  %6s <%s>", 
                                    $t, @$r[1..9]);
 }