X-Git-Url: http://gb7djk.dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2FDXProt.pm;fp=perl%2FDXProt.pm;h=d7e34e61e7c927dd23840b50a75dfe8cd0676718;hb=ed993b76a84e36b22efd1fc762d6a466497bcf7e;hp=9493637a87aef29912c66ebb217752b0fd543a02;hpb=abbcfa7500858a2eba4135b0af5db9f3fca8d68e;p=spider.git

diff --git a/perl/DXProt.pm b/perl/DXProt.pm
index 9493637a..d7e34e61 100644
--- a/perl/DXProt.pm
+++ b/perl/DXProt.pm
@@ -1231,6 +1231,7 @@ sub spawn_cmd
 				 }
 
 				 my @res = $cmdref->(@$args);
+#				 diffms("by $call 1", $line, $t0, scalar @res) if isdbg('chan');
 				 return @res;
 			 },
 #			 $args,
@@ -1260,7 +1261,7 @@ sub spawn_cmd
 						 $self->send(@res);
 					 }
 				 }
-				 DXCommandmode::_diffms($call, $line, $t0);
+				 diffms("rcmd from $user on $call", $line, $t0, scalar @res) if isdbg('chan');
 			 });
 	
 	return @out;