X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLogPrint.pm;h=ded2f6186a783e27eb865a1eb02d1309efa2c308;hb=65c97626719e49d6c8cc04669af4289dd00e8e94;hp=b16d69e4c055b38406c7a52c30972acea6f2900f;hpb=0ce79a125db0acb043fceaa641d8b3a9eae71a41;p=spider.git

diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index b16d69e4..ded2f618 100644
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -116,12 +116,13 @@ sub print_item
 	my $s = 'undef';
 	
 	if ($r->[1] eq 'rcmd') {
+		$r->[6] ||= 'Unknown';
 		if ($r->[2] eq 'in') {
 			$r->[5] ||= "";
-			$s = "$r->[4] (priv: $r->[3]) rcmd: $r->[5]";
+			$s = "in: $r->[4] ($r->[6] priv: $r->[3]) rcmd: $r->[5]";
 		} else {
 			$r->[4] ||= "";
-			$s = "$r->[3] reply: $r->[4]";
+			$s = "$r->[3] $r->[6] reply: $r->[4]";
 		}
 	} elsif ($r->[1] eq 'talk') {
 		$r->[5] ||= "";