#!/usr/bin/perl
##
## LSLVMembers written 062306:1606 by BJP
##
## LSLVMembers displays what member hdisks belong to each logical volu
+me.
##


@lvList = split(/\s+/,`lsvg -o | lsvg -i -l | grep -v : | grep -v ^LV|
+ cut -d\" \" -f1`);


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

foreach $item (@lvList)
{
  print "LSLVMembers: \"$item\" encompasses ";

  @lvResults=split(/\s+/,`lslv -l $item`);

  $counter=0;
  $moreComing=0;


  $totalSize=@lvResults;

  while ($counter<=@lvResults)
  {

    if (($lvResults[$counter]=~/hdisk/  || $lvResults[$counter]=~/vpat
+h/) && $counter<$totalSize-5)
    {
      print "$lvResults[$counter], ";
      $moreComing++;
    }

    if (($lvResults[$counter]=~/hdisk/ || $lvResults[$counter]=~/vpath
+/) && $counter>($totalSize-5))
    {
      if ($moreComing>0)
      {
        print "and ";
      }

      print "$lvResults[$counter]. ";
    }

    $counter++;
  }

  print "\n";
}

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