:http://www.wanscam.com/product/Waterproof%20IR%20IP%20Camera.html
:Device Firmware Version: 0.35.2.47
:Device Embeded Web UI Version: 1.0.0.0

===General Zoneminder Setup===

;General:
:Name: Wanscam2
:Source Type: Remote
:Function: Modect
:Enabled: Tick
:Maximum FPS: Empty
:Alarm Maximum FPS: Empty
;Source
:Remote Protocol: HTTP
:Remote Method: Simple
:Remote Host Name: 192.168.1.99 ''(IP used by camera)''
:Remote Host Port: 99 ''(Port used by camera)''
:Remote Host Path: /videostream.cgi?user=admin&pwd=pass ''(user=admin, password=pass)''
:Remote Image Colours: 24 bit colour
:Capture Width: 640
:Capture Height: 480
;Control

Note: This tab and its options will only appear if you have selected the ZM_OPT_CONTROL option to indicated that your system contains cameras which are able to be controlled via Pan/Tilt/Zoom or other mechanisms.

:Controllable: Tick
:Control Type: WanscamOut ''(need to create this first using Edit link)''
:Control Device: Empty
:Control Address: admin:pass@192.168.1.99:99 ''(user:password@IP:Port used by camera)''

===Control Setup===

Create /usr/share/perl5/ZoneMinder/Control/Wanscam.pm with following contents. This script supports a superset of camera controls and should work with any Wanscam camera.

<pre>
# ==========================================================================
#
# ZoneMinder Wanscam Control Protocol Module, $Date: 2009-11-25 09:20:00 +0000 (Wed, 04 Nov 2009) $, $Revision: 0001 $
# Copyright (C) 2001-2008 Philip Coombes
# Modified for use with Foscam FI8918W IP Camera by Dave Harris
# Modified Feb 2011 by Howard Durdle (http://durdl.es/x) to:
# fix horizontal panning, add presets and IR on/off
# use Control Device field to pass username and password
# Modified June 5th, 2012 by Chris Bagwell to:
# Rename to IPCAM since its common protocol with wide range of cameras.
# Work with Logger module instead of Debug module.
# Fix off-by-1 preset bug.
# Support optional autostop timeout.
# Add Zoom, Brightness, and Contrast support.
# Modified July 7th, 2012 by Patrik Brander to:
# Rename to Wanscam
# Pan Left/Right switched
# IR On/Off switched
# Brightness Increase/Decrease in 16 steps
#
#
# 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 contains the implementation of the Wanscam camera control
# protocol.
#
# This is a protocol shared by a wide range of affordable cameras that
# appear to share similar reference design and software. Examples
# include Foscam, Agasio, Wansview, etc.
#
# The basis for CGI based API can be found on internet by searching for
# "IPCAM CGI SDK 2.1". Here is sample site that also developes replacement
# firmware for some hardware versions.
#
# http://www.openipcam.com/files/Manuals/IPCAM%20CGI%20SDK%202.1.pdf
#
package ZoneMinder::Control::Wanscam;

use 5.006;
use strict;
use warnings;

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

our @ISA = qw(ZoneMinder::Control);

our $VERSION = $ZoneMinder::Base::VERSION;

# ==========================================================================
#
# Wanscam Control Protocol
#
# ==========================================================================

use ZoneMinder::Logger qw(:all);
use ZoneMinder::Config qw(:all);

use Time::HiRes qw( usleep );

sub new
{
my $class = shift;
my $id = shift;
my $self = ZoneMinder::Control->new( $id );
my $logindetails = "";
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 $req = HTTP::Request->new( GET=>"http://".$self->{Monitor}->{ControlAddress}."/$cmd".$self->{Monitor}->{ControlDevice} );
my $res = $self->{ua}->request($req);

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

return( $result );
}

# Turn IO on (can be internally wired to IR's)
sub wake
{
my $self = shift;
Debug( "Wake - IO on" );
my $cmd = "decoder_control.cgi?command=94&";
$self->sendCmd( $cmd );
}

