#!/usr/local/bin/perl -w
###########################################################
#  $Header: /SYS/SYSCMD/df.pl 1.0 2001-02-27  gpaul                          $
#
# Show MPE  Disk Space
#
#
###########################################################
#> START-FILE-DESC df.pl
#> OLDESC Show disk space for a specified node
#
#= Usage
#   Xeq perl.pub.perl '/SYS/SYSCMD/df.pl -format <G | S>'
#
#= Description
#
#    This script shows disk space in Gigabytes or Sectors from
#    DISCREE.PUB.SYS output
#
#= Author
#    Guy Paul
#    Hewlett-Packard Company
#    Boise, Idaho
#
#> END-FILE-DESC
#
###########################################################

$|=1;     # Set buffers to auto-flush
select (STDERR); $|=1;
select (STDOUT);

use Getopt::Long;
use strict;
use vars qw ($App_name
             $avail
             $config
             $FORMAT
             $gtotcfg
             $gtotuse
             $Hostname
             $i
             $inuse
             $ldev
             $opt_format
             @recs
             $tmpfile
             $totcfg
             $totuse
             $usage
             $volume
             $vslast
            );

$App_name = "df.pl" ;
$tmpfile = "/tmp/discfree.out";
$usage = "\n$App_name: Usage Error --- Valid options are:\n" .
         "  -format <G | S >\n\n";

#---------------------------------------------------
# Load options
#---------------------------------------------------

# Get the command line parameters

unless (GetOptions (
       "format=s",
       )) {
  print STDERR $usage;
  exit 2;
}

$FORMAT = $opt_format || "G";

#
# Get Hostname
#
require "POSIX.pm";
( undef, $Hostname, undef, undef, undef ) = &POSIX::uname() ;

#
# Get DISCFREE info and output to /tmp/diskfree.out
#
  system ("/SYS/PUB/DISCFREE c > $tmpfile");
  unless (open (DFILE, "$tmpfile")) {
    print "Cannot open $tmpfile for read: $!\n";
    exit 1;
  }

#
# Read thru /tmp/diskfree.out, extract volumeset,ldev, configured
# amount, inuse amount, and avail amount. Load info to @recs array.
#
  while (<DFILE>) {
    last if (/^TOTALS :/);
    if (/^LDEV/) {
      (undef, undef, $ldev) = split ;
      (undef, $volume) = split ('\(', $_);
      ($volume, undef) = split (':', $volume);
    } elsif (/^ Device/) {
      (undef, $config, $inuse) = split ('\|', $_);
      ($inuse, undef) = split ('\(', $inuse);
    } elsif (/^ Permanent/) {
      (undef, undef, undef, $avail) = split ('\|', $_);
      ($avail, undef) = split ('\(', $avail);
     $ldev = sprintf("%04d", $ldev);  # pad with zeroes for better sorting
     push (@recs,"$volume $ldev $config $inuse $avail");
    }
  }

  close DFILE;
  unlink $tmpfile;

@recs = sort @recs;   # sort the @recs array

 printf("  ldev   size utilization    -- ");

 if ($FORMAT eq 'S') {
  printf("To see data in gigabytes, type DF G\n");
 } else {
  printf("To see data in sectors, type DF S\n");
 }
 printf("\n        MPEXL_SYSTEM_VOLUME_SET -- %s\n", $Hostname);

#
# Display just the MPEXL_SYSTEM_VOLUME_SET information
#
#########################################################
  foreach (@recs) {
   ($volume, $ldev, $config, $inuse, $avail) = split;
   if ($volume eq 'MPEXL_SYSTEM_VOLUME_SET') {
    if ($FORMAT eq 'S') {
     printf("   %3d %6.2fMS", $ldev,$config / 1000000);
    } else {
     printf("   %3d %5.2fGB", $ldev,($config * 256) / 1073741824);
    }
    for ($i=0;$i<$inuse/$config*50;$i++) {
      printf("*");
    }
    for ($i=0;$i<($config-$inuse)/$config*50;$i++) {
      printf(".");
    }
      printf(" %3d%%\n",$inuse/$config*100);
      $totcfg += $config;
      $totuse += $inuse;
   }
 }

        $vslast = " ";

##############################################
#
# End of displaying MPEXL_SYSTEM_VOLUME_SET
#

#
# Output the sorted "non" MPEXL_SYSTEM_VOLUME_SET disks. Before
# each volume set break we will output the totals for the prior
# volume set as well and keep a grand total for later.
#
##################################################################

    foreach (@recs) {
     ($volume, $ldev, $config, $inuse, $avail) = split;
   if ($volume ne 'MPEXL_SYSTEM_VOLUME_SET') {
      if ($vslast ne $volume) {
        $vslast = $volume;
       if ($FORMAT eq 'S') {
        printf("\nvs_tot %6.2fMS",$totcfg / 1000000);
       } else {
        printf("\nvs_tot %5.2fGB",($totcfg * 256) / 1073741824);
       }

     for ($i=0;$i<$totuse/$totcfg*50;$i++) {
        printf("*");
      }
      for ($i=0;$i<($totcfg-$totuse)/$totcfg*50;$i++) {
        printf(".");
      }
        printf(" %3d%%\n",$totuse/$totcfg*100);
        printf("\n        %s -- %s\n",$volume, $Hostname);

        $gtotuse += $totuse;
        $gtotcfg += $totcfg;
        $totcfg = $totuse = 0;

      }
     if ($FORMAT eq 'S') {
      printf("   %3d %6.2fMS", $ldev,$config / 1000000);
     } else {
      printf("   %3d %5.2fGB", $ldev,($config * 256) / 1073741824);
     }
    for ($i=0;$i<$inuse/$config*50;$i++) {
      printf("*");
    }
    for ($i=0;$i<($config-$inuse)/$config*50;$i++) {
      printf(".");
    }
      printf(" %3d%%\n",$inuse/$config*100);
      $totcfg += $config;
      $totuse += $inuse;
   }
}
########################################################
#
# End of non MPEXL_SYSTEM_VOLUME_SET output
#

#
# Output the last volumeset totals and the grand totals
#
###########################################################

 if ($FORMAT eq 'S') {
     printf("\nvs_tot %6.2fMS",$totcfg / 1000000);
    } else {
     printf("\nvs_tot %5.2fGB",($totcfg * 256) / 1073741824);
    }

     for ($i=0;$i<$totuse/$totcfg*50;$i++) {
        printf("*");
      }
      for ($i=0;$i<($totcfg-$totuse)/$totcfg*50;$i++) {
        printf(".");
      }

      printf(" %3d%%\n",$totuse/$totcfg*100);
      $gtotuse += $totuse;
      $gtotcfg += $totcfg;

     if ($FORMAT eq 'S') {
     printf("\n   all %6.2fMS",$gtotcfg / 1000000);
    } else {
     printf("\n   all %5.2fGB",($gtotcfg * 256) / 1073741824);
    }

      for ($i=0;$i<$gtotuse/$gtotcfg*50;$i++) {
        printf("*");
      }
      for ($i=0;$i<($gtotcfg-$gtotuse)/$gtotcfg*50;$i++) {
        printf(".");
      }
        printf(" %3d%%\n\n",$gtotuse/$gtotcfg*100);

  unless (@recs) {
   print STDERR
     "*** Fatal error: Problem getting disk information from DISCFREE";

     exit 1;
  }

  exit;

  #
  # End of Main for df.pl
  #