note
ccn
<code>
#!/usr/bin/perl -wlan
next if /OFFLINE/; # I want to only report the ones that have ONLINE
if ($F[0] eq 'B') {
push @{ $groups{ $F[1] } }, $F[2];
}
if ($F[0] eq 'G') {
print "$F[1] is frozen on hosts " . join ', ', @{ $groups{ $F[1] } };
}
</code>
798377
798377