From: Dirk Koopman <djk@tobit.co.uk>
Date: Tue, 17 Jan 2012 21:48:36 +0000 (+0000)
Subject: put back some command debugging
X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=commitdiff_plain;h=34b7ed3f88da5b993281b7c1ee9af699e1b9b54b;p=spider.git

put back some command debugging

to do with cached/uncached commands
---

diff --git a/perl/DXCommandmode.pm b/perl/DXCommandmode.pm
index a27d8d30..be9d652f 100644
--- a/perl/DXCommandmode.pm
+++ b/perl/DXCommandmode.pm
@@ -795,7 +795,7 @@ sub find_cmd_name {
 		#we have compiled this subroutine already,
 		#it has not been updated on disk, nothing left to do
 		#print STDERR "already compiled $package->handler\n";
-		;
+		dbg("find_cmd_name: $package cached") if isdbg('command');
 	} else {
 
 		my $sub = readfilestr($filename);
diff --git a/perl/DXLogPrint.pm b/perl/DXLogPrint.pm
index c2843ed5..b16d69e4 100644
--- a/perl/DXLogPrint.pm
+++ b/perl/DXLogPrint.pm
@@ -33,7 +33,7 @@ sub print
 	my $to = shift || 10;
 	my $jdate = $fcb->unixtoj(shift);
 	my $pattern = shift;
-	my $who = uc shift;
+	my $who = shift;
 	my $search;
 	my @in;
 	my @out = ();
@@ -41,6 +41,8 @@ sub print
 	my $tot = $from + $to;
 	my $hint = "";
 	    
+	$who = uc $who if defined $who;
+	
 	if ($pattern) {
 		$hint = "m{\\Q$pattern\\E}i";
 	} else {
diff --git a/perl/Version.pm b/perl/Version.pm
index 8142a148..1fe16bbc 100644
--- a/perl/Version.pm
+++ b/perl/Version.pm
@@ -11,7 +11,7 @@ use vars qw($version $subversion $build $gitversion);
 
 $version = '1.56';
 $subversion = '0';
-$build = '16';
-$gitversion = 'fb8e4bc';
+$build = '17';
+$gitversion = '281b5d6';
 
 1;