mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 18:59:33 +00:00
777 lines
26 KiB
Perl
777 lines
26 KiB
Perl
# $Id$
|
|
# vim: ts=2:et
|
|
################################################################
|
|
#
|
|
# (c) 2012 Copyright: Martin Fischer (m_fischer at gmx dot de)
|
|
# All rights reserved
|
|
#
|
|
# This script 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.
|
|
#
|
|
# The GNU General Public License can be found at
|
|
# http://www.gnu.org/copyleft/gpl.html.
|
|
# A copy is found in the textfile GPL.txt and important notices to the license
|
|
# from the author is found in LICENSE.txt distributed with these scripts.
|
|
#
|
|
# This script 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.
|
|
#
|
|
################################################################
|
|
|
|
package main;
|
|
use strict;
|
|
use warnings;
|
|
|
|
sub IPCAM_getSnapshot($);
|
|
sub IPCAM_guessFileFormat($);
|
|
|
|
my %gets = (
|
|
"image" => "",
|
|
"last" => "",
|
|
"snapshots" => "",
|
|
);
|
|
|
|
my %sets = (
|
|
"cmd" => "",
|
|
"pan" => "left,right",
|
|
"pos" => "",
|
|
"tilt" => "up,down",
|
|
"raw" => "",
|
|
);
|
|
|
|
#####################################
|
|
sub
|
|
IPCAM_Initialize($$)
|
|
{
|
|
my ($hash) = @_;
|
|
|
|
$hash->{DefFn} = "IPCAM_Define";
|
|
$hash->{UndefFn} = "IPCAM_Undef";
|
|
$hash->{GetFn} = "IPCAM_Get";
|
|
$hash->{SetFn} = "IPCAM_Set";
|
|
$hash->{AttrList} = "basicauth delay credentials path pathCmd pathPanTilt query snapshots storage timestamp:0,1 ".
|
|
"cmdPanLeft cmdPanRight cmdTiltUp cmdTiltDown cmdStep ".
|
|
"cmdPos01 cmdPos02 cmdPos03 cmdPos04 cmdPos05 cmdPos06 cmdPos07 cmdPos08 ".
|
|
"cmdPos09 cmdPos10 cmdPos11 cmdPos12 cmdPos13 cmdPos14 cmdPos15 cmdPosHome ".
|
|
"cmd01 cmd02 cmd03 cmd04 cmd05 cmd06 cmd07 cmd08 ".
|
|
"cmd09 cmd10 cmd11 cmd12 cmd13 cmd14 cmd15 ".
|
|
"do_not_notify:1,0 showtime:1,0 ".
|
|
"loglevel:0,1,2,3,4,5,6 disable:0,1 ".
|
|
$readingFnAttributes;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
IPCAM_Define($$) {
|
|
my ($hash, $def) = @_;
|
|
|
|
# define <name> IPCAM <camip:port>
|
|
# define webcam IPCAM 192.168.1.58:81
|
|
|
|
my @a = split("[ \t][ \t]*", $def);
|
|
|
|
return "Wrong syntax: use 'define <name> IPCAM <camip:port>'"
|
|
if(@a != 3);
|
|
|
|
my $name = $a[0];
|
|
my $auth = $a[2];
|
|
|
|
$hash->{AUTHORITY} = $auth;
|
|
$hash->{STATE} = "Defined";
|
|
$hash->{SEQ} = 0;
|
|
|
|
return undef;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
IPCAM_Undef($$) {
|
|
my ($hash, $name) = @_;
|
|
|
|
delete($modules{IPCAM}{defptr}{$hash->{NAME}});
|
|
RemoveInternalTimer($hash);
|
|
|
|
return undef;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
IPCAM_Set($@) {
|
|
my ($hash, @a) = @_;
|
|
my $name = $hash->{NAME};
|
|
my @camCmd;
|
|
|
|
# check argument
|
|
return "Unknown argument $a[1], choose one of ".join(" ", sort keys %sets)
|
|
if(!defined($sets{$a[1]}));
|
|
|
|
shift @a;
|
|
my $cmd = $a[0];
|
|
shift @a;
|
|
my @args = @a;
|
|
|
|
if($cmd eq "pan" || $cmd eq "tilt") {
|
|
|
|
# check syntax
|
|
return "argument is missing for $cmd"
|
|
if(int(@args) < 1);
|
|
|
|
return "Unknown argument $args[0], choose one of ".join(" ", split(",",$sets{$cmd}))
|
|
if($sets{$cmd} !~ /$args[0]/);
|
|
|
|
return "Command for '$cmd $args[0]' is not defined. Please add this attribute first: " .
|
|
"'attr $name cmd".ucfirst($cmd).ucfirst($args[0])." <your_camera_command>'"
|
|
if(!defined(AttrVal($name,"cmd".ucfirst($cmd).ucfirst($args[0]),undef)));
|
|
|
|
return "Wrong argument $args[1], only one digit for a step size is allowed"
|
|
if(defined($args[1]) && $args[1] !~ /\d+/);
|
|
|
|
return "Command for 'step' is not defined. Please add this attribute first: " .
|
|
"'attr $name cmdStep <your_camera_command>'"
|
|
if(defined($args[1]) && !defined(AttrVal($name,"cmdStep",undef)));
|
|
|
|
push(@camCmd,$attr{$name}{"cmd".ucfirst($cmd).ucfirst($args[0])});
|
|
push(@camCmd,$attr{$name}{"cmdStep"}."=".$args[1])
|
|
if(defined($args[1]));
|
|
|
|
} elsif($cmd eq "pos") {
|
|
|
|
# check syntax
|
|
return "argument is missing for $cmd"
|
|
if(int(@args) < 1);
|
|
|
|
return "Wrong argument $args[0], only digits from 1 to 15 or home are allowed"
|
|
if(defined($args[0]) && $args[0] !~ /^([1-9]|1[0-5])$/ && $args[0] ne "home");
|
|
|
|
my $arg = ($args[0] =~ /\d+/) ? sprintf("cmdPos%02d",$args[0]) : "cmdPosHome";
|
|
return "Command for '$cmd $args[0]' is not defined. Please add this attribute first: " .
|
|
"'attr $name $arg <your_camera_command>'"
|
|
if(!defined($attr{$name}{$arg}));
|
|
|
|
push(@camCmd,$attr{$name}{$arg});
|
|
|
|
} elsif($cmd eq "cmd") {
|
|
|
|
# check syntax
|
|
return "argument is missing for $cmd"
|
|
if(int(@args) < 1);
|
|
|
|
return "Wrong argument $args[0], only digits from 1 to 15 are allowed"
|
|
if(defined($args[0]) && $args[0] !~ /^([1-9]|1[0-5])$/);
|
|
|
|
my $arg = sprintf("cmd%02d",$args[0]);
|
|
return "Command for '$cmd $args[0]' is not defined. Please add this attribute first: " .
|
|
"'attr $name $arg <your_camera_command>'"
|
|
if(!defined($attr{$name}{$arg}));
|
|
|
|
push(@camCmd,$attr{$name}{$arg});
|
|
|
|
} elsif($cmd eq "raw") {
|
|
|
|
# check syntax
|
|
return "argument is missing for $cmd"
|
|
if(int(@args) < 1);
|
|
|
|
my $arg = "@args";
|
|
push(@camCmd,$arg);
|
|
|
|
}
|
|
|
|
if(@camCmd) {
|
|
my $camAuth = $hash->{AUTHORITY};
|
|
my $basicauth = (defined($attr{$name}{basicauth}) ? $attr{$name}{basicauth} : undef);
|
|
my $camURI;
|
|
my $camPath = (defined($attr{$name}{path}) ? $attr{$name}{path} : undef);
|
|
my $camQuery = join("&",@camCmd);
|
|
|
|
if(($cmd eq "pan" || $cmd eq "tilt" || $cmd =~ /pos/) &&
|
|
defined($attr{$name}{pathPanTilt})) {
|
|
$camPath = $attr{$name}{pathPanTilt};
|
|
} elsif($cmd eq "cmd" && defined($attr{$name}{pathCmd})) {
|
|
$camPath = $attr{$name}{pathCmd};
|
|
} elsif($cmd eq "raw") {
|
|
$camPath = $camQuery;
|
|
} else {
|
|
$camPath = $attr{$name}{path};
|
|
}
|
|
|
|
return "Missing a path value for camURI. Please set attribute 'path', 'pathCmd' and/or 'pathPanTilt' first."
|
|
if(!$camPath && $cmd ne "raw");
|
|
|
|
if($basicauth) {
|
|
$camURI = "http://$basicauth" . "@" . "$camAuth/$camPath";
|
|
} else {
|
|
$camURI = "http://$camAuth/$camPath";
|
|
}
|
|
|
|
if($cmd eq "cmd" && defined($attr{$name}{pathCmd})) {
|
|
$camURI .= "?$camQuery";
|
|
} elsif($cmd ne "raw") {
|
|
$camURI .= "&$camQuery";
|
|
}
|
|
|
|
if($camURI =~ m/{USERNAME}/ || $camURI =~ m/{PASSWORD}/) {
|
|
|
|
if(defined($attr{$name}{credentials})) {
|
|
if(!open(CFG, $attr{$name}{credentials})) {
|
|
Log 1, "IPCAM $name Cannot open credentials file: $attr{$name}{credentials}";
|
|
return undef;
|
|
}
|
|
my @cfg = <CFG>;
|
|
close(CFG);
|
|
my %credentials;
|
|
eval join("", @cfg);
|
|
$camURI =~ s/{USERNAME}/$credentials{$name}{username}/g;
|
|
$camURI =~ s/{PASSWORD}/$credentials{$name}{password}/g;
|
|
}
|
|
}
|
|
|
|
my $camret = GetFileFromURLQuiet($camURI);
|
|
Log 5, "ipcam return:$camret";
|
|
|
|
}
|
|
|
|
return undef;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
IPCAM_Get($@) {
|
|
my ($hash, @a) = @_;
|
|
my $modpath = $attr{global}{modpath};
|
|
my $name = $hash->{NAME};
|
|
my $seqImages;
|
|
my $seqDelay;
|
|
my $seqWait;
|
|
my $storage = (defined($attr{$name}{storage}) ? $attr{$name}{storage} : "$modpath/www/snapshots");
|
|
|
|
# check syntax
|
|
return "argument is missing @a"
|
|
if(int(@a) != 2);
|
|
# check argument
|
|
return "Unknown argument $a[1], choose one of ".join(" ", sort keys %gets)
|
|
if(!defined($gets{$a[1]}));
|
|
# check attributes
|
|
return "Attribute 'path' is missing. Please add this attribute first!"
|
|
if(!defined($attr{$name}) || (defined($attr{$name}) && !defined($attr{$name}{path})));
|
|
return "Attribute 'path' is defined but empty."
|
|
if(defined($attr{$name}{path}) && $attr{$name}{path} eq "");
|
|
return "Attribute 'query' is defined but empty."
|
|
if(defined($attr{$name}{query}) && $attr{$name}{query} eq "");
|
|
|
|
# define default storage
|
|
if(!defined($attr{$name}{storage}) || $attr{$name}{storage} eq "") {
|
|
$attr{$name}{storage} = $storage;
|
|
}
|
|
|
|
if(! -d $storage) {
|
|
my $ret = mkdir "$storage";
|
|
if($ret == 0) {
|
|
Log 1, "ipcam Error while creating: $storage: $!";
|
|
return "Error while creating storagepath $storage: $!";
|
|
}
|
|
}
|
|
|
|
# get argument
|
|
my $arg = $a[1];
|
|
|
|
if($arg eq "image") {
|
|
|
|
$seqImages = int(defined($attr{$name}{snapshots}) ? $attr{$name}{snapshots} : 1);
|
|
$seqDelay = int(defined($attr{$name}{delay}) ? $attr{$name}{delay} : 0);
|
|
$seqWait = 0;
|
|
|
|
# housekeeping after number of sequence has changed
|
|
my $readings = $hash->{READINGS};
|
|
foreach my $r (sort keys %{$readings}) {
|
|
if($r =~ /snapshot\d+/) {
|
|
my $n = $r;
|
|
$n =~ s/snapshot//;
|
|
delete $readings->{$r} if( $r =~ m/snapshot/ && int($n) > $seqImages);
|
|
Log 5, "IPCAM $name remove old reading: $r";
|
|
|
|
}
|
|
}
|
|
$hash->{READINGS}{snapshots}{VAL} = 0;
|
|
for (my $i=0;$i<$seqImages;$i++) {
|
|
InternalTimer(gettimeofday()+$seqWait, "IPCAM_getSnapshot", $hash, 0);
|
|
$seqWait = $seqWait + $seqDelay;
|
|
}
|
|
return undef;
|
|
|
|
} elsif(defined($hash->{READINGS}{$arg})) {
|
|
|
|
if(defined($hash->{READINGS}{$arg}{VAL})) {
|
|
return "$name $arg => $hash->{READINGS}{$arg}{VAL}";
|
|
} else {
|
|
return "$name $arg => undef";
|
|
}
|
|
|
|
}
|
|
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
IPCAM_getSnapshot($) {
|
|
my ($hash) = @_;
|
|
my $name = $hash->{NAME};
|
|
my $camAuth = $hash->{AUTHORITY};
|
|
my $camURI;
|
|
my $camPath;
|
|
my $camQuery;
|
|
my $camCredentials;
|
|
my $imageFile;
|
|
my $imageFormat;
|
|
my $lastSnapshot;
|
|
my $snapshot;
|
|
my $dateTime;
|
|
my $modpath = $attr{global}{modpath};
|
|
my $seq = int(defined($hash->{SEQ}) ? $hash->{SEQ} : 0);
|
|
my $seqImages = int(defined($attr{$name}{snapshots}) ? $attr{$name}{snapshots} : 1);
|
|
my $seqF;
|
|
my $seqL = length($seqImages);
|
|
my $storage = (defined($attr{$name}{storage}) ? $attr{$name}{storage} : "$modpath/www/snapshots");
|
|
my $basicauth = (defined($attr{$name}{basicauth}) ? $attr{$name}{basicauth} : undef);
|
|
my $timestamp;
|
|
|
|
#if(!$storage) {
|
|
# RemoveInternalTimer($hash);
|
|
# return "Attribute 'storage' is missing. Please add this attribute first!";
|
|
#}
|
|
|
|
$camPath = $attr{$name}{path};
|
|
$camQuery = $attr{$name}{query}
|
|
if(defined($attr{$name}{query}) && $attr{$name}{query} ne "");
|
|
|
|
if($basicauth) {
|
|
$camURI = "http://$basicauth" . "@" . "$camAuth/$camPath";
|
|
} else {
|
|
$camURI = "http://$camAuth/$camPath";
|
|
}
|
|
$camURI .= "?$camQuery" if($camQuery);
|
|
|
|
if($camURI =~ m/{USERNAME}/ || $camURI =~ m/{PASSWORD}/) {
|
|
|
|
if(defined($attr{$name}{credentials})) {
|
|
if(!open(CFG, $attr{$name}{credentials})) {
|
|
Log 1, "IPCAM $name Cannot open credentials file: $attr{$name}{credentials}";
|
|
RemoveInternalTimer($hash);
|
|
return undef;
|
|
}
|
|
my @cfg = <CFG>;
|
|
close(CFG);
|
|
my %credentials;
|
|
eval join("", @cfg);
|
|
$camURI =~ s/{USERNAME}/$credentials{$name}{username}/;
|
|
$camURI =~ s/{PASSWORD}/$credentials{$name}{password}/;
|
|
}
|
|
}
|
|
|
|
$dateTime = TimeNow();
|
|
$timestamp = $dateTime;
|
|
$timestamp =~ s/ /_/g;
|
|
$timestamp =~ s/(:|-)//g;
|
|
|
|
$snapshot = GetFileFromURLQuiet($camURI);
|
|
|
|
$imageFormat = IPCAM_guessFileFormat(\$snapshot);
|
|
|
|
my @imageTypes = qw(JPEG PNG GIF TIFF BMP ICO PPM XPM XBM SVG);
|
|
|
|
if( ! grep { $_ eq "$imageFormat"} @imageTypes) {
|
|
Log 1, "IPCAM $name Wrong or not supported image format: $imageFormat";
|
|
RemoveInternalTimer($hash);
|
|
return undef;
|
|
}
|
|
|
|
Log GetLogLevel($name,5), "IPCAM $name Image Format: $imageFormat";
|
|
|
|
readingsBeginUpdate($hash);
|
|
if($seq < $seqImages) {
|
|
$seq++;
|
|
$seqF = sprintf("%0${seqL}d",$seq);
|
|
$imageFormat = "JPG" if($imageFormat eq "JPEG");
|
|
|
|
$lastSnapshot = $name."_snapshot.".lc($imageFormat);
|
|
if(defined($attr{$name}{timestamp}) && $attr{$name}{timestamp} == 1) {
|
|
$imageFile = $name."_".$timestamp.".".lc($imageFormat);
|
|
} else {
|
|
$imageFile = $name."_snapshot_".$seqF.".".lc($imageFormat);
|
|
}
|
|
if(!open(FH, ">$storage/$lastSnapshot")) {
|
|
Log 1, "IPCAM $name Can't write $storage/$lastSnapshot: $!";
|
|
RemoveInternalTimer($hash);
|
|
readingsEndUpdate($hash, defined($hash->{LOCAL} ? 0 : 1));
|
|
return undef;
|
|
}
|
|
print FH $snapshot;
|
|
close(FH);
|
|
Log 5, "IPCAM $name snapshot $storage/$lastSnapshot written.";
|
|
if(!open(FH, ">$storage/$imageFile")) {
|
|
Log 1, "IPCAM $name Can't write $storage/$imageFile: $!";
|
|
RemoveInternalTimer($hash);
|
|
readingsEndUpdate($hash, defined($hash->{LOCAL} ? 0 : 1));
|
|
return undef;
|
|
}
|
|
print FH $snapshot;
|
|
close(FH);
|
|
Log 5, "IPCAM $name snapshot $storage/$imageFile written.";
|
|
readingsBulkUpdate($hash,"last",$lastSnapshot);
|
|
$hash->{STATE} = "last: $dateTime";
|
|
$hash->{READINGS}{"snapshot$seqF"}{TIME} = $dateTime;
|
|
$hash->{READINGS}{"snapshot$seqF"}{VAL} = $imageFile;
|
|
}
|
|
|
|
Log GetLogLevel($name,4), "IPCAM $name image: $imageFile";
|
|
|
|
if($seq == $seqImages) {
|
|
readingsBulkUpdate($hash,"snapshots",$seq);
|
|
$seq = 0;
|
|
}
|
|
readingsEndUpdate($hash, defined($hash->{LOCAL} ? 0 : 1));
|
|
$hash->{SEQ} = $seq;
|
|
|
|
return undef;
|
|
}
|
|
|
|
#####################################
|
|
sub
|
|
IPCAM_guessFileFormat($) {
|
|
my ($src) = shift;
|
|
my $header;
|
|
my $srcHeader;
|
|
|
|
open(my $s, "<", $src) || return "can't open source image: $!";
|
|
$src = $s;
|
|
|
|
my $reading = read($src, $srcHeader, 64);
|
|
return "error while reading source image: $!" if(!$reading);
|
|
|
|
local($_) = $srcHeader;
|
|
return "JPEG" if /^\xFF\xD8/;
|
|
return "PNG" if /^\x89PNG\x0d\x0a\x1a\x0a/;
|
|
return "GIF" if /^GIF8[79]a/;
|
|
return "TIFF" if /^MM\x00\x2a/;
|
|
return "TIFF" if /^II\x2a\x00/;
|
|
return "BMP" if /^BM/;
|
|
return "ICO" if /^\000\000\001\000/;
|
|
return "PPM" if /^P[1-6]/;
|
|
return "XPM" if /(^\/\* XPM \*\/)|(static\s+char\s+\*\w+\[\]\s*=\s*{\s*"\d+)/;
|
|
return "XBM" if /^(?:\/\*.*\*\/\n)?#define\s/;
|
|
return "SVG" if /^(<\?xml|[\012\015\t ]*<svg\b)/;
|
|
return "unknown";
|
|
}
|
|
|
|
# vim: ts=2:et
|
|
|
|
1;
|
|
|
|
=pod
|
|
=begin html
|
|
|
|
<a name="IPCAM"></a>
|
|
<h3>IPCAM</h3>
|
|
<ul>
|
|
<br>
|
|
|
|
<a name"IPCAMdefine"></a>
|
|
<strong>Define</strong>
|
|
<ul>
|
|
<code>define <name> IPCAM <ip[:port]></code>
|
|
<br>
|
|
<br>
|
|
Defines a network camera device to trigger snapshots on events.
|
|
<br>
|
|
<br>
|
|
Network cameras (IP cameras) usually have a build-in function to create
|
|
snapshot images. This module enables the event- or time-controlled
|
|
recording of these images.
|
|
<br>
|
|
In addition, this module allows the recording of many image formats like
|
|
JPEG, PNG, GIF, TIFF, BMP, ICO, PPM, XPM, XBM and SVG. The only requirement
|
|
is that the recorded image must be accessible via a URL.
|
|
<br>
|
|
So it is also possible to record images of e.g. a public Weather Camera
|
|
from the internet or any picture of a website.
|
|
<br>
|
|
Furthermore, it is possible to control the camera via PTZ-mode or custom commands.
|
|
<br>
|
|
<br>
|
|
Examples:
|
|
<br>
|
|
<br>
|
|
A local ip-cam takes 5 snapshots with 10 seconds delay per call:
|
|
<br>
|
|
<ul>
|
|
<code>define ipcam IPCAM 192.168.1.205</code><br>
|
|
<code>attr ipcam delay 10</code><br>
|
|
<code>attr ipcam path snapshot.cgi?user=foo&pwd=bar</code><br>
|
|
<code>attr ipcam snapshots 5</code><br>
|
|
<code>attr ipcam storage /srv/share/surveillance/snapshots</code><br>
|
|
</ul>
|
|
<br>
|
|
A notify on a motion detection of a specified device:
|
|
<br>
|
|
<ul>
|
|
<code>define MOTION.not.01 notify GH.ga.SEC.MD.01:.*on.* get ipcam image</code><br>
|
|
</ul>
|
|
<br>
|
|
Send an eMail after snapshots are taken:
|
|
<br>
|
|
<ul>
|
|
<code>define MOTION.not.02 notify ipcam:.*snapshots.* { myEmailFunction("%NAME") }</code><br>
|
|
</ul>
|
|
<br>
|
|
A public web-cam takes only 1 snapshot per call:
|
|
<br>
|
|
<ul>
|
|
<code>define schloss IPCAM www2.braunschweig.de</code><br>
|
|
<code>attr schloss path webcam/schloss.jpg</code><br>
|
|
<code>attr schloss storage /srv/share/surveillance/snapshots</code><br>
|
|
</ul>
|
|
<br>
|
|
An at-Job takes every hour a snapshot:
|
|
<br>
|
|
<ul>
|
|
<code>define snapshot_schloss at +*00:01:00 get schloss image</code><br>
|
|
</ul>
|
|
<br>
|
|
Move the camera up:
|
|
<br>
|
|
<ul>
|
|
<code>set ipcam tilt up</code>
|
|
</ul>
|
|
<br>
|
|
Move the camera to a the predefined position 4:
|
|
<br>
|
|
<ul>
|
|
<code>set ipcam pos 4</code>
|
|
</ul>
|
|
</ul>
|
|
<br>
|
|
<br>
|
|
<a name="IPCAMset"></a>
|
|
<strong>Set</strong>
|
|
<ul>
|
|
<code>set <name> <value> <argument></code>
|
|
<br>
|
|
<br>
|
|
where <code>value</code> is one of:
|
|
<br>
|
|
<ul>
|
|
<li><code>cmd 1 .. 15</code><br>
|
|
Sets the camera to a custom defined command. The command must be defined as an
|
|
attribute first.
|
|
<br>
|
|
You can define up to 15 custom commands. The given number always relates to an
|
|
equivalent attribute <code>cmd<number></code>.
|
|
</li>
|
|
<li><code>pan <direction> [steps]</code><br>
|
|
Move the camera to the given <code><direction></code>, where <code><direction></code>
|
|
could be <code>left</code> or <code>right</code>.
|
|
<br>
|
|
The command always relates to an equivalent attribute <code>cmdPan<direction></code>.
|
|
<br>
|
|
Furthermore, a step size can be specified, which relates to the equivalent attribute
|
|
<code>cmdStep</code>.
|
|
</li>
|
|
<li><code>pos 1 .. 15|home</code><br>
|
|
Sets the camera to a custom defined position in PTZ mode. The position must be
|
|
defined as an attribute first.
|
|
<br>
|
|
You can define up to 15 custom positions and a predefined home position. The given
|
|
number always relates to an equivalent attribute <code>cmdPos<number></code>.
|
|
</li>
|
|
<li><code>tilt <direction> [steps]</code><br>
|
|
Move the camera to the given <code><direction></code>, where <code><direction></code>
|
|
could be <code>up</code> or <code>down</code>.
|
|
<br>
|
|
The command always relates to an equivalent attribute <code>cmdPan<direction></code>.
|
|
<br>
|
|
Furthermore, a step size can be specified, which relates to the equivalent attribute
|
|
<code>cmdStep</code>.
|
|
</li>
|
|
<li><code>raw <argument></code><br>
|
|
Sets the camera to a custom defined <code>argument</code>.
|
|
</li>
|
|
</ul>
|
|
</ul>
|
|
<br>
|
|
<br>
|
|
<a name="IPCAMget"></a>
|
|
<strong>Get</strong>
|
|
<ul>
|
|
<code>get <name> <value></code>
|
|
<br>
|
|
<br>
|
|
where <code>value</code> is one of:
|
|
<br>
|
|
<ul>
|
|
<li><code>image</code><br>
|
|
Get one or more images of the defined IP-Cam. The number of images<br>
|
|
and the time interval between images can be specified using the<br>
|
|
attributes <code>snapshots</code> and <code>delay</code>.
|
|
</li>
|
|
<li><code>last</code><br>
|
|
Show the name of the last snapshot.
|
|
</li>
|
|
<li><code>snapshots</code><br>
|
|
Show the total number of a image sequence.
|
|
</li>
|
|
</ul>
|
|
</ul>
|
|
<br>
|
|
|
|
<a name="IPCAMattr"></a>
|
|
<strong>Attributes</strong>
|
|
<ul>
|
|
<li>
|
|
basicauth<br>
|
|
If your camera supports authentication like <code>http://username:password@domain.com/</code>, you
|
|
can store your creditials within the <code>basicauth</code> attribute.<br>
|
|
If you prefer to store the credentials in a file (take a look at the attribute <code>credentials</code>)
|
|
you have to set the placeholder <code>{USERNAME}</code> and <code>{PASSWORD}</code> in the basicauth string.
|
|
These placeholders will be replaced with the values from the credentials file.<br>
|
|
Example:<br> <code>attr ipcam3 basicauth {USERNAME}:{PASSWORD}</code>
|
|
</li>
|
|
<li>
|
|
cmd01, cmd02, cmd03, .. cmd13, cdm14, cdm15<br>
|
|
It is possible to define up to 15 custom commands.<br>
|
|
Examples:<br>
|
|
<code>attr ipcam cmd01 led_mode=0</code><br>
|
|
<code>attr ipcam cmd02 resolution=8</code><br>
|
|
</li>
|
|
<li>
|
|
cmdPanLeft, cmdPanRight, cmdTiltUp, cmdTiltDown, cmdStep<br>
|
|
Depending of the camera model, are different commands necessary.<br>
|
|
Examples:<br>
|
|
<code>attr ipcam cmdTiltUp command=0</code><br>
|
|
<code>attr ipcam cmdTiltDown command=2</code><br>
|
|
<code>attr ipcam cmdPanLeft command=4</code><br>
|
|
<code>attr ipcam cmdPanRight command=6</code><br>
|
|
<code>attr ipcam cmdStep onstep</code><br>
|
|
</li>
|
|
<li>
|
|
cmdPos01, cmdPos02, cmdPos03, .. cmdPos13, cmdPos14, cmdPos15, cmdPosHome
|
|
It is possible to define up to 15 predefined position in PTZ-mode.<br>
|
|
Examples:<br>
|
|
<code>attr ipcam cmdPosHome command=25</code><br>
|
|
<code>attr ipcam cmdPos01 command=31</code><br>
|
|
<code>attr ipcam cmdPos02 command=33</code><br>
|
|
</li>
|
|
<li>
|
|
credentials<br>
|
|
Defines the location of the credentials file.<br>
|
|
If you prefer to store your cam credentials in a file instead be a part of the
|
|
URI (see attributes <code>path</code> and <code>query</code>), set the full path
|
|
with filename on this attribute.<br>
|
|
Example:<br>
|
|
<code>attr ipcam3 credentials /etc/fhem/ipcam.conf</code><br><br>
|
|
|
|
The credentials file has the following structure:<br>
|
|
<pre>
|
|
#
|
|
# Webcam credentials
|
|
#
|
|
$credentials{<name_cam1>}{username} = "<your_username>";
|
|
$credentials{<name_cam1>}{password} = "<your_password>";
|
|
$credentials{<name_cam2>}{username} = "<your_username>";
|
|
$credentials{<name_cam2>}{password} = "<your_password>";
|
|
...
|
|
</pre>
|
|
Replace <code><name_cam1></code> respectively <code><name_cam2></code>
|
|
with the names of your defined ip-cams and <code><your_username></code> respectively
|
|
<code><your_password></code> with your credentials (all without the brackets
|
|
<code><</code> and <code>></code>!).
|
|
</li>
|
|
<li>
|
|
delay<br>
|
|
Defines the time interval between snapshots in seconds.<br>
|
|
If more then one snapshot is taken, then it makes sense to define a short delay
|
|
between the snapshots. On the one hand, the camera is not addressed in short intervals
|
|
and the second may be better represented movements between images.<br>
|
|
Example: <code>attr ipcam3 delay 10</code>
|
|
</li>
|
|
<li><a href="#disable">disable</a></li>
|
|
<li><a href="#do_not_notify">do_not_notify</a></li>
|
|
<li><a href="#loglevel">loglevel</a></li>
|
|
<li><a href="#readingFnAttributes">readingFnAttributes</a></li>
|
|
<li>
|
|
path<br>
|
|
Defines the path and query component of the complete <a href="http://de.wikipedia.org/wiki/Uniform_Resource_Identifier" target="_blank">URI</a> to get a snapshot of the
|
|
camera. Is the full URI of your ip-cam for example <code>http://CAMERA_IP/snapshot.cgi?user=admin&pwd=password</code>,
|
|
then only the path and query part is specified here (without the leading slash (/).<br>
|
|
Example:<br>
|
|
<code>attr ipcam3 path snapshot.cgi?user=admin&pwd=password</code><br><br>
|
|
|
|
If you prefer to store the credentials in a file (take a look at the attribute <code>credentials</code>)
|
|
you have to set the placeholder <code>{USERNAME}</code> and <code>{PASSWORD}</code> in the path string. These placeholders
|
|
will be replaced with the values from the credentials file.<br>
|
|
Example:<br>
|
|
<code>attr ipcam3 path snapshot.cgi?user={USERNAME}&pwd={PASSWORD}</code>
|
|
</li>
|
|
<li>
|
|
pathCmd<br>
|
|
Defines a path for the custom commands, if it is necessary.<br>
|
|
Example:<br>
|
|
<code>attr ipcam3 pathCmd set_misc.cgi</code>
|
|
</li>
|
|
<li>
|
|
pathPanTilt<br>
|
|
Defines a path for the PTZ-mode commands <code>pan</code>, <code>tilt</code> and <code>pos</code>,
|
|
if it is necessary.<br>
|
|
Example:<br>
|
|
<code>attr ipcam3 pathPanTilt decoder_control.cgi?user={USERNAME}&pwd={PASSWORD}</code>
|
|
</li>
|
|
<li><a href="#showtime">showtime</a></li>
|
|
<li>
|
|
snapshots<br>
|
|
Defines the total number of snapshots to be taken with the <code>get <name> image</code> command.
|
|
If this attribute is not defined, then the default value is 1.<br>
|
|
The snapshots are stored in the given path of the attribute <code>storage</code> and are
|
|
numbered sequentially (starts with 1) like <code>snapshot_01</code>, <code>snapshot_02</code>, etc.
|
|
Furthermore, an additional file <code>last</code> will be saved, which is identical with
|
|
the last snapshot-image. The module checks the imagetype and stores all these files with
|
|
the devicename and a correct extension, e.g. <code><devicename>_snapshot_01.jpg</code>.<br>
|
|
If you like a timestamp instead a sequentially number, take a look at the attribute <code>timestamp</code>.<br>
|
|
All files are overwritten on every <code>get <name> image</code> command (except: snapshots
|
|
with a timestamp. So, keep an eye on your diskspace if you use a timestamp extension!).<br>
|
|
Example:<br>
|
|
<code>attr ipcam3 snapshots 5</code>
|
|
</li>
|
|
<li>
|
|
storage<br>
|
|
Defines the location for the file storage of the snapshots.<br>
|
|
Default: <code>$modpath/www/snapshots</code><br>
|
|
Example:<br>
|
|
<code>attr ipcam3 storage /srv/share/surveillance/snapshots</code>
|
|
</li>
|
|
<li>
|
|
timestamp<br>
|
|
If this attribute is unset or set to 0, snapshots are stored with a sequentially number
|
|
like <code><devicename>_snapshot_01.jpg</code>, <code><devicename>_snapshot_02.jpg</code>, etc.<br>
|
|
If you like filenames with a timestamp postfix, e.g. <code><devicename>_20121023_002602.jpg</code>,
|
|
set this attribute to 1.
|
|
</li>
|
|
</ul>
|
|
<br>
|
|
|
|
<a name="IPCAMevents"></a>
|
|
<strong>Generated events</strong>
|
|
<ul>
|
|
<li>last: <name_of_device>_snapshot.<image_extension></li>
|
|
<li>snapshots: <total_number_of_taken_snapshots_at_end></li>
|
|
</ul>
|
|
<br>
|
|
|
|
</ul>
|
|
|
|
=end html
|
|
=cut
|
|
|