ZoneMinder
/
zoneminder
mirror of https://github.com/ZoneMinder/zoneminder.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

Using the full path for ZM_VERSION. Using "Control Device" value for user/password.

pull/289/head
Dmitry Katsubo 2013-12-30 13:22:40 +01:00
parent 3fb76eaf35
commit 20dd76b354
1 changed files with 37 additions and 34 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

71
scripts/ZoneMinder/lib/ZoneMinder/Control/FI8908W.pm
View File

@ -20,9 +20,6 @@
# #
# ========================================================================== # ==========================================================================
# #
# This module contains the implementation of the Foscam FI8908W / FI8918W IP camera control
# protocol
#
package ZoneMinder::Control::FI8908W; package ZoneMinder::Control::FI8908W;
use 5.006; use 5.006;
@ -34,8 +31,6 @@ require ZoneMinder::Control;
our @ISA = qw(ZoneMinder::Control); our @ISA = qw(ZoneMinder::Control);
our $VERSION = $ZoneMinder::Base::VERSION;
# ========================================================================== # ==========================================================================
# #
# Foscam FI8908W IP Control Protocol # Foscam FI8908W IP Control Protocol
@ -47,16 +42,11 @@ use ZoneMinder::Config qw(:all);
use Time::HiRes qw( usleep ); use Time::HiRes qw( usleep );
# To rotate camera one needs "operator" privileges:
our $user = 'operator';
our $pass = 'secretpassword';
sub new sub new
{ {
my $class = shift; my $class = shift;
my $id = shift; my $id = shift;
my $self = ZoneMinder::Control->new( $id ); my $self = ZoneMinder::Control->new( $id );
my $logindetails = "";
bless( $self, $class ); bless( $self, $class );
srand( time() ); srand( time() );
return $self; return $self;
@ -85,7 +75,7 @@ sub open
use LWP::UserAgent; use LWP::UserAgent;
$self->{ua} = LWP::UserAgent->new; $self->{ua} = LWP::UserAgent->new;
$self->{ua}->agent( "ZoneMinder Control Agent/".ZM_VERSION ); $self->{ua}->agent( "ZoneMinder Control Agent/".ZoneMinder::Base::ZM_VERSION );
$self->{state} = 'open'; $self->{state} = 'open';
} }
@ -110,6 +100,17 @@ sub sendCmd
my $self = shift; my $self = shift;
my $cmd = shift; my $cmd = shift;
my $result = undef; my $result = undef;
my ($user, $password) = split /:/, $self->{Monitor}->{ControlDevice};
if ( !defined $password ) {
# If value of "Control device" does not consist of two parts, then only password is given and we fallback to default user:
$password = $user;
$user = 'admin';
}
$cmd .= "user=$user&pwd=$password";
printMsg( $cmd, "Tx" ); printMsg( $cmd, "Tx" );
my $req = HTTP::Request->new( GET=>"http://".$self->{Monitor}->{ControlAddress}."/$cmd" ); my $req = HTTP::Request->new( GET=>"http://".$self->{Monitor}->{ControlAddress}."/$cmd" );
@ -121,7 +122,7 @@ sub sendCmd
} }
else else
{ {
Error( "Error check failed:'".$res->status_line()."'" ); Error( "Error check failed: '".$res->status_line()."' for URL ".$req->uri() );
} }
return( $result ); return( $result );
@ -131,8 +132,7 @@ sub reset
{ {
my $self = shift; my $self = shift;
Debug( "Camera Reset" ); Debug( "Camera Reset" );
my $cmd = "reboot.cgi?user=$user&pwd=$pass"; $self->sendCmd( 'reboot.cgi?' );
$self->sendCmd( $cmd );
} }
#Up Arrow #Up Arrow
@ -140,8 +140,7 @@ sub moveConUp
{ {
my $self = shift; my $self = shift;
Debug( "Move Up" ); Debug( "Move Up" );
my $cmd = "decoder_control.cgi?command=0&user=$user&pwd=$pass"; $self->sendCmd( 'decoder_control.cgi?command=0&' );
$self->sendCmd( $cmd );
} }
#Down Arrow #Down Arrow
@ -149,8 +148,7 @@ sub moveConDown
{ {
my $self = shift; my $self = shift;
Debug( "Move Down" ); Debug( "Move Down" );
my $cmd = "decoder_control.cgi?command=2&user=$user&pwd=$pass"; $self->sendCmd( 'decoder_control.cgi?command=2&' );
$self->sendCmd( $cmd );
} }
#Left Arrow #Left Arrow
@ -158,8 +156,7 @@ sub moveConLeft
{ {
my $self = shift; my $self = shift;
Debug( "Move Left" ); Debug( "Move Left" );
my $cmd = "decoder_control.cgi?command=6&user=$user&pwd=$pass"; $self->sendCmd( 'decoder_control.cgi?command=6&' );
$self->sendCmd( $cmd );
} }
#Right Arrow #Right Arrow
@ -167,8 +164,7 @@ sub moveConRight
{ {
my $self = shift; my $self = shift;
Debug( "Move Right" ); Debug( "Move Right" );
my $cmd = "decoder_control.cgi?command=4&user=$user&pwd=$pass"; $self->sendCmd( 'decoder_control.cgi?command=4&' );
$self->sendCmd( $cmd );
} }
#Diagonally Up Right Arrow #Diagonally Up Right Arrow
@ -176,8 +172,7 @@ sub moveConUpRight
{ {
my $self = shift; my $self = shift;
Debug( "Move Diagonally Up Right" ); Debug( "Move Diagonally Up Right" );
my $cmd = "decoder_control.cgi?command=90&user=$user&pwd=$pass"; $self->sendCmd( 'decoder_control.cgi?command=90&' );
$self->sendCmd( $cmd );
} }
#Diagonally Down Right Arrow #Diagonally Down Right Arrow
@ -185,8 +180,7 @@ sub moveConDownRight
{ {
my $self = shift; my $self = shift;
Debug( "Move Diagonally Down Right" ); Debug( "Move Diagonally Down Right" );
my $cmd = "decoder_control.cgi?command=92&user=$user&pwd=$pass"; $self->sendCmd( 'decoder_control.cgi?command=92&' );
$self->sendCmd( $cmd );
} }
#Diagonally Up Left Arrow #Diagonally Up Left Arrow
@ -194,8 +188,7 @@ sub moveConUpLeft
{ {
my $self = shift; my $self = shift;
Debug( "Move Diagonally Up Left" ); Debug( "Move Diagonally Up Left" );
my $cmd = "decoder_control.cgi?command=91&user=$user&pwd=$pass"; $self->sendCmd( 'decoder_control.cgi?command=91&' );
$self->sendCmd( $cmd );
} }
#Diagonally Down Left Arrow #Diagonally Down Left Arrow
@ -203,8 +196,7 @@ sub moveConDownLeft
{ {
my $self = shift; my $self = shift;
Debug( "Move Diagonally Down Left" ); Debug( "Move Diagonally Down Left" );
my $cmd = "decoder_control.cgi?command=93&user=$user&pwd=$pass"; $self->sendCmd( 'decoder_control.cgi?command=93&' );
$self->sendCmd( $cmd );
} }
#Stop #Stop
@ -212,8 +204,7 @@ sub moveStop
{ {
my $self = shift; my $self = shift;
Debug( "Move Stop" ); Debug( "Move Stop" );
my $cmd = "decoder_control.cgi?user=$user&pwd=$pass&command=1"; $self->sendCmd( 'decoder_control.cgi?command=1&' );
$self->sendCmd( $cmd );
} }
#Move Camera to Home Position #Move Camera to Home Position
@ -221,8 +212,20 @@ sub presetHome
{ {
my $self = shift; my $self = shift;
Debug( "Home Preset" ); Debug( "Home Preset" );
my $cmd = "decoder_control.cgi?command=25&user=$user&pwd=$pass"; $self->sendCmd( 'decoder_control.cgi?command=25&' );
$self->sendCmd( $cmd );
} }
1; 1;
__END__
=pod
=head1 DESCRIPTION
This module contains the implementation of the Foscam FI8908W / FI8918W IP camera control
protocol.
The module uses "Control Device" value to retrieve user and password. User and password should
be separated by colon, e.g. user:password. If colon is not provided, then "admin" is used
as a fallback value for the user.
=cut