[Xen-devel] [OSSTEST PATCH 3/1] ts-hosts-allocate-Executive: Print more info about booking to main log

[Ian Jackson <ian.jackson@xxxxxxxxxxxxx>]

Signed-off-by: Ian Jackson <Ian.Jackson@xxxxxxxxxxxxx>
---
 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
Xen-devel@xxxxxxxxxxxxx
http://lists.xen.org/xen-devel