X-Git-Url: http://dxcluster.org/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=290838f40557838a3f772c19c7aaf029a9b2bb7b;hb=d99e357e5203c7742b57c51b7c2dd103c1836c01;hp=bfd9bb094ba4655fb6313346688ae572b7f2110e;hpb=28ad9d9ee88ce029286e9dabe6ee9de40f8f0ae5;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index bfd9bb09..290838f4 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -61,13 +61,13 @@ use Filter;
 use Local;
 use Fcntl ':flock'; 
 
-use Carp;
+use Carp qw(cluck);
 
 package main;
 
 @inqueue = ();					# the main input queue, an array of hashes
 $systime = 0;					# the time now (in seconds)
-$version = "1.28";				# the version no of the software
+$version = "1.29";				# the version no of the software
 $starttime = 0;                 # the starting time of the cluster   
 $lockfn = "cluster.lock";       # lock file name
       
@@ -193,7 +193,10 @@ sub cease
 	DXUser::finish();
 	dbg('chan', "DXSpider version $version ended");
 	Log('cluster', "DXSpider V$version stopped");
+	dbgclose();
+	Logclose();
 	unlink $lockfn;
+#	$SIG{__WARN__} = $SIG{__DIE__} =  sub {my $a = shift; cluck($a); };
 	exit(0);
 }
 
@@ -221,8 +224,8 @@ sub process_inqueue
 	# translate any crappy characters into hex characters 
 	if ($line =~ /[\x00-\x06\x08\x0a-\x1f\x7f-\xff]/o) {
 		$line =~ s/([\x00-\x1f\x7f-\xff])/uc sprintf("%%%02x",ord($1))/eg;
-		dbg('chan', "<- $sort $call **CRAP**: $line");
-		return;
+#		dbg('chan', "<- $sort $call **CRAP**: $line");
+#		return;
 	}
 	
 	# do the really sexy console interface bit! (Who is going to do the TK interface then?)