FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-13 23:36:37 +00:00
Code Issues Releases Wiki Activity

By Peter

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@1832 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
rudolfkoenig 2012-09-09 08:44:02 +00:00
parent 32fa79103c
commit 8e81ef6964
1 changed files with 118 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

118
fhem/contrib/58_SecvestIP.pm Normal file
View File

@ -0,0 +1,118 @@
#####################################################################
# #
# SecvestIP.pm written by Peter J. Flathmann #
# Version 0.1, 2012-09-07 #
# SecvestIP firmware version 2.3.4 #
# #
# #
# Usage: define <name> SecvestIP <hostname> <user> <password> #
# #
# #
# Example: #
# #
# define EMA SecvestIP secvestip admin geheimesKennwort #
# #
# define Alarmanlage dummy #
# attr Alarmanlage alias SecvestIP #
# attr Alarmanlage eventMap on:on off:off #
# #
# define AlarmanlageScharf notify Alarmanlage:on set EMA Set #
# define AlarmanlageUnscharf notify Alarmanlage:off set EMA Unset #
# #
#####################################################################
package main;
use strict;
use warnings;
use POSIX;
use LWP::UserAgent;
use HTTP::Cookies;
sub
SecvestIP_Initialize($)
{
my ($hash) = @_;
$hash->{DefFn} = "SecvestIP_Define";
$hash->{SetFn} = "SecvestIP_Set";
$hash->{GetFn} = "SecvestIP_Get";
}
sub SecvestIP_Get($@) {
my ($hash,@a) = @_;
my $url = 'http://'.$hash->{HOST}.'/';
my $agent = LWP::UserAgent->new(
cookie_jar => HTTP::Cookies->new,
requests_redirectable => [ 'GET', 'HEAD', 'POST' ]
);
# Login
my $response = $agent->post( $url."login.cgi", {
Language => 'deutsch',
UserName => $hash->{USER},
Password => $hash->{PASSWORD}}
);
$response = $agent->get ($url.'getMode.cgi?ts='.time().'&Action=AudioAlarm&Source=Webpage');
my @pairs = split(/\s+/,$response->content);
my @state = split('=',$pairs[0]);
$hash->{STATE} = $state[1];
return undef;
}
sub SecvestIP_Set($$$) {
my ($hash, $name ,$cmd) = @_;
Log 1, "SecvestIP: Set $name $cmd";
return "Unknown argument $cmd, choose one of Set Unset PartSet" if ("?" eq $cmd);
my $url = 'http://'.$hash->{HOST}.'/';
my $agent = LWP::UserAgent->new(
cookie_jar => HTTP::Cookies->new,
requests_redirectable => [ 'GET', 'HEAD', 'POST' ]
);
# Login
my $response = $agent->post( $url."login.cgi", {
Language => 'deutsch',
UserName => $hash->{USER},
Password => $hash->{PASSWORD}}
);
$response = $agent->get ($url.'setMode.cgi?Mode='.$cmd.'&Source=Webpage&ts='.time() );
$hash->{STATE} = $cmd;
return undef;
}
sub SecvestIP_Define($$) {
my ($hash, $def) = @_;
Log 1, "SecvestIP: define $def";
my @a = split("[ \t][ \t]*", $def);
return "syntax: define <name> SecvestIP <hostname> <user> <password>" if (int(@a) != 5);
$hash->{STATE} = "Initialized";
$hash->{NAME} = $a[0];
$hash->{HOST} = $a[2];
$hash->{USER} = $a[3];
$hash->{PASSWORD} = $a[4];
SecvestIP_Get($hash);
return undef;
}
1;