FOSCAM FI9821W H264 Control Script

If you've made a patch to quick fix a bug or to add a new feature not yet in the main tree then post it here so others can try it out.
Post Reply
christophe_y2k
Posts: 102
Joined: Mon Oct 12, 2009 8:47 am
Location: EUROPE-FRANCE-MANDELIEU

FOSCAM FI9821W H264 Control Script

Post by christophe_y2k » Mon Aug 19, 2013 7:22 pm

Hello, this script run under ZoneMinder V1.25 SVN release from "NexTimE" & "MasterTheKnifE"

All are describe in my other post for manually install the svn, its rapid and very easy

http://www.zoneminder.com/forums/viewto ... =9&t=21218

With this script for This FOSCAM FI-9821W you can move with pseudo speed control, you can use autostop
you can use preset, you can tweak brightness,contrast,hue,saturation
you can control IR LED ON/OFF/AUTO
All command are printed on the live video with the internal OSD of the camera.

Video was streamed via RTSP and FFmpeg with H264 codec at 1280x720 resolution with 10 to 20fps
This camera is always bugged (all foscam product are) she reboot itself

Code: Select all

# ==========================================================================
#
# ZoneMinder FOSCAM version 1.0 API Control Protocol Module, $Date$, $Revision$
# Copyright (C) 2001-2008  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 module FI8620_Y2k.pm contains the implementation of API camera control
# For FOSCAM FI8620 Dome PTZ Camera (This cam support only H264 streaming)
# V1.0  Le 09 AOUT 2013 - production usable for the script but not for the camera "reboot itself" 
# If you wan't to contact me i understand French and English, precise ZoneMinder in subject
# My name is Christophe DAPREMONT my email is christophe_y2k@yahoo.fr
#
# =========================================================================================
package ZoneMinder::Control::FI9821W_Y2k;

use 5.006;
use strict;
use warnings;

require ZoneMinder::Base;
require ZoneMinder::Control;

our @ISA = qw(ZoneMinder::Control);
our $VERSION = $ZoneMinder::Base::VERSION;
# ===================================================================================================================================
#
# FI9821 FOSCAM PT H264 Control Protocol
# with Firmware version V1.2.1.1 (latest at 09/08/2013)
# based with the latest buggy CGI doc from FOSCAM ( http://foscam.us/forum/cgi-sdk-for-hd-camera-t6045.html )
# This IPCAM work under ZoneMinder V1.25 from alternative source of code 
# from this svn at https://svn.unixmedia.net/public/zum/trunk/zum/
# Many Thanks to "MASTERTHEKNIFE" for the excellent speed optimisation ( http://www.zoneminder.com/forums/viewtopic.php?f=9&t=17652 )
# And to "NEXTIME" for the recent source update and incredible plugins ( http://www.zoneminder.com/forums/viewtopic.php?f=9&t=20587 )
# And all people helping ZoneMinder dev.
#
# -FUNCTION: display on OSD
# speed is progressive in function of where you click on arrow ========>
#                                                    speed low=/       \=speed high
# ===================================================================================================================================
use ZoneMinder::Logger qw(:all);
use ZoneMinder::Config qw(:all);
use Time::HiRes qw( usleep );

# Set $osd to "off" if you wan't disabled OSD i need to place this variable in another script because
# this script is reload at every command ,if i want the button on/off (Focus MAN) for OSD works...
my $osd = "on";

sub new
{
    my $class = shift;
    my $id = shift;
    my $self = ZoneMinder::Control->new( $id );
    bless( $self, $class );
    srand( time() );
    return $self;
}

our $AUTOLOAD;

sub AUTOLOAD
{
    my $self = shift;
    my $class = ref($self) || croak( "$self not object" );
    my $name = $AUTOLOAD;
    $name =~ s/.*://;
    if ( exists($self->{$name}) )
    {
        return( $self->{$name} );
    }
    Fatal( "Can't access $name member of object of class $class" );
}

sub open
{
    my $self = shift;
    $self->loadMonitor();
    use LWP::UserAgent;
    $self->{ua} = LWP::UserAgent->new;
    $self->{ua}->agent( "ZoneMinder Control Agent/".ZM_VERSION );
    $self->{state} = 'open';
}

sub close
{
    my $self = shift;
    $self->{state} = 'closed';
}

sub printMsg
{
    my $self = shift;
    my $msg = shift;
    my $msg_len = length($msg);
    Debug( $msg."[".$msg_len."]" );
}

