mirror of
https://github.com/Cacti/cacti.git
synced 2026-10-23 03:27:02 +09:00
11 lines
297 B
Perl
11 lines
297 B
Perl
#!/usr/bin/env perl
|
|
|
|
delete @ENV{qw(PATH)};
|
|
$ENV{PATH} = '/usr/bin:/bin:/usr/sbin:/sbin:/usr/local/bin:/usr/local/sbin';
|
|
|
|
open(PROCESS, "bash -c 'wget --quiet -O - http://192.168.100.1/cgibin/opcfg | grep \"10.18.18.11\" -c' |");
|
|
$status = <PROCESS>;
|
|
close(PROCESS);
|
|
chomp $status;
|
|
print $status;
|