#!/usr/bin/perl
### ceilingreport.pl written 022806:1022 by BJP
###
### This script examines how many free PPs remain in each volume group.

@vgs=`lsvg -L`;
$hostName=`hostname`;
chomp($hostName);


foreach $i (@vgs)
{
        chomp($i);
        $numFree=`lsvg -L $i| grep FREE`;
        $numFree=~/PPs:/;
        $numFree=$';
        chomp($numFree);
        $numFree=~s/^\s+//g;
        print "CeilingReport (on $hostName): $i has $numFree PPs remaining.\n";
}