# Turn IO off (can be internally wired to IR's)
sub sleep
{
my $self = shift;
Debug( "Sleep - IO off" );
my $cmd = "decoder_control.cgi?command=95&";
$self->sendCmd( $cmd );
}

sub reset
{
my $self = shift;
Debug( "Camera Reset" );
my $cmd = "reboot.cgi?";
$self->sendCmd( $cmd );
}

sub moveConUp
{
my $self = shift;
my $params = shift;
Debug( "Move Up" );
my $cmd = "decoder_control.cgi?command=0&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}
}

sub moveConDown
{
my $self = shift;
my $params = shift;
Debug( "Move Down" );
my $cmd = "decoder_control.cgi?command=2&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}
}

sub moveConRight
{
my $self = shift;
my $params = shift;
Debug( "Move Right" );
my $cmd = "decoder_control.cgi?command=4&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}
}

sub moveConLeft
{
my $self = shift;
my $params = shift;
Debug( "Move Left" );
my $cmd = "decoder_control.cgi?command=6&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}
}

sub moveConUpLeft
{
my $self = shift;
my $params = shift;
Debug( "Move Diagonally Up Left" );
my $cmd = "decoder_control.cgi?command=91&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}
}

sub moveConDownLeft
{
my $self = shift;
my $params = shift;
Debug( "Move Diagonally Down Left" );
my $cmd = "decoder_control.cgi?command=93&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}
}

sub moveConUpRight
{
my $self = shift;
my $params = shift;
Debug( "Move Diagonally Up Right" );
my $cmd = "decoder_control.cgi?command=90&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}
}

sub moveConDownRight
{
my $self = shift;
my $params = shift;
Debug( "Move Diagonally Down Right" );
my $cmd = "decoder_control.cgi?command=92&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}
}

# command=1 is technically Up Stop but seems to work for all stops.
sub moveStop
{
my $self = shift;
Debug( "Move Stop" );
print("autostop\n");
my $cmd = "decoder_control.cgi?command=1&";
$self->sendCmd( $cmd );
}

sub zoomConTele
{
my $self = shift;
my $params = shift;
Debug( "Zoom Tele" );
my $cmd = "decoder_control.cgi?command=16&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$cmd = "decoder_control.cgi?command=17&";
$self->sendCmd( $cmd );
}
}

sub zoomConWide
{
my $self = shift;
my $params = shift;
Debug( "Zoom Wide" );
my $cmd = "decoder_control.cgi?command=18&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$cmd = "decoder_control.cgi?command=19&";
$self->sendCmd( $cmd );
}
}

sub zoomConStop
{
my $self = shift;
my $params = shift;
Debug( "Zoom Stop" );
my $cmd = "decoder_control.cgi?command=17&";
$self->sendCmd( $cmd );
}

# Increase Brightness
sub irisAbsOpen
{
my $self = shift;
my $params = shift;
my $step = $self->getParam( $params, 'step' );
my $brightness = 100;

my $cmd = "get_camera_params.cgi?";
my $resp = $self->sendCmd( $cmd );

$brightness = int($1) if ( $resp =~ m/var brightness=([0-9]*);/ );
$brightness += $step * 16;
$brightness = 255 if ($brightness > 255);
Debug( "Iris Open $brightness" );
$cmd = "camera_control.cgi?param=1&value=".$brightness."&";
$self->sendCmd( $cmd );
}

# Decrease Brightness
sub irisAbsClose
{
my $self = shift;
my $params = shift;
my $step = $self->getParam( $params, 'step' );
my $brightness = 100;

my $cmd = "get_camera_params.cgi?";
my $resp = $self->sendCmd( $cmd );

$brightness = int($1) if ( $resp =~ m/var brightness=([0-9]*);/ );
$brightness -= $step * 16;
$brightness = 0 if ($brightness < 0);
Debug( "Iris Close $brightness" );
$cmd = "camera_control.cgi?param=1&value=".$brightness."&";
$self->sendCmd( $cmd );
}