sub sendCmd
{  
    my $self = shift;
    my $cmd = shift;
    my $result = undef;
    printMsg( $cmd, "Tx" );
    my $temps = time();
    my $req = HTTP::Request->new( GET=>"http://".$self->{Monitor}->{ControlAddress}."/cgi-bin/CGIProxy.fcgi?usr%3Dadmin%26pwd%3D".$self->{Monitor}->{ControlDevice}."%26cmd%3D".$cmd."%26".$temps );
    my $res = $self->{ua}->request($req);
    if ( $res->is_success )
    {
        $result = !undef;
    }
    else
    {
        Error( "Error check failed: '".$res->status_line()."'" );
    }
    return( $result );
}

sub reset
{	my $self = shift;
	Debug ( "Reset = setup camera FI9821W" );
	# Setup OSD
	my $cmd = "setOSDSetting%26isEnableTimeStamp%3D0%26isEnableDevName%3D1%26dispPos%3D0%26isEnabledOSDMask%3D0";
	$self->sendCmd( $cmd );
	# Setup For Stream=0 Resolution=720p Bandwith=4M FPS=30 KeyFrameInterval/GOP=100 VBR=ON
	my $cmd = "setVideoStreamParam%26streamType%3D0%26resolution%3D0%26bitRate%3D4194304%26frameRate%3D30%26GOP%3D100%26isVBR%3D1";
	$self->sendCmd( $cmd );
	# Setup For Infrared AUTO
	my $cmd = "setInfraLedConfig%26Mode%3D1";
	$self->sendCmd( $cmd );
	# Reset image settings
	my $cmd = "resetImageSetting";
	$self->sendCmd( $cmd );
}

sub moveStop
{
	my $self = shift;
	Debug( "Move Stop" );
        my $cmd = "ptzStopRun";
	$self->sendCmd( $cmd );		
        my $cmd = "setDevName%26devName%3D.";
        $self->sendCmd( $cmd );
	my $cmd = "setOSDSetting%26isEnableDevName%3D1";
	$self->sendCmd( $cmd );
}

sub autoStop
{
    my $self = shift;
    my $autostop = shift;
    if( $autostop )
    {
       Debug( "Auto Stop" );
       usleep( $autostop );
       my $cmd = "ptzStopRun";
       $self->sendCmd( $cmd );
    }
}

sub moveConUp
{
    my $self = shift;
    my $params = shift;
    my $tiltspeed = $self->getParam( $params, 'tiltspeed' );
    # speed inverter 4-->0 , 3-->1 , 2-->2 , 1-->3 , 0-->4
    $tiltspeed = abs($tiltspeed - 4);
    # Normalisation en cas de valeur erronée dans la base de données
    if ( $tiltspeed > 4 ) {
			   $tiltspeed = 4;
		          }
    if ( $tiltspeed < 0 ) {
			   $tiltspeed = 0;
		          }
    Debug( "Move Up" );	
    if ( $osd eq "on" )
	{
	 my $cmd = "setDevName%26devName%3DMove Up $tiltspeed";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setPTZSpeed%26speed%3D$tiltspeed";
    $self->sendCmd( $cmd );
    my $cmd = "ptzMoveUp";
    $self->sendCmd( $cmd );
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} ); 
}

