zabbix_get_vg_usedpercent.pl

   1 #!/usr/bin/perl
   2 use strict;
   3
   4 if (getpwuid($<) ne 'root') {
   5         print "This script must be run by root.\n";
   6         exit 1;
   7 }
   8 if ($#ARGV != 0) {
   9         print "Usage: $0 <name-of-volume-group>\n";
  10         exit 1;
  11 }
  12
  13 open STDERR, ">/dev/null";
  14
  15 my $vg = $ARGV[0];
  16 my $allvgs = `/usr/sbin/vgs --noheadings -o vg_name`;
  17 unless (grep { $_ eq $vg } split /\s+/,$allvgs) {
  18         print "Unknown volume group.\n";
  19         exit;
  20 }
  21
  22 my $free  = `/usr/sbin/vgs --noheadings -o vg_free_count $vg`;
  23 my $total = `/usr/sbin/vgs --noheadings -o vg_extent_count $vg`;
  24 printf "%.3f\n", 100-(($free/$total)*100);