# Increase Contrast
sub whiteAbsIn
{
my $self = shift;
my $params = shift;
my $step = $self->getParam( $params, 'step' );
my $contrast = 5;

my $cmd = "get_camera_params.cgi?";
my $resp = $self->sendCmd( $cmd );

$contrast = int($1) if ( $resp =~ m/var contrast=([0-9]*);/ );
$contrast += $step;
$contrast = 6 if ($contrast > 6);
Debug( "White In $contrast" );
$cmd = "camera_control.cgi?param=2&value=".$contrast."&";
$self->sendCmd( $cmd );
}

# Decrease Contrast
sub whiteAbsOut
{
my $self = shift;
my $params = shift;
my $step = $self->getParam( $params, 'step' );
my $contrast = 5;

my $cmd = "get_camera_params.cgi?";
my $resp = $self->sendCmd( $cmd );

$contrast = int($1) if ( $resp =~ m/var contrast=([0-9]*);/ );
$contrast -= $step;
$contrast = 0 if ($contrast < 0);
Debug( "White Out $contrast" );
$cmd = "camera_control.cgi?param=2&value=".$contrast."&";
$self->sendCmd( $cmd );
}

sub presetHome
{
my $self = shift;
Debug( "Home Preset" );
my $cmd = "decoder_control.cgi?command=25&";
$self->sendCmd( $cmd );
}

sub presetSet
{
my $self = shift;
my $params = shift;
my $preset = $self->getParam( $params, 'preset' );
my $presetCmd = 30 + (($preset-1)*2);
Debug( "Set Preset $preset with cmd $presetCmd" );
my $cmd = "decoder_control.cgi?command=$presetCmd&";
$self->sendCmd( $cmd );
}

sub presetGoto
{
my $self = shift;
my $params = shift;
my $preset = $self->getParam( $params, 'preset' );
my $presetCmd = 31 + (($preset-1)*2);
Debug( "Goto Preset $preset with cmd $presetCmd" );
my $cmd = "decoder_control.cgi?command=$presetCmd&";
$self->sendCmd( $cmd );
}
1;
__END__
# Below is stub documentation for your module. You'd better edit it!

=head1 NAME

ZoneMinder::Database - Perl extension for blah blah blah

=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
</pre>

From here, Zoneminder must be configured to know about Wanscam controls. This is done by clicking the "Edit" link pointed out during general setup and then on the "Add New Control" button on new window.

;Main
:Name: WanscamOut
:Type: Remote
:Protocol: Wanscam
:Can Wake: Tick
:Can Sleep: Tick
:Can Reset: Tick
;Move
''Device cannot move''
;Pan
''Device cannot pan''
;Tilt
''Device cannot tilt''
;Zoom
''Device cannot zoom''
;Focus
''Device cannot focus''
;White
:Can White Balance: Tick
:Can White Balance Absolute: Tick
:Min White Bal. Range: 0
:Max White Bal. Range: 16
;Iris
:Can Iris: Tick
:Can Iris Absolute: Tick
:Min Iris Range: 0
:Max Iris Range: 6
;Presets
''Device cannot preset''

2012-07-07T12:37:57Z

Branderco: moved Wanscam FR4020A2 to Wanscam FR4020A2 PT: There is cameras with Model FR4020A2 that do not pan or tilt

:Device Firmware Version: 0.37.2.43
:Device Embeded Web UI Version: 1.0.0.0

===General Zoneminder Setup===

;General:
:Name: Wanscam1
:Source Type: Remote
:Function: Modect
:Enabled: Tick
:Maximum FPS: Empty
:Alarm Maximum FPS: Empty
;Source
:Remote Protocol: HTTP
:Remote Method: Simple
:Remote Host Name: x.x.x.x ''(IP used by camera)''
:Remote Host Port: yy ''(Port used by camera)''
:Remote Host Path: /videostream.cgi?user=admin&pwd= ''(default user account, no password)''
:Remote Image Colours: 24 bit colour
:Capture Width: 640
:Capture Height: 480
;Control

Note: This tab and its options will only appear if you have selected the ZM_OPT_CONTROL option to indicated that your system contains cameras which are able to be controlled via Pan/Tilt/Zoom or other mechanisms.

