support attribute cleanup for nice single value column

[gnt-info] / gnt-instance-mac-ip.pl

diff --git a/gnt-instance-mac-ip.pl b/gnt-instance-mac-ip.pl
index 0bb76b7..9fc0bf3 100755 (executable)
--- a/gnt-instance-mac-ip.pl
+++ b/gnt-instance-mac-ip.pl
@@ -13,10 +13,10 @@ while(<$in>) {
        $mac2ip_vlan->{$mac} = [ $ip, $vlan ];
 }
 
-open(my $gnt, '-|', qq{gnt-instance list --no-header --separator=' ' -o name,nic.macs,nic.bridges});
+open(my $gnt, '-|', qq{gnt-instance list --no-header --separator=' ' -o name,nic.macs,nic.bridges,tags});
 while(<$gnt>) {
        chomp;
-       my ( $name,$macs,$bridges ) = split(/\s/,$_);
+       my ( $name,$macs,$bridges,$tags ) = split(/\s/,$_,4);
        my @macs = split(/,/,$macs);
        my @br  = split(/,/,$bridges);
        for my $i ( 0 .. $#macs ) {
@@ -27,6 +27,8 @@ while(<$gnt>) {
                } else {
                        print "? ?";
                }
-               print "\n";
+               $tags =~ s/ganeti:watcher[^,]*,*//g;
+               $tags =~ s/ganetimgr://g;
+               print " $tags\n";
        }
 }