mg-hosts: -l: print subtask info too

Signed-off-by: Ian Jackson <ian.jackson@eu.citrix.com>

diff --git a/mg-allocate b/mg-allocate
index 2dfbdb14aaf4df0cff6a005c80e26f61099411db..4f02ce5d020cd1ef383446eda9923a880a373eb2 100755 (executable)
--- a/mg-allocate
+++ b/mg-allocate
@@ -612,13 +612,19 @@ END
                              qw(restype resname shareix));
            my $restype = $c->{restype};
            my $resname = $c->{resname};
+            my $prshare;
            if ($restype eq 'share-host') {
-               print "S/$resname";
+               $prshare = "S/$resname";
            } elsif ($restype eq 'host') {
-               print "$resname";
+               $prshare = "$resname";
            } elsif ($restype eq 'share-flight') {
-               print "F/$resname";
+               $prshare = "F/$resname";
            }
+            if ($c->{subtask}) {
+                printf "%-20s  %s", $prshare, $c->{subtask};
+            } else {
+                print $prshare;
+            }
            print "\n";
        }
         db_retry_abort();