X-Git-Url: http://dxcluster.net/gitweb/gitweb.cgi?a=blobdiff_plain;f=perl%2Fcluster.pl;h=18460f14298a942753c7abba3025e892427ec4d6;hb=f11237c455a6440b5158206dcb2d03850ed1b7b0;hp=6dc3573ad5cde6312f58ccdaf2f462fdef3b7224;hpb=ed993b76a84e36b22efd1fc762d6a466497bcf7e;p=spider.git

diff --git a/perl/cluster.pl b/perl/cluster.pl
index 6dc3573a..18460f14 100755
--- a/perl/cluster.pl
+++ b/perl/cluster.pl
@@ -460,6 +460,9 @@ sub setup_start
 				my $desc = $repo->command_oneline(['describe', '--long'], STDERR => 0);
 				if ($desc) {
 					my ($v, $s, $b, $g) = $desc =~ /^([\d.]+)(?:\.(\d+))?-(\d+)-g([0-9a-f]+)/;
+					$s ||= '';
+					dbg("Git: $desc");
+					dbg("Git: V=$v S=$s B=$b g=$g");
 					$version = $v;
 					$build = $b || 0;
 					$gitversion = "$g\[r]";
@@ -637,8 +640,8 @@ our $io_disconnected;
 sub idle_loop
 {
 	BPQMsg::process();
-	DXCommandmode::process(); # process ongoing command mode stuff
-	DXProt::process();		# process ongoing ak1a pcxx stuff
+#	DXCommandmode::process(); # process ongoing command mode stuff
+#	DXProt::process();		# process ongoing ak1a pcxx stuff
 
 	if (defined &Local::process) {
 		eval {
@@ -683,6 +686,8 @@ sub per_sec
 		$systime_daystart = $days * 86400;
 	}
 	IsoTime::update($systime);
+	DXCommandmode::process(); # process ongoing command mode stuff
+	DXProt::process();		# process ongoing ak1a pcxx stuff
 	DXCron::process();      # do cron jobs
 	DXXml::process();
 	DXConnect::process();