#!/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===============================