X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXLogPrint.pm;fp=perl%2FDXLogPrint.pm;h=ded2f6186a783e27eb865a1eb02d1309efa2c308;hb=abbcfa7500858a2eba4135b0af5db9f3fca8d68e;hp=b16d69e4c055b38406c7a52c30972acea6f2900f;hpb=1eabcdd60799121b40f4d2ddb3b977fa0b2aeb94;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] ||= "";