[uio-zabbix.git] / zabbix_get_vg_usedpercent.pl

#!/usr/bin/perl
use strict;

if (getpwuid($<) ne 'root') {
	print "This script must be run by root.\n";
	exit 1;
}
if ($#ARGV != 0) {
	print "Usage: $0 <name-of-volume-group>\n";
	exit 1;
}

open STDERR, ">/dev/null";

my $vg = $ARGV[0];
my $allvgs = `/usr/sbin/vgs --noheadings -o vg_name`;
unless (grep { $_ eq $vg } split /\s+/,$allvgs) {
	print "Unknown volume group.\n";
	exit;
}

my $free  = `/usr/sbin/vgs --noheadings -o vg_free_count $vg`;
my $total = `/usr/sbin/vgs --noheadings -o vg_extent_count $vg`;
printf "%.3f\n", 100-(($free/$total)*100);
Commit	Line	Data
bf778b9d ØH	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	}
552d9b72 ØH	12
	13	open STDERR, ">/dev/null";
	14
bf778b9d ØH	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
552d9b72	22	my $free = `/usr/sbin/vgs --noheadings -o vg_free_count $vg`;
bf778b9d	23	my $total = `/usr/sbin/vgs --noheadings -o vg_extent_count $vg`;
552d9b72	24	printf "%.3f\n", 100-(($free/$total)*100);