sub moveConDown
{
    my $self = shift;
    my $params = shift;
    my $tiltspeed = $self->getParam( $params, 'tiltspeed' );
    # speed inverter 4-->0 , 3-->1 , 2-->2 , 1-->3 , 0-->4
    $tiltspeed = abs($tiltspeed - 4);
    # Normalization
    if ( $tiltspeed > 4 ) {
			   $tiltspeed = 4;
		          }
    if ( $tiltspeed < 0 ) {
		  	   $tiltspeed = 0;
		          }
    Debug( "Move Down" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DMove Down $tiltspeed";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setPTZSpeed%26speed%3D$tiltspeed";
    $self->sendCmd( $cmd );
    my $cmd = "ptzMoveDown";
    $self->sendCmd( $cmd );
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}

sub moveConLeft
{
    my $self = shift;
    my $params = shift;
    my $panspeed = $self->getParam( $params, 'panspeed' );
    # Normalisation en cas de valeur erronée dans la base de données
    if ( $panspeed > 4 ) {
			   $panspeed = 4;
		          }
    if ( $panspeed < 0 ) {
			  $panspeed = 0;
		         }
    Debug( "Move Left" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DMove Left $panspeed";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setPTZSpeed%26speed%3D$panspeed";
    $self->sendCmd( $cmd );
    my $cmd = "ptzMoveLeft";
    $self->sendCmd( $cmd );
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}


sub moveConRight
{
    my $self = shift;
    my $params = shift;
    my $panspeed = $self->getParam( $params, 'panspeed' );
    # speed inverter 4-->0 , 3-->1 , 2-->2 , 1-->3 , 0-->4
    $panspeed = abs($panspeed - 4);
    # Normalisation en cas de valeur erronée dans la base de données
    if ( $panspeed > 4 ) {
		          $panspeed = 4;
		         }
    if ( $panspeed < 0 ) {
			  $panspeed = 0;
		         }
    Debug( "Move Right" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DMove Right $panspeed";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setPTZSpeed%26speed%3D$panspeed";
    $self->sendCmd( $cmd );
    my $cmd = "ptzMoveRight";
    $self->sendCmd( $cmd );
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}

sub moveConUpLeft
{
    my $self = shift;
    my $params = shift;
    my $tiltspeed = $self->getParam( $params, 'tiltspeed' );
    # speed inverter 4-->0 , 3-->1 , 2-->2 , 1-->3 , 0-->4
    $tiltspeed = abs($tiltspeed - 4);
    # Normalisation en cas de valeur erronée dans la base de données
    if ( $tiltspeed > 4 ) {
			   $tiltspeed = 4;
		          }
    if ( $tiltspeed < 0 ) {
			   $tiltspeed = 0;
		          }
        Debug( "Move Con Up Left" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DMove Up Left $tiltspeed";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setPTZSpeed%26speed%3D$tiltspeed";
    $self->sendCmd( $cmd );
    my $cmd = "ptzMoveTopLeft";
    $self->sendCmd( $cmd );
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}

sub moveConUpRight
{
    my $self = shift;
    my $params = shift;
    my $tiltspeed = $self->getParam( $params, 'tiltspeed' );
    # speed inverter 4-->0 , 3-->1 , 2-->2 , 1-->3 , 0-->4
    $tiltspeed = abs($tiltspeed - 4);
    # Normalisation en cas de valeur erronée dans la base de données
    if ( $tiltspeed > 4 ) {
			   $tiltspeed = 4;
		          }
    if ( $tiltspeed < 0 ) {
			   $tiltspeed = 0;
		          }
    Debug( "Move Con Up Right" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DMove Up Right $tiltspeed";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setPTZSpeed%26speed%3D$tiltspeed";
    $self->sendCmd( $cmd );
    my $cmd = "ptzMoveTopRight";
    $self->sendCmd( $cmd );
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}

sub moveConDownLeft
{
    my $self = shift;
    my $params = shift;
    my $tiltspeed = $self->getParam( $params, 'tiltspeed' );
    # speed inverter 4-->0 , 3-->1 , 2-->2 , 1-->3 , 0-->4
    $tiltspeed = abs($tiltspeed - 4);
    # Normalisation en cas de valeur erronée dans la base de données
    if ( $tiltspeed > 4 ) {
			   $tiltspeed = 4;
		          }
    if ( $tiltspeed < 0 ) {
			   $tiltspeed = 0;
		          }
    Debug( "Move Con Down Left" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DMove Down Left $tiltspeed";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setPTZSpeed%26speed%3D$tiltspeed";
    $self->sendCmd( $cmd );
    my $cmd = "ptzMoveBottomLeft";
    $self->sendCmd( $cmd );
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}

sub moveConDownRight
{
    my $self = shift;
    my $params = shift;
    my $tiltspeed = $self->getParam( $params, 'tiltspeed' );
    # speed inverter 4-->0 , 3-->1 , 2-->2 , 1-->3 , 0-->4
    $tiltspeed = abs($tiltspeed - 4);
    # Normalisation en cas de valeur erronée dans la base de données
    if ( $tiltspeed > 4 ) {
			   $tiltspeed = 4;
		          }
    if ( $tiltspeed < 0 ) {
			   $tiltspeed = 0;
		          }
    Debug( "Move Con Down Right" );
    if ( $osd eq "on" )
	{
	 my $cmd = "setDevName%26devName%3DMove Down Right $tiltspeed";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setPTZSpeed%26speed%3D$tiltspeed";
    $self->sendCmd( $cmd );
    my $cmd = "ptzMoveBottomRight";
    $self->sendCmd( $cmd );
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}

sub zoomConTele
{
    my $self = shift;
    Debug( "Zoom-Tele=MANU IR LED ON" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DManual IR LED Switch ON";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setInfraLedConfig%26mode%3D1";
    $self->sendCmd( $cmd );
    my $cmd = "openInfraLed";
    $self->sendCmd( $cmd );
}

sub zoomConWide
{
    my $self = shift;
    Debug( "Zoom-Wide=MANU IR LED OFF" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DManual IR LED Switch OFF";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setInfraLedConfig%26mode%3D1";
    $self->sendCmd( $cmd );
    my $cmd = "closeInfraLed";
    $self->sendCmd( $cmd );
}

sub wake
{
    my $self = shift;
    Debug( "Wake=AUTO IR LED" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DAuto IR LED Mode";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setInfraLedConfig%26mode%3D0";
    $self->sendCmd( $cmd );    	
}

sub focusConNear
{
    my $self = shift;
    my $params = shift;
    my $speed = $self->getParam( $params, 'speed' );
    # Normalisation en cas de valeur erronée dans la base de données
    if ( $speed > 100 ) {
	 	         $speed = 100;
	    	        }
    if ( $speed < 0 ) {
		       $speed = 0;
		      }
    Debug( "Focus Near=Sharpness" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DSharpness $speed";
         $self->sendCmd( $cmd );
         my $cmd = "setOSDSetting%26isEnableDevName%3D1";
	 $self->sendCmd( $cmd );
        }
    my $cmd = "setSharpness%26sharpness%3D$speed";
    $self->sendCmd( $cmd );
    # La variable speed ne fonctionne pas en paramètre du focus, alors je l'utilise pour définir la durée de la commande
    # le résulat est identique
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}

sub focusConFar
{
    my $self = shift;
    my $params = shift;
    my $speed = $self->getParam( $params, 'speed' );
    # Normalisation en cas de valeur erronée dans la base de données
    if ( $speed > 100 ) {
		         $speed = 100;
		        }
    if ( $speed < 0 ) {
		       $speed = 0;
		      }
    Debug( "Focus Far" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DSharpness $speed";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setSharpness%26sharpness%3D$speed";
    $self->sendCmd( $cmd );
    # La variable speed ne fonctionne pas en paramètre du focus alors je l'utilise pour définir la durée de la commande
    # le résulat est identique
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}

sub focusAuto
{
    my $self = shift;
    Debug( "Focus Auto=Reset Sharpness" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DReset Sharpness";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setSharpness%26sharpness%3D10";
    $self->sendCmd( $cmd );
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}

sub focusMan
{
    my $self = shift;
    Debug( "Focus Manu=Reset Sharpness" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DFOSCAM FI9821W Script V1.0 By Christophe_y2k";
         $self->sendCmd( $cmd );
        }
}

sub whiteConIn
{
    my $self = shift;
    my $params = shift;
    my $speed = $self->getParam( $params, 'speed' );
    # Normalisation en cas de valeur erronée dans la base de données
    if ( $speed > 100 ) {
	 	         $speed = 100;
		        }
    if ( $speed < 0 ) {
		       $speed = 0;
		      }
    Debug( "White ConIn=brightness" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DBrightness $speed";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setBrightness%26brightness%3D$speed";
    $self->sendCmd( $cmd );
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}

sub whiteConOut
{
    my $self = shift;
    my $params = shift;
    my $speed = $self->getParam( $params, 'speed' );
    # Normalisation en cas de valeur erronée dans la base de données
    if ( $speed > 100 ) {
	 	         $speed = 100;
		        }
    if ( $speed < 0 ) {
		       $speed = 0;
		      }
    Debug( "White ConOut=Contrast" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DContrast $speed";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setContrast%26constrast%3D$speed";
    $self->sendCmd( $cmd );
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}

sub whiteAuto
{
    my $self = shift;
    Debug( "White Auto=Brightness Reset" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DBrightness Reset";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setBrightness%26brightness%3D50";
    $self->sendCmd( $cmd );
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}

sub whiteMan
{
    my $self = shift;
    Debug( "White Manuel=Contrast Reset" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DContrast Reset";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setContrast%26constrast%3D44";
    $self->sendCmd( $cmd );
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}

sub irisConOpen
{
    my $self = shift;
    my $params = shift;
    my $speed = $self->getParam( $params, 'speed' );
    # Normalisation en cas de valeur erronée dans la base de données
    if ( $speed > 100 ) {
		         $speed = 100;
		        }
    if ( $speed < 0 ) {
		       $speed = 0;
		      }
    Debug( "Iris ConOpen=Saturation" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DSaturation $speed";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setSaturation%26saturation%3D$speed";
    $self->sendCmd( $cmd );
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}

sub irisConClose
{
    my $self = shift;
    my $params = shift;
    my $speed = $self->getParam( $params, 'speed' );
    # Normalisation en cas de valeur erronée dans la base de données
    if ( $speed > 100 ) {
		         $speed = 100;
		        }
    if ( $speed < 0 ) {
		       $speed = 0;
		      }
    Debug( "Iris ConClose=Hue" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DHue $speed";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setHue%26hue%3D$speed";
    $self->sendCmd( $cmd );
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}

sub irisAuto
{
    my $self = shift;
    Debug( "Iris Auto=Saturation Reset" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DSaturation Reset";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setSaturation%26saturation%3D30";
    $self->sendCmd( $cmd );
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}

sub irisMan
{
    my $self = shift;
    Debug( "Iris Manuel=Hue Reset" );
    if ( $osd eq "on" )
	{
         my $cmd = "setDevName%26devName%3DHue Reset";
         $self->sendCmd( $cmd );
        }
    my $cmd = "setHue%26hue%3D6";
    $self->sendCmd( $cmd );
    $self->autoStop( $self->{Monitor}->{AutoStopTimeout} );
}

sub presetSet
{
    my $self = shift;
    my $params = shift;
    my $preset = $self->getParam( $params, 'preset' );
    if ( ( $preset >= 1 ) && ( $preset <= 16 ) ) {
    						  Debug( "Clear Preset $preset" );
    						  my $cmd = "ptzDeletePresetPoint%26name%3D$preset";
		      			          $self->sendCmd( $cmd );
                                                  Debug( "Set Preset $preset" );
					          if ( $osd eq "on" )
						 	 {
   					                  my $cmd = "setDevName%26devName%3DSet Preset $preset";
		      			                  $self->sendCmd( $cmd );
							 }
                                                  my $cmd = "ptzAddPresetPoint%26name%3D$preset";
                                                  $self->sendCmd( $cmd );
					         }
}

sub presetGoto
{
    my $self = shift;
    my $params = shift;
    my $preset = $self->getParam( $params, 'preset' );
    if ( ( $preset >= 1 ) && ( $preset <= 16 ) ) {
					         Debug( "Goto Preset $preset" );
					         if ( $osd eq "on" )
							{
							 my $cmd = "setDevName%26devName%3DGoto Preset $preset";
		      			                 $self->sendCmd( $cmd );
						 	}
						 my $cmd = "setPTZSpeed%26speed%3D0";
					         $self->sendCmd( $cmd );
					         my $cmd = "ptzGotoPresetPoint%26name%3D$preset";
					         $self->sendCmd( $cmd );
					        }
}

1;
__END__
# Below is stub documentation for your module. You'd better edit it!

=head1 FI9821W

ZoneMinder::Database - Perl extension for FOSCAM FI9821W

=head1 SYNOPSIS

  use ZoneMinder::Database;
  blah blah blah

=head1 DESCRIPTION

Stub documentation for ZoneMinder, created by h2xs. It looks like the
author of the extension was negligent enough to leave the stub
unedited.

Blah blah blah.

=head2 EXPORT

None by default.



=head1 SEE ALSO

Mention other useful documentation such as the documentation of
related modules or operating system documentation (such as man pages
in UNIX), or any relevant external documentation such as RFCs or
standards.

If you have a mailing list set up for your module, mention it here.

If you have a web site set up for your module, mention it here.

=head1 AUTHOR

Philip Coombes, E<lt>philip.coombes@zoneminder.comE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2001-2008  Philip Coombes

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.8.3 or,
at your option, any later version of Perl 5 you may have available.


=cut
Last edited by christophe_y2k on Sun Mar 22, 2015 11:52 am, edited 1 time in total.

mariusz0709
Posts: 2
Joined: Wed Feb 19, 2014 7:32 am

Re: FOSCAM FI9821W H264 Control Script

Post by mariusz0709 » Wed Feb 19, 2014 7:46 am

Hi

Motion tracking is working correctly on this foscam?

christophe_y2k
Posts: 102
Joined: Mon Oct 12, 2009 8:47 am
Location: EUROPE-FRANCE-MANDELIEU

Re: FOSCAM FI9821W H264 Control Script

Post by christophe_y2k » Wed Feb 19, 2014 10:15 am

Hello, i never seen motion tracking working ...
Now i use the new version of zoneminder V1.26.5 on my Gentoo from GitHub and i need to retest all PTZ script...

mariusz0709
Posts: 2
Joined: Wed Feb 19, 2014 7:32 am

Re: FOSCAM FI9821W H264 Control Script

Post by mariusz0709 » Thu Feb 20, 2014 11:09 am

I use V1.26.5 and there is a bug. When I use ffmpeg, when I use ffmpeg, I can not turn the PTZ on. Drop-down list of file control does not work. So I can't turn on PTZ.

Post Reply

Who is online

Users browsing this forum: No registered users and 3 guests