Signed-off-by: Ian Jackson <[email protected]>
---
Osstest/Executive.pm | 12 +++++++++++-
1 file changed, 11 insertions(+), 1 deletion(-)
diff --git a/Osstest/Executive.pm b/Osstest/Executive.pm
index aeb8c25..3475862 100644
--- a/Osstest/Executive.pm
+++ b/Osstest/Executive.pm
@@ -743,9 +743,19 @@ sub alloc_resources {
}]);
if ($bookinglist && $ok!=-1) {
+ my %prstart;
+ foreach my $book (@{ $bookinglist->{Bookings} }) {
+ my $pr = $book->{Reso};
+ $pr .= " [$book->{Xinfo}]" if defined $book->{Xinfo};
+ push @{ $prstart{ $book->{Start }} }, $pr;
+ }
+ my $pr = '';
+ foreach my $start (sort { $a <=> $b } keys %prstart) {
+ $pr .= " \@$start @{ $prstart{$start} }";
+ }
my $jbookings= to_json($bookinglist);
chomp($jbookings);
- logm("resource allocation: booking.");
+ logm("resource allocation: booking$pr.");
$debugm->("bookings = ", $jbookings);
printf $qserv "book-resources %d\n", length $jbookings
--
1.7.10.4
_______________________________________________
Xen-devel mailing list
[email protected]
http://lists.xen.org/xen-devel
