MajorDoMo

Код: Выделить всё

#!/usr/bin/env perl
use strict;
use warnings;
use ZoneMinder;
use Switch;
use LWP::Simple;

$| = 1;

my @monitors;
my $dbh = zmDbConnect();
my $sql = "SELECT * FROM Monitors";
my $sth = $dbh->prepare_cached( $sql ) or die( "Can't prepare '$sql': ".$dbh->errstr() );
my $res = $sth->execute() or die( "Can't execute '$sql': ".$sth->errstr() );

while ( my $monitor = $sth->fetchrow_hashref() ) {
    push( @monitors, $monitor );
}

while (1) {
        foreach my $monitor (@monitors) {
                my $monitorState = zmGetMonitorState($monitor);
        sendState($monitor->{Id}, $monitor->{Name}, $monitorState);
        }
        sleep 1;
}

sub sendState {
        my ($monitor_id, $monitor_name, $state) = @_;
        my $time = localtime();
    my $url;

        switch ($state) {
                case 0 { $url = "http://192.168.1.103/objects/?script=test&monitorState=Idle&monitorStateId=0&monitorId=$monitor_id" }
                case 1 { $url = "http://192.168.1.103/objects/?script=test&monitorState=Prealarm&monitorStateId=1&monitorId=$monitor_id" }
                case 2 { $url = "http://192.168.1.103/objects/?script=test&monitorState=Alarm&monitorStateId=2&monitorId=$monitor_id" }
                case 3 { $url = "http://192.168.1.103/objects/?script=test&monitorState=Alert&monitorStateId=3&monitorId=$monitor_id" }
        }
        get($url);
}