From: minima Date: Tue, 2 Oct 2001 10:30:48 +0000 (+0000) Subject: fix a couple of sillies X-Git-Tag: R_1_49~88 X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=commitdiff_plain;h=cee25b44617748c623c45f20ff78eca71c3cdc7c;p=spider.git fix a couple of sillies --- diff --git a/cmd/stat/msg.pl b/cmd/stat/msg.pl index da4a7262..2b937d81 100644 --- a/cmd/stat/msg.pl +++ b/cmd/stat/msg.pl @@ -23,10 +23,11 @@ if (@list == 0) { $lines = @$lref if $lref; my $count = $ref->count; my $to = $ref->to; + my $from = $ref->from; my $lastt = $ref->lastt ? " Last Processed: " . cldatetime($ref->lastt) : ""; my $waitt = $ref->waitt ? " Waiting since: " . cldatetime($ref->waitt) : ""; - push @out, " $call -> $to msg: $msgno stream: $stream Count: $count Lines: $lines$lastt$waitt"; + push @out, "$from -> $to msg: $msgno stream: $stream Count: $count Lines: $lines$lastt$waitt"; } } else { foreach my $msgno (@list) { diff --git a/perl/DXMsg.pm b/perl/DXMsg.pm index 238bf1b3..fb9e962f 100644 --- a/perl/DXMsg.pm +++ b/perl/DXMsg.pm @@ -69,10 +69,10 @@ $importfn = "$msgdir/import"; # import directory to => '0,To', from => '0,From', t => '0,Msg Time,cldatetime', - private => '5,Private', + private => '5,Private,yesno', subject => '0,Subject', linesreq => '0,Lines per Gob', - rrreq => '5,Read Confirm', + rrreq => '5,Read Confirm,yesno', origin => '0,Origin', lines => '5,Data', stream => '9,Stream No',