:Controllable: Tick
:Control Type: WanscamPT ''(need to create this first using Edit link)''
:Control Device: user=admin&pwd= ''(default user account, no password)''
:Control Address: x.x.x.x:yy ''(IP:Port used by camera)''
:Auto Stop Timeout: 2.00 ''(camera PT speed is 5)''

===Control Setup===

Create /usr/share/perl5/ZoneMinder/Control/Wanscam.pm with following contents. This script supports a superset of camera controls and should work with any Wanscam camera.

<pre>
# ==========================================================================
#
# ZoneMinder Wanscam Control Protocol Module, $Date: 2009-11-25 09:20:00 +0000 (Wed, 04 Nov 2009) $, $Revision: 0001 $
# Copyright (C) 2001-2008 Philip Coombes
# Modified for use with Foscam FI8918W IP Camera by Dave Harris
# Modified Feb 2011 by Howard Durdle (http://durdl.es/x) to:
# fix horizontal panning, add presets and IR on/off
# use Control Device field to pass username and password
# Modified June 5th, 2012 by Chris Bagwell to:
# Rename to IPCAM since its common protocol with wide range of cameras.
# Work with Logger module instead of Debug module.
# Fix off-by-1 preset bug.
# Support optional autostop timeout.
# Add Zoom, Brightness, and Contrast support.
# Modified July 7th, 2012 by Patrik Brander to:
# Rename to Wanscam
# Pan Left/Right switched
# IR On/Off switched
# Brightness Increase/Decrease in 16 steps
#
#
# 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 contains the implementation of the Wanscam camera control
# protocol.
#
# This is a protocol shared by a wide range of affordable cameras that
# appear to share similar reference design and software. Examples
# include Foscam, Agasio, Wansview, etc.
#
# The basis for CGI based API can be found on internet by searching for
# "IPCAM CGI SDK 2.1". Here is sample site that also developes replacement
# firmware for some hardware versions.
#
# http://www.openipcam.com/files/Manuals/IPCAM%20CGI%20SDK%202.1.pdf
#
package ZoneMinder::Control::Wanscam;

use 5.006;
use strict;
use warnings;

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

our @ISA = qw(ZoneMinder::Control);

our $VERSION = $ZoneMinder::Base::VERSION;

# ==========================================================================
#
# Wanscam Control Protocol
#
# ==========================================================================

use ZoneMinder::Logger qw(:all);
use ZoneMinder::Config qw(:all);

use Time::HiRes qw( usleep );

sub new
{
my $class = shift;
my $id = shift;
my $self = ZoneMinder::Control->new( $id );
my $logindetails = "";
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 $req = HTTP::Request->new( GET=>"http://".$self->{Monitor}->{ControlAddress}."/$cmd".$self->{Monitor}->{ControlDevice} );
my $res = $self->{ua}->request($req);

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

return( $result );
}

# Turn IO on (can be internally wired to IR's)
sub wake
{
my $self = shift;
Debug( "Wake - IO on" );
my $cmd = "decoder_control.cgi?command=94&";
$self->sendCmd( $cmd );
}

# Turn IO off (can be internally wired to IR's)
sub sleep
{
my $self = shift;
Debug( "Sleep - IO off" );
my $cmd = "decoder_control.cgi?command=95&";
$self->sendCmd( $cmd );
}

sub reset
{
my $self = shift;
Debug( "Camera Reset" );
my $cmd = "reboot.cgi?";
$self->sendCmd( $cmd );
}

sub moveConUp
{
my $self = shift;
my $params = shift;
Debug( "Move Up" );
my $cmd = "decoder_control.cgi?command=0&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}
}

sub moveConDown
{
my $self = shift;
my $params = shift;
Debug( "Move Down" );
my $cmd = "decoder_control.cgi?command=2&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}
}

sub moveConRight
{
my $self = shift;
my $params = shift;
Debug( "Move Right" );
my $cmd = "decoder_control.cgi?command=4&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}
}

sub moveConLeft
{
my $self = shift;
my $params = shift;
Debug( "Move Left" );
my $cmd = "decoder_control.cgi?command=6&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}
}

sub moveConUpLeft
{
my $self = shift;
my $params = shift;
Debug( "Move Diagonally Up Left" );
my $cmd = "decoder_control.cgi?command=91&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}
}

