#!/usr/bin/perl
##
## LSVGMembers written 062606:1051 by BJP
##
## LSVGMembers displays what logical volumes belong to each volume group on a system.
##

@vgList = `lsvg`;

print "\nLSVGMembers: Spinning up..\n";

foreach $item (@vgList)
{
  $counter=0;
  chomp($item);
  print "LSVGMembers: \"$item\" encompasses ";

  @vgMembers=split(/\s+/,`lsvg -l $item | grep -v POINT\$ | grep -v $item: | cut -d" " -f1`);

  foreach $lv (@vgMembers)
  {
    print "$lv"; 
    $counter++;  

    if ($counter<@vgMembers)
    {
      print ", ";
    }

    else
    {
      print ".";
    }

    if ($counter+1==@vgMembers)
    {
      print "and ";
    }
  }

  print "\n";
}

print "LSVGMembers: Spinning down..\n\n";