#!/opt/bin/perl

if (!$ARGV[0]) {
  print "shortdiscman <filename>\n";
  exit;
}

open(O, $ARGV[0]);


while ($l = <O>) {
  if ($l =~ /HBA Port/ || $l =~ /Device #/) {
     print "\n$l";
  } elsif ($l =~ /sw_PortNum/ ||
      $l =~ /sw_ipAddr/ || $l =~ /Parent:/ || $l =~ /Parent type/ ||
      $l =~ /LGroup/ || $l =~ /SerialNo/ || $l =~ /NodeWWN/ ) {
   print $l;
  }
}

print "\n";
close(O);