sub moveConDownLeft
{
my $self = shift;
my $params = shift;
Debug( "Move Diagonally Down Left" );
my $cmd = "decoder_control.cgi?command=93&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}
}

sub moveConUpRight
{
my $self = shift;
my $params = shift;
Debug( "Move Diagonally Up Right" );
my $cmd = "decoder_control.cgi?command=90&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}
}

sub moveConDownRight
{
my $self = shift;
my $params = shift;
Debug( "Move Diagonally Down Right" );
my $cmd = "decoder_control.cgi?command=92&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$self->moveStop( $params );
}
}

# command=1 is technically Up Stop but seems to work for all stops.
sub moveStop
{
my $self = shift;
Debug( "Move Stop" );
print("autostop\n");
my $cmd = "decoder_control.cgi?command=1&";
$self->sendCmd( $cmd );
}

sub zoomConTele
{
my $self = shift;
my $params = shift;
Debug( "Zoom Tele" );
my $cmd = "decoder_control.cgi?command=16&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$cmd = "decoder_control.cgi?command=17&";
$self->sendCmd( $cmd );
}
}

sub zoomConWide
{
my $self = shift;
my $params = shift;
Debug( "Zoom Wide" );
my $cmd = "decoder_control.cgi?command=18&";
$self->sendCmd( $cmd );
my $autostop = $self->getParam( $params, 'autostop', 0 );
if ( $autostop && $self->{Monitor}->{AutoStopTimeout} )
{
usleep( $self->{Monitor}->{AutoStopTimeout} );
$cmd = "decoder_control.cgi?command=19&";
$self->sendCmd( $cmd );
}
}

sub zoomConStop
{
my $self = shift;
my $params = shift;
Debug( "Zoom Stop" );
my $cmd = "decoder_control.cgi?command=17&";
$self->sendCmd( $cmd );
}

# Increase Brightness
sub irisAbsOpen
{
my $self = shift;
my $params = shift;
my $step = $self->getParam( $params, 'step' );
my $brightness = 100;

my $cmd = "get_camera_params.cgi?";
my $resp = $self->sendCmd( $cmd );

$brightness = int($1) if ( $resp =~ m/var brightness=([0-9]*);/ );
$brightness += $step * 16;
$brightness = 255 if ($brightness > 255);
Debug( "Iris Open $brightness" );
$cmd = "camera_control.cgi?param=1&value=".$brightness."&";
$self->sendCmd( $cmd );
}

# Decrease Brightness
sub irisAbsClose
{
my $self = shift;
my $params = shift;
my $step = $self->getParam( $params, 'step' );
my $brightness = 100;

my $cmd = "get_camera_params.cgi?";
my $resp = $self->sendCmd( $cmd );

$brightness = int($1) if ( $resp =~ m/var brightness=([0-9]*);/ );
$brightness -= $step * 16;
$brightness = 0 if ($brightness < 0);
Debug( "Iris Close $brightness" );
$cmd = "camera_control.cgi?param=1&value=".$brightness."&";
$self->sendCmd( $cmd );
}

# Increase Contrast
sub whiteAbsIn
{
my $self = shift;
my $params = shift;
my $step = $self->getParam( $params, 'step' );
my $contrast = 5;

my $cmd = "get_camera_params.cgi?";
my $resp = $self->sendCmd( $cmd );

$contrast = int($1) if ( $resp =~ m/var contrast=([0-9]*);/ );
$contrast += $step;
$contrast = 6 if ($contrast > 6);
Debug( "White In $contrast" );
$cmd = "camera_control.cgi?param=2&value=".$contrast."&";
$self->sendCmd( $cmd );
}

# Decrease Contrast
sub whiteAbsOut
{
my $self = shift;
my $params = shift;
my $step = $self->getParam( $params, 'step' );
my $contrast = 5;

my $cmd = "get_camera_params.cgi?";
my $resp = $self->sendCmd( $cmd );

$contrast = int($1) if ( $resp =~ m/var contrast=([0-9]*);/ );
$contrast -= $step;
$contrast = 0 if ($contrast < 0);
Debug( "White Out $contrast" );
$cmd = "camera_control.cgi?param=2&value=".$contrast."&";
$self->sendCmd( $cmd );
}

