From: minima <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.org/gitweb/gitweb.cgi?p=spider.git;a=commitdiff_plain;h=cee25b44617748c623c45f20ff78eca71c3cdc7c

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