From aa1aeeeca451d5683a9dd8f5c6cfe00c9207fa4c Mon Sep 17 00:00:00 2001
From: Dan Walkes <danwalkes@trellis-logic.com>
Date: Sat, 18 Feb 2017 17:14:59 -0700
Subject: [PATCH] Additional controls for FI8908W cameras

Mobile application ZM View uses relative move commands and presetGoto
commands which were not supported by the previous version of the script.

Add these commands based on documentation in
http://www.foscam.es/descarga/ipcam_cgi_sdk.pdf

Commands were tested on an FI8908W camera running version 11.37.2.65
firmware
---
 .../lib/ZoneMinder/Control/FI8908W.pm         | 49 +++++++++++++++++++
 1 file changed, 49 insertions(+)

diff --git a/scripts/ZoneMinder/lib/ZoneMinder/Control/FI8908W.pm b/scripts/ZoneMinder/lib/ZoneMinder/Control/FI8908W.pm
index de4d56346..9cf00d077 100644
--- a/scripts/ZoneMinder/lib/ZoneMinder/Control/FI8908W.pm
+++ b/scripts/ZoneMinder/lib/ZoneMinder/Control/FI8908W.pm
@@ -215,6 +215,55 @@ sub presetHome
     $self->sendCmd( 'decoder_control.cgi?command=25&' );
 }
 
+sub moveRelUp
+{
+    my $self = shift;
+    Debug( "Move Up" );
+    $self->sendCmd( 'decoder_control.cgi?command=0&onestep=1&' );
+}
+
+#Down Arrow
+sub moveRelDown
+{
+    my $self = shift;
+    Debug( "Move Down" );
+    $self->sendCmd( 'decoder_control.cgi?command=2&onestep=1&' );
+}
+
+#Left Arrow
+sub moveRelLeft
+{
+    my $self = shift;
+    Debug( "Move Left" );
+    $self->sendCmd( 'decoder_control.cgi?command=6&onestep=1&' );
+}
+
+#Right Arrow
+sub moveRelRight
+{
+    my $self = shift;
+    Debug( "Move Right" );
+    $self->sendCmd( 'decoder_control.cgi?command=4&onestep=1&' );
+}
+
+#Go to preset
+sub presetGoto
+{
+    my $self = shift;
+    my $params = shift;
+    my $preset = $self->getParam( $params, 'preset' );
+    my $result = undef;
+    if ( $preset > 0 && $preset <= 32 ) {
+        my $command=31+(($preset-1) * 2);
+        Debug( "Goto Preset $preset with command $command" );
+        $result=$self->sendCmd( 'decoder_control.cgi?command=' . $command . '&' );
+    }
+    else {
+        Error( "Unsupported preset $preset : must be between 1 and 32" );
+    }
+    return $result;
+}
+
 1;
 
 __END__