sub presetHome
{
my $self = shift;
Debug( "Home Preset" );
my $cmd = "decoder_control.cgi?command=25&";
$self->sendCmd( $cmd );
}

sub presetSet
{
my $self = shift;
my $params = shift;
my $preset = $self->getParam( $params, 'preset' );
my $presetCmd = 30 + (($preset-1)*2);
Debug( "Set Preset $preset with cmd $presetCmd" );
my $cmd = "decoder_control.cgi?command=$presetCmd&";
$self->sendCmd( $cmd );
}

sub presetGoto
{
my $self = shift;
my $params = shift;
my $preset = $self->getParam( $params, 'preset' );
my $presetCmd = 31 + (($preset-1)*2);
Debug( "Goto Preset $preset with cmd $presetCmd" );
my $cmd = "decoder_control.cgi?command=$presetCmd&";
$self->sendCmd( $cmd );
}
1;
__END__
# Below is stub documentation for your module. You'd better edit it!

=head1 NAME

ZoneMinder::Database - Perl extension for blah blah blah

=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
</pre>

From here, Zoneminder must be configured to know about Wanscam controls. This is done by clicking the "Edit" link pointed out during general setup and then on the "Add New Control" button on new window.

;Main
:Name: WanscamPT
:Type: Remote
:Protocol: Wanscam
:Can Wake: Tick
:Can Sleep: Tick
:Can Reset: Tick
;Move
:Can Move: Tick
:Can Move Diagonally: Tick
:Can Move Continous: Tick
;Pan
:Can Pan: Tick
;Tilt
:Can Tilt: Tick
;Zoom
''Device can not zoom''
;Focus
''Device can not focus''
;White
:Can White Balance: Tick
:Can White Balance Absolute: Tick
:Min White Bal. Range: 0
:Max White Bal. Range: 16
;Iris
:Can Iris: Tick
:Can Iris Absolute: Tick
:Min Iris Range: 0
:Max Iris Range: 6
;Presets
:Has Presets: Tick
:Num Presets: 16
:Has Home Preset: Tick
:Can Set Presets: Tick

2012-07-07T08:58:16Z

Branderco:

This camera is a Foscam clone wery similar to this camera [[Foscam_FI8918W|Foscam FI8918W Pan/Tilt Camera]]. As a clone it should work with the generic control scrip found here [[Foscam Clones]] but it doesn't. It is similar but it is not compatible. Left and right pan is mixed up. IR light on and off is mixed up.

2012-07-07T08:37:39Z

Branderco: Added link to Wanscam IP camera

