ZoneMinder Forums

Code: Select all

#!/usr/bin/perl -wT 
# 
# ========================================================================== 
# 
# ZoneMinder Panasonic IP Camera Control Script, $Date: 2006/05/08 12:37:48 $, $Revision: 1.5 $ 
# Copyright (C) 2003, 2004, 2005, 2006  Philip Coombes 
# 
# This program is free software; you can redistribute it and/or 
# modify it under the terms of the GNU General Public License 
# as published by the Free Software Foundation; either version 2 
# of the License, or (at your option) any later version. 
# 
# This program is distributed in the hope that it will be useful, 
# but WITHOUT ANY WARRANTY; without even the implied warranty of 
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the 
# GNU General Public License for more details. 
# 
# You should have received a copy of the GNU General Public License 
# along with this program; if not, write to the Free Software 
# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA. 
# 
# ========================================================================== 
# 
# This script continuously monitors the recorded events for the given 
# monitor and applies any filters which would delete and/or upload 
# matching events 
# 
# ==========================================================================
# 
# This control script was modified by Ian Macintosh to work with the Level1
# 1040 PTZ cameras.
# 
# August 2007
# 
# All care, no responsibility. ;-)
#
use strict; 

# ========================================================================== 
# 
# These are the elements you can edit to suit your installation 
# 
# ========================================================================== 

use constant DBG_ID => "Level1_pzt_control"; # Tag that appears in debug to identify source 
use constant DBG_LEVEL => 0; # 0 is errors, warnings and info only, > 0 for debug 

# ========================================================================== 

use ZoneMinder; 
use Getopt::Long; 

$| = 1; 

$ENV{PATH}  = '/bin:/usr/bin'; 
$ENV{SHELL} = '/bin/sh' if exists $ENV{SHELL}; 
delete @ENV{qw(IFS CDPATH ENV BASH_ENV)}; 

