mirror of
https://github.com/Cacti/cacti.git
synced 2026-10-28 23:57:30 +09:00
25 lines
550 B
Perl
25 lines
550 B
Perl
#!/usr/bin/env perl
|
|
|
|
delete @ENV{qw(PATH)};
|
|
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';
|
|
|
|
#
|
|
# Get the OS name
|
|
#
|
|
my $osname = "$^O";
|
|
|
|
if ($osname =~ 'freebsd') {
|
|
# FreeBSD have other parameters
|
|
$dfcmd="df -k -P $ARGV[0] | grep -v Filesystem |";
|
|
} else {
|
|
$dfcmd="df --block-size=1024 -P $ARGV[0] | grep -v Filesystem |";
|
|
}
|
|
|
|
open(PROCESS, $dfcmd);
|
|
foreach (<PROCESS>) {
|
|
if ($_ =~ /($ARGV[0])(.* )(.*[0-9])(.* )(.*[0-9])(.* )(.*[0-9])(.* )(.*[0-9])%(.* )/) {
|
|
print "megabytes:$7 percent:$9";
|
|
}
|
|
}
|
|
close(PROCESS);
|