From 763c7aa278e5e360e78a288fd3103caffb66c66a Mon Sep 17 00:00:00 2001
From: Donald Buczek <buczek@molgen.mpg.de>
Date: Thu, 29 Dec 2016 14:51:55 +0100
Subject: [PATCH] remove some debug relicts

---
 clusterd | 9 ---------
 1 file changed, 9 deletions(-)

diff --git a/clusterd b/clusterd
index 9b01eb3..151cc01 100755
--- a/clusterd
+++ b/clusterd
@@ -1314,7 +1314,6 @@ sub lsof_rx {
 	my ($host,$s,$pbufref,$olbufref)=@_;
 	my $data;
 	defined $s->recv($data,$TCP_MAX*2) or return;
-	#print "$host : received ",length($data),"\n";
 	if (!length($data)) {
 		close $s;
 		--$slave;
@@ -1325,12 +1324,9 @@ sub lsof_rx {
 	while (1) {
 		last if length($$pbufref)<2;
 		my $l=unpack('n',$$pbufref);
-		#print "$host : unpacked length $l\n";
 		last if length($$pbufref)<2+$l;
 		my $msg=substr($$pbufref,2,$l);
 		$$pbufref=substr($$pbufref,2+$l);
-		#print "$host : remaining pbuf length ",length($$pbufref),"\n";
-		#print "$host : message length ",length($msg),"\n";
 		lsof_msg($host,$s,$msg,$olbufref);
 	}
 	Donald::Select::reader_requeue();
@@ -1355,18 +1351,13 @@ sub cmd_rx {
 		exit $exit_value unless $slave;
 		return;
 	}
-	#print "$host received ".length($data),"\n";
 	$$pbufref.=$data;
 	while (1) {
 		last if length($$pbufref)<2;
 		my $l=unpack('n',$$pbufref);
-		#print "$host : unpacked length $l\n";
-		#die "$host: to long" if $l>1024;
 		last if length($$pbufref)<2+$l;
 		my $msg=substr($$pbufref,2,$l);
 		$$pbufref=substr($$pbufref,2+$l);
-		#print "$host : remaining pbuf length ",length($$pbufref),"\n";
-		#print "$host : message length ",length($msg),"\n";
 		cmd_msg($host,$s,$msg,$olbufref,$elbufref);
 	}
 	Donald::Select::reader_requeue();