From: Martin Mares <mj@ucw.cz>
Date: Sat, 19 Jan 2013 19:15:57 +0000 (+0100)
Subject: bex prun: Even more debugging
X-Git-Tag: v3.1~4
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=178f59b99e71b19054c927d887fb673510dd252a;p=bex.git

bex prun: Even more debugging
---

diff --git a/lib/bin/bex-prun b/lib/bin/bex-prun
index ec573c1..755595c 100755
--- a/lib/bin/bex-prun
+++ b/lib/bin/bex-prun
@@ -31,7 +31,7 @@ AMEN
 GetOptions(
 	"q|queue=s" => \$queue_name,
 	"text!" => \$text_mode,
-	"debug!" => \$debug,
+	"debug+" => \$debug,
 	"debug-children!" => \$debug_children,
 	"p|parallel=i" => \$BEX::Config::max_parallel_jobs,
 	"help" => \&usage,
@@ -275,6 +275,7 @@ sub place_slot($) {
 			last;
 		}
 		my $rpri = $state_to_pri{$host_state{$r->{'Host'}}};
+		print STDERR "I: ... considering ", $r->{'Host'}, " (pri $rpri, lu ", $r->{'LastUpdate'}, ")\n" if $debug > 1;
 		next if $rpri > $pri;
 
 		if ($rpri < $bestpri ||