sub Usage 
{ 
        print( " 
Usage: pzt_control.pl <various options> 
"); 
        exit( -1 ); 
} 

zmDbgInit( DBG_ID, level=>DBG_LEVEL ); 

my $arg_string = join( " ", @ARGV ); 

my $address; 
my $command; 
my ( $speed, $step ); 
my ( $xcoord, $ycoord ); 
my ( $width, $height ); 
my ( $panspeed, $tiltspeed ); 
my ( $panstep, $tiltstep ); 
my $preset; 
my $autostop; 

if ( !GetOptions( 
        'address=s'=>\$address, 
        'command=s'=>\$command, 
        'autostop=f'=>\$autostop, 
        'speed=i'=>\$speed, 
        'step=i'=>\$step, 
        'xcoord=i'=>\$xcoord, 
        'ycoord=i'=>\$ycoord, 
        'width=i'=>\$width, 
        'height=i'=>\$height, 
        'panspeed=i'=>\$panspeed, 
        'tiltspeed=i'=>\$tiltspeed, 
        'panstep=i'=>\$panstep, 
        'tiltstep=i'=>\$tiltstep, 
        'preset=i'=>\$preset 
        ) 
) 
{ 
        Usage(); 
} 

if ( !$address ) 
{ 
        Usage(); 
} 

if ( defined($autostop) ) 
{ 
        # Convert to microseconds. 
        $autostop = int(1000000*$autostop); 
} 

Debug( $arg_string."\n" ); 

srand( time() ); 

sub printMsg 
{ 
        my $msg = shift; 
        my $msg_len = length($msg); 

        Debug( $msg."[".$msg_len."]\n" ); 
} 

sub sendCmd 
{ 
        my $cmd = shift; 

        my $result = undef; 

        printMsg( $cmd, "Tx" ); 

        use LWP::UserAgent; 
        my $ua = LWP::UserAgent->new; 
        $ua->agent( "ZoneMinder Control Agent/".ZM_VERSION ); 

        #print( "http://$address/$cmd\n" ); 
        my $req = HTTP::Request->new( GET=>"http://$address/cgi-bin/$cmd" ); 
        my $res = $ua->request($req); 

        if ( $res->is_success ) 
        { 
                $result = !undef; 
        } 
        else 
        { 
                Error( "Error check failed: '".$res->status_line()."'\n" ); 
        } 

        return( $result ); 
} 

sub moveUp 
{ 
        Debug( "Move Up\n" ); 
        my $cmd = "camctrl.cgi?move=up"; 
        sendCmd( $cmd ); 
        if ( $autostop ) 
        { 
                usleep( $autostop ); 
                stop(); 
        } 
} 

sub moveDown 
{ 
        Debug( "Move Down\n" ); 
        my $cmd = "camctrl.cgi?move=down"; 
        sendCmd( $cmd ); 
        if ( $autostop ) 
        { 
                usleep( $autostop ); 
                stop(); 
        } 
} 

sub moveLeft 
{ 
        Debug( "Move Left\n" ); 
        my $cmd = "camctrl.cgi?move=left"; 
        sendCmd( $cmd ); 
        if ( $autostop ) 
        { 
                usleep( $autostop ); 
                stop(); 
        } 
} 

sub moveRight 
{ 
        Debug( "Move Right\n" ); 
        my $cmd = "camctrl.cgi?move=right"; 
        sendCmd( $cmd ); 
        if ( $autostop ) 
        { 
                usleep( $autostop ); 
                stop(); 
        } 
} 

sub setSpeed 
{ 
        Debug( "Set Speed\n"); 
        my $cmd = "camctrl.cgi?speedpan=$panspeed"; 
        sendCmd( $cmd ); 
} 

sub stop 
{ 
        Debug( "STOP\n" ); 
        my $cmd = "camctrl.cgi?auto=stop"; 
        sendCmd( $cmd ); 
} 


sub zoomTele 
{ 
        Debug( "Zoom Tele\n" ); 
        my $cmd = "camctrl.cgi?zoom=tele"; 
        sendCmd( $cmd ); 
        if ( $autostop ) 
        { 
                usleep( $autostop ); 
                stop(); 
        } 
} 

sub zoomWide 
{ 
        Debug( "Zoom Wide\n" ); 
        my $cmd = "camctrl.cgi?zoom=wide"; 
        sendCmd( $cmd ); 
        if ( $autostop ) 
        { 
                usleep( $autostop ); 
                stop(); 
        } 
} 


sub focusFar 
{ 
        Debug( "Focus Far\n" ); 
        my $cmd = "camctrl.cgi?focus=far"; 
        sendCmd( $cmd ); 
        if ( $autostop ) 
        { 
                usleep( $autostop ); 
                stop(); 
        } 
} 
sub focusNear
{
        Debug( "Focus Far\n" );
        my $cmd = "camctrl.cgi?focus=near";
        sendCmd( $cmd );
        if ( $autostop )
        {
                usleep( $autostop );
                stop();
        }
}

sub focusAuto 
{ 
        Debug( "Focus Auto\n" ); 
        my $cmd = "camctrl.cgi?focus=auto"; 
        sendCmd( $cmd ); 
} 


sub irisOpen 
{ 
        Debug( "Iris Open\n" ); 
        my $cmd = "camctrl.cgi?iris=open"; 
        sendCmd( $cmd ); 
        if ( $autostop ) 
        { 
                usleep( $autostop ); 
                stop(); 
        } 
} 

sub irisClose
{
        Debug( "Iris Open\n" );
        my $cmd = "camctrl.cgi?iris=close";
        sendCmd( $cmd );
        if ( $autostop )
        {
                usleep( $autostop );
                stop();
        }
}

sub irisAuto 
{ 
        Debug( "Iris Auto\n" ); 
        my $cmd = "camctrl.cgi?iris=auto"; 
        sendCmd( $cmd ); 
} 

sub focusAuto
{
        Debug( "focus Auto\n" );
        my $cmd = "camctrl.cgi?focus=auto";
        sendCmd( $cmd );
}


if ( $command eq "up" ) 
{ 
        moveUp(); 
} 
elsif ( $command eq "down" ) 
{ 
        moveDown(); 
} 
elsif ( $command eq "left" ) 
{ 
        moveLeft(); 
} 
elsif ( $command eq "right" ) 
{ 
        moveRight(); 
} 
elsif ( $command =~m/stop/ ) 
{ 
        stop(); 
} 
elsif ( $command =~ m/tele/ ) 
{ 
        zoomTele(); 
} 
elsif ( $command =~ m/wide/ ) 
{ 
        zoomWide(); 
} 
elsif ( $command =~m/far/ ) 
{ 
        focusFar(); 
}
elsif ( $command =~m/near/ )
{
        focusNear();
}
 
elsif ($command =~m/open/ ) 
{ 
        irisOpen(); 
} 
elsif ($command =~m/close/ )
{
        irisClose();
}
elsif ($command =~m/iris_auto/ )
{
        irisAuto();
}
elsif ($command =~m/focus_auto/ )
{
        focusAuto();
}

else 
{ 
        Error( "Can't handle command $command\n" ); 
} 
# =======================Physical end of file===============================