Files
cacti/scripts/3com_cable_modem.pl
T
Tony Roman 6c0cca5942 bug#0000656: Perl scripts using back ticks is not portable
git-svn-id: svn+ssh://repo.cacti.net/var/data/svnroot/cacti/branches/BRANCH_0_8_6/cacti@3439 860744bd-22fc-0310-8c96-e9fe5004b5ca
2005-12-21 02:56:49 +00:00

8 lines
197 B
Perl

#!/usr/bin/perl
open(PROCESS, "/bin/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;