Zoneminder will work with almost any capture card that is supported by the linux kernel. You may find additional details about supported hardware in the [http://www.zoneminder.com/forums/viewforum.php?f=10 Hardware Compatibility List] part of the forums. Also if you find something in the forums that is missing from the wiki ADD IT.

== Capture Cards ==

[[Anykeeper]]

[[Avermedia]]

[[Camsecure PCI Express video capture]]

[[Digiflower]]

[[Geovision GV250 - bt878a chip]]

[[Grandtec Grand X Guard]] [http://www.grandtec.com/products/surveillance/xguard.html]

[[Hauppauge]]

[[Ituner Spectra 8]] [http://www.ituner.com/spectra.htm]

[[Kodicom 4400r]]

[[Kodicom 8800]]

[[Tungson TE-8008]]

Leadtek WinFast VC 100 - the cheapest bt878 model with no tuner on it, just Com/Svideo in.

[[Linux Media Labs LMLBT44]] [http://www.linuxmedialabs.com]

[[Osprey 100]]

[[Provideo PV- series (Bluecherry)]] [http://store.bluecherry.net/SearchResults.asp?Cat=63&Click=51]

[[ Bluecherry - BC-H16480A]] [http://store.bluecherry.net/products/Bluecherry-BC%252dH16480A-%252d-16-port-video%2C-16-port-audio-H.264-%7B47%7D-PCIe-hardware-compression-capture-card.html]

[[TView 95/99]]

[[Videocards with Philips saa7134 chipset]]

[[WinFast TV2000 XP]]

[[Rapid OS]]

== bt8x8 Cards ==
A note on the bt8x8-based TV-tuner cards: these usually have beside the tuner input, also a Composite and an S-Video input. You can hook up 2 analog cameras to these, and access from ZoneMinder both of them as individual cameras, at max 15Fps. You don't need two separate TV cards for two cameras!

[[Pico2000]] - 4 port card, one chip bt878, around 2 fps when using all channels

[[Bt878_4chip_8inputs]] -4 chips bt878, 8 inputs, around 5 fps when using 2 inputs per chip

[[:Image:Karta.jpg| bt878 8 chip 8 input]] - This card is supplied with D-sub to 8 BNC connector and uses the bt878 chip for each input allowing full frame rates and quality. See [[Kodicom 8800]] for more information.

Geovision GV250 bt878a single chip 4 inputs - This capture Card is supplied with 4 video inputs but with NO audio channel

'''Most other BTTV (bt878, bt848) cards, see /usr/src/linux/Documentation/video4linux/bttv/CARDLIST on your system for a list of some of them.'''

== Analog Cameras ==

Any regular composite or S-video camera connected via a supported capture card. Some analog cameras feature camera control - ZM supports several of these camera's Pan/Tilt/Zoom functions via serial port control, as well as camera Presets, Focus, Iris, etc.
*[[PicturetelControlScript | PictureTel PTZ2N]].

== Network Cameras ==
For Network Cams to work they need to be able to stream MJPEG without the requirement of activex controls. If you see the requirement for the camera calls for IE then there is a good chance it may not work. The other option is to grab JPEG images if the camera supports that option which will work but at a lower frame rate.

Any network camera that allows access to single JPEG image grabs or '''some but not all''' multi-part JPEG feeds.

'''Full Compatibility '''

* [[Abus]] some

* [[Airlink 101]] some

* [[Apexis]] (APM-J011-WS, APM-J012-WS, possibly others)

* [[ArecontVision]] (AV3130M, probably other too)

* [[Axis]] All

* [[Astak Mole]] Some

* [[Brickcom]] These have been tested

* [[BSTI]] Some

* [[Cisco]] some

* [[D-Link]] Most

* [[Foscam]] (FI8908W, FI8904W, possibly others)

* [[Gadspot]] Most

* [[Geovision]] (GV-FE420, possibly others)

* [[Generic]] Only tested one

* [[hootoo]] Some

* [[Instar]] (IN-2905, possibly others)

* [[Level One]] some

* [[Linksys]] WVC-210 / WVC2300 / PVC2300 / WVC54GC

* [[Loftek]] Sentinel PTZ

* [[Maygion]] (IP-603, IP-604, possibly others)

* [[Rimax]] Some

* [[Sony]] Most

* [[TP-LINK]] Some

* [[Trendnet]] Most

* [[Y-Cam]] (Sharx Ip) Most

* [[Zavio]] Some

* [[Iguard]] IP390E

* [[x-vision]] Xvision cameras by y3k

* [[Zecumate]] JPT3815W

* [[7Links]](TM Trade Mark)

* [[Wanscam]](A Foscam clone)

* Remote systems, themselves running zoneminder, can be accessed as cameras using the Remote Path of '''/cgi-bin/nph-zms?mode=single&monitor=1&scale=100&maxfps=5&buffer=1000''' - where the monitor number is the correct camera on the remote system.

'''Single Jpeg Only'''

* [[Airlink 101]] some

* [[JVC]] some

* [[Panasonic]] some

* PLANET some

*[[Toshiba]] some

* [[Veo Observer IP NetCam]] most

*[[Vivotek]] All

'''Mpeg(ver1.24.0 and up)'''

*[[ABS_MegaCam]]

* [[Axis]] All

* [[ ACTi]] All

*[[Vivotek]] Most

'''Compatible with modifications'''

*[[Aviosys]] some

* [[Mobotix]] all

*[[Edimax]] some

* [[Conceptronic]] some

'''Compatible with problems'''

* [[Compro]] IP70. MPEG4 only, some reliability issues and general poor firmware quality.

* [[Grandtec]] [[Grandtec_WLAN_Camera|WLAN Camera]] WiFi or III - acceptable indoor quality, no infrared-filter (better nightvision) cheap!

* [[Intellinet]] IPCamera with the new firmware.

* Old Intellinet IPCamera (model MWNC-100) with this (http://www.zoneminder.com/forums/viewtopic.php?t=7500) protocol adapter.

* OvisLink AirLive WL-5400CAM

Useful link: Flash's IP Camera Database, with Zoneminder compatibility guide: http://digdilem.org/cameras

== Network Digitizers ==

Like Network Cameras, these devices produce a video stream - but they accept an analog video input from a camera or other video source.

* [[Synectics E100]] encoder
*The [[IP9100 | Aviosys IP9100, Models A, B and Plus]] has four analog video inputs. It produces a ZM compatible video stream from one of the inputs, which is selectable via an HTTP GET command. There might even be a control script for ZM that lets you select the active video input using ''ZM's Camera Control Presets!''

With the yoics Aviosys 9100 firmware at http://www.yoics.com/?p=28, ZoneMinder can directly access all four ports via /usr/yoicsX.jpg as the remote host path, where X is 0 - 3.

== USB Cameras ==

*Just Zoom USB cam

*Creative Webcam Pro, Webcam 3, LIVE! Cam OPTIA PRO (V4L2, Chan 0, PAL, YUYV)

*''Most'' UVCvideo cameras, including: [[Logitech QuickCam Express]], QuickCam Pro 3000, [[QuickCam Pro 4000]], QuickCam Communicate STX/Deluxe, and [[Logitech Webcam Pro 9000]]

*Logitech Quickcam Orbit/Sphere (experimental basic pan/tilt control has also published for testing and hacking [http://www.zoneminder.com/forums/viewtopic.php?t=9788])

*[[Philips]]

*Any OV511 based USB camera [http://alpha.dyndns.org/ov511/cameras.html]

*Any CPIA based USB camera [http://webcam.sourceforge.net]

*[[LabTec WebCam Pro]]

*Confirmed basic functionality with Microsoft Lifecam VX 5000 using UVC Streaming method

Note that most USB cameras that can use Video4Linux/V4L2, and so can be used by ZoneMinder. Some have older chipsets and can be hard to find new.

Note that PWC drivers are not included in the kernel. Some distribution's add them in and other may not. Here are some relevant links:
* [http://www.smcc.demon.nl/webcam/ Old Maintainer]
* [http://www.saillard.org/linux/pwc/ Current PWC Maintainer]

== X10 Devices ==
The only device that really needs to be compatable with ZM is the Transceiver, all other x10 devices comunicate through that device.
*[[CM11]] Bi-Directional Transceiver

Other X10 notes:

[http://www.zoneminder.com/forums/viewtopic.php?t=6423&highlight=x10 Topic 6423]

[http://www.zoneminder.com/forums/viewtopic.php?t=7082&highlight=x10 Topic 7082]

== All other hardware as supported by Linux ==
To find out if your hardware is supported, check the HCL at [http://www.linuxquestions.org/hcl/ linuxquestions.org]

[http://kmuto.jp/debian/hcl/ Debian]

[http://fedoraproject.org/wiki/HCL Fedora] [http://fedora-linux.nl/wiki/index.php/HCL Fedora Unofficial HCL]

[http://www.mandriva.com/hardware Mandriva]

[https://hardware.redhat.com/index.cgi RedHat]

[http://en.opensuse.org/Hardware Suse]

[http://doc.gwos.org/index.php/HCL Ubuntu]

== Links ==
* [http://www.macmanitou.de/mediawiki/index.php?title=Webcam_Manufacturer_Data Manufacturer Data]

== Plug Computers ==
Guruplug Server Plus -> How to install Zoneminder on it -> [http://plugcomputer.org/plugwiki/index.php/ZoneMinder PlugComputer Wiki Zoneminder Howto]