mhop/fhem
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

state:Set,Unset,PartSet als Antwort auf set <device> ? (kosmetisch)

Browse Source 
git-svn-id: https://fhem.svn.sourceforge.net/svnroot/fhem/trunk/fhem@1847 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
fladdy
2012-09-13 17:09:24 +00:00
parent 58ce2c1955
commit d65cfce03a
1 changed files with 17 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

30
contrib/58_SecvestIP.pm
View File

@@ -2,6 +2,7 @@
# # # #
# SecvestIP.pm written by Peter J. Flathmann # # SecvestIP.pm written by Peter J. Flathmann #
# Version 0.1, 2012-09-07 # # Version 0.1, 2012-09-07 #
# Version 0.2, 2012-09-13 #
# SecvestIP firmware version 2.3.4 # # SecvestIP firmware version 2.3.4 #
# # # #
# # # #
@@ -11,13 +12,7 @@
# Example: # # Example: #
# # # #
# define EMA SecvestIP secvestip admin geheimesKennwort # # define EMA SecvestIP secvestip admin geheimesKennwort #
# # # attr EMA webCmd state #
# 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 #
# # # #
##################################################################### #####################################################################
@@ -28,19 +23,20 @@ use POSIX;
use LWP::UserAgent; use LWP::UserAgent;
use HTTP::Cookies; use HTTP::Cookies;
sub sub SecvestIP_Initialize($) {
SecvestIP_Initialize($)
{
my ($hash) = @_; my ($hash) = @_;
$hash->{DefFn} = "SecvestIP_Define"; $hash->{DefFn} = "SecvestIP_Define";
$hash->{SetFn} = "SecvestIP_Set"; $hash->{SetFn} = "SecvestIP_Set";
$hash->{GetFn} = "SecvestIP_Get"; $hash->{GetFn} = "SecvestIP_Get";
return undef;
} }
sub SecvestIP_Get($@) { sub SecvestIP_Get($) {
my ($hash,@a) = @_; my ($hash) = @_;
my $url = 'http://'.$hash->{HOST}.'/'; my $url = 'http://'.$hash->{HOST}.'/';
@@ -71,7 +67,11 @@ sub SecvestIP_Set($$$) {
my ($hash, $name ,$cmd) = @_; my ($hash, $name ,$cmd) = @_;
Log 1, "SecvestIP: Set $name $cmd"; Log 1, "SecvestIP: Set $name $cmd";
return "Unknown argument $cmd, choose one of Set Unset PartSet" if ("?" eq $cmd);
if ("?" eq $cmd) {
SecvestIP_Get($hash);
return "Unknown argument $cmd, choose one of state:Set,Unset,PartSet";
}
my $url = 'http://'.$hash->{HOST}.'/'; my $url = 'http://'.$hash->{HOST}.'/';
@@ -88,6 +88,10 @@ sub SecvestIP_Set($$$) {
); );
$response = $agent->get ($url.'setMode.cgi?Mode='.$cmd.'&Source=Webpage&ts='.time() ); $response = $agent->get ($url.'setMode.cgi?Mode='.$cmd.'&Source=Webpage&ts='.time() );
readingsBeginUpdate($hash);
readingsUpdate($hash, 'state', $cmd);
readingsEndUpdate($hash, 1);
$hash->{STATE} = $cmd; $hash->{STATE} = $cmd;
return undef; return undef;