FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 09:16:53 +00:00
Code Issues Releases Wiki Activity

OWServer: set reopen added, STATE DISCONNECTED, Initialized added

Browse Source 
OWDevice: reading added to state

git-svn-id: https://svn.fhem.de/fhem/trunk@2369 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
borisneubert 2012-12-26 19:22:36 +00:00
parent dfc41a13c6
commit 8fb50fdfdb
2 changed files with 35 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
fhem/FHEM/10_OWServer.pm
View File

@ -1,4 +1,4 @@
# $Id: $ # $Id$
################################################################ ################################################################
# #
# Copyright notice # Copyright notice
@ -47,7 +47,7 @@ OWServer_Initialize($)
$hash->{DefFn} = "OWServer_Define"; $hash->{DefFn} = "OWServer_Define";
$hash->{UndefFn} = "OWServer_Undef"; $hash->{UndefFn} = "OWServer_Undef";
$hash->{GetFn} = "OWServer_Get"; $hash->{GetFn} = "OWServer_Get";
# $hash->{SetFn} = "OWServer_Set"; $hash->{SetFn} = "OWServer_Set";
# $hash->{AttrFn} = "OWServer_Attr"; # $hash->{AttrFn} = "OWServer_Attr";
$hash->{AttrList}= "loglevel:0,1,2,3,4,5"; $hash->{AttrList}= "loglevel:0,1,2,3,4,5";
} }
@ -70,9 +70,9 @@ OWServer_Define($$)
OWServer_CloseDev($hash); OWServer_CloseDev($hash);
$hash->{fhem}{Protocol}= $protocol; $hash->{fhem}{protocol}= $protocol;
OWServer_OpenDev($hash, $protocol); OWServer_OpenDev($hash);
return undef; return undef;
} }
@ -104,25 +104,32 @@ sub
OWServer_CloseDev($) OWServer_CloseDev($)
{ {
my ($hash) = @_; my ($hash) = @_;
my $name = $hash->{NAME};
return unless(defined($hash->{fhem}{owserver})); return unless(defined($hash->{fhem}{owserver}));
DoTrigger($name, "DISCONNECTED");
delete $hash->{fhem}{owserver}; delete $hash->{fhem}{owserver};
} }
######################## ########################
sub sub
OWServer_OpenDev($$) OWServer_OpenDev($)
{ {
my ($hash, $protocol) = @_; my ($hash) = @_;
my $name = $hash->{NAME}; my $name = $hash->{NAME};
OWServer_CloseDev($hash);
my $protocol= $hash->{fhem}{protocol};
Log 4, "$name: Opening connection to OWServer $protocol..."; Log 4, "$name: Opening connection to OWServer $protocol...";
my $owserver= OWNet->new($protocol); my $owserver= OWNet->new($protocol);
if($owserver) { if($owserver) {
Log 4, "$name: Successfully connected to $protocol."; Log 4, "$name: Successfully connected to $protocol.";
$hash->{fhem}{owserver}= $owserver; $hash->{fhem}{owserver}= $owserver;
DoTrigger($name, "CONNECTED") if($owserver); DoTrigger($name, "CONNECTED") if($owserver);
$hash->{STATE}= ""; # Allow InitDev to set the state
my $ret = OWServer_DoInit($hash);
} }
return $owserver return $owserver
} }
@ -190,6 +197,22 @@ OWServer_Get($@)
} }
##################################### #####################################
sub
OWServer_Set($@)
{
my ($hash, @a) = @_;
my $name = $a[0];
# usage check
#my $usage= "Usage: set $name classdef <classname> <filename> OR set $name reopen";
my $usage= "Unknown argument $a[1], choose one of reopen";
if((@a == 2) && ($a[1] eq "reopen")) {
return OWServer_OpenDev($hash);
}
return undef;
}
#####################################
1; 1;
@ -233,7 +256,10 @@ OWServer_Get($@)
<a name="OWServerset"></a> <a name="OWServerset"></a>
<b>Set</b> <b>Set</b>
<ul> <ul>
none <code>set &lt;name&gt; reopen</code>
<br><br>
Reopens the connection to the owserver.
<br><br>
</ul> </ul>
<br><br> <br><br>

4
fhem/FHEM/11_OWDevice.pm
View File

@ -1,4 +1,4 @@
# $Id: $ # $Id$
############################################################################## ##############################################################################
# #
# 11_OWDevice.pm # 11_OWDevice.pm
@ -116,7 +116,7 @@ OWDevice_ReadValue($$) {
my @getters= @{$hash->{fhem}{getters}}; my @getters= @{$hash->{fhem}{getters}};
Debug join(",", @getters); Debug join(",", @getters);
Debug $getters[0]; Debug $getters[0];
$hash->{STATE}= $value if($reading eq $getters[0]); $hash->{STATE}= "$reading: $value" if($reading eq $getters[0]);
return $value; return $value;
} }