ZoneMinder Forums

Code: Select all

#!/usr/bin/perl -wT

use Net::Ping;
use strict;
use DBI; 


my $db="zm";    ## NOMBRE BASE DE DATOS
my $tabla="Monitors";              ## NOMBRE DE TABLA
my $usuario="zmuser";   ## USUARIO
my $password="zmpass";  ## CONTRASENA

my $dbh=DBI->connect("dbi:mysql:$db",$usuario,$password);
my $sth = $dbh->prepare(qq{
 
SELECT  SUBSTRING_INDEX(SUBSTRING_INDEX( `Host` , '.', 4 ),"@",-1) AS Host FROM $tabla where Enabled = "1" 

});

$sth->execute();

while (my ($Host) = $sth->fetchrow_array() ){

my $p = Net::Ping->new();
 if ($p->ping($Host)) {

        print $Host." reachable\n";

        }
else {
        print  $Host." unreachable\n";

}
$p->close();
}

$sth->finish();
$dbh->disconnect();