Category: AIX
Author/Contact Info Bowie J. Poag (bpoag@comcast.net)
Description: CeilingReport is a simple Perl script that examines volume groups present on an AIX host, and reports how many free physical partitions remain in each. This is useful for system administration purposes, in that it gives you a heads-up when for when a volume group may need more storage given to it. 
#!/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 remai
+ning.\n";
}

Back to Code Catacombs