FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-12 22:56:34 +00:00
Code Issues Releases Wiki Activity

Added support for temperature sensors connected on an Allnet 4000 device.

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@657 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
sachag 2010-07-21 07:53:24 +00:00
parent 3dcf20ec44
commit afa7b7af32
2 changed files with 149 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

131
fhem/FHEM/88_ALL4000T.pm Normal file
View File

@ -0,0 +1,131 @@
################################################################
#
# Copyright notice
#
# (c) 2010 Sacha Gloor (sacha@imp.ch)
#
# 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.
#
# This copyright notice MUST APPEAR in all copies of the script!
#
################################################################
package main;
use strict;
use warnings;
use XML::Simple;
use Data::Dumper;
use LWP::UserAgent;
use HTTP::Request;
sub Log($$);
#####################################
sub
ALL4000T_Initialize($)
{
my ($hash) = @_;
# Consumer
$hash->{DefFn} = "ALL4000T_Define";
$hash->{AttrList}= "model:ALL4000T delay loglevel:0,1,2,3,4,5,6";
}
#####################################
sub
ALL4000T_Define($$)
{
my ($hash, $def) = @_;
my $name=$hash->{NAME};
my @a = split("[ \t][ \t]*", $def);
Log 5, "ALL4000T Define: $a[0] $a[1] $a[2] $a[3] $a[4]";
return "Define the host as a parameter i.e. ALL4000T" if(@a < 4);
my $host = $a[2];
my $host_port = $a[3];
my $delay=$a[4];
$attr{$name}{delay}=$delay if $delay;
Log 1, "ALL4000T device is none, commands will be echoed only" if($host eq "none");
$hash->{Host} = $host;
$hash->{Host_Port} = $host_port;
$hash->{STATE} = "Initialized";
Log 4,"$name: Delay $delay";
InternalTimer(gettimeofday()+$delay, "ALL4000T_GetStatus", $hash, 0);
return undef;
}
#####################################
sub
ALL4000T_GetStatus($)
{
my ($hash) = @_;
my $buf;
if(!defined($hash->{Host_Port})) { return(""); }
Log 5, "ALL4000T_GetStatus";
my $name = $hash->{NAME};
my $host = $hash->{Host};
my $host_port = $hash->{Host_Port};
my $text='';
my $err_log='';
my $delay=$attr{$name}{delay}||300;
InternalTimer(gettimeofday()+$delay, "ALL4000T_GetStatus", $hash, 0);
my $xml = new XML::Simple;
my $URL="http://".$host."/xml";
my $agent = LWP::UserAgent->new(env_proxy => 1,keep_alive => 1, timeout => 30);
my $header = HTTP::Request->new(GET => $URL);
my $request = HTTP::Request->new('GET', $URL, $header);
my $response = $agent->request($request);
$err_log.= "Can't get $URL -- ".$response->status_line
unless $response->is_success;
if($err_log ne "")
{
Log GetLogLevel($name,2), "ALL4000T ".$err_log;
return("");
}
my $body = $response->content;
my $data = $xml->XMLin($body);
my $current=$data->{BODY}->{FORM}->{TEXTAREA}->{xml}->{data}->{$host_port};
$text="T: ".$current;
my $sensor="temperature";
Log 4,"$name: $text";
if (!$hash->{local}){
$hash->{CHANGED}[0] = $text;
$hash->{READINGS}{$sensor}{TIME} = TimeNow();
$hash->{READINGS}{$sensor}{VAL} = $current." (Celsius)";;
DoTrigger($name, undef) if($init_done);
}
$hash->{STATE} = $text;
return($text);
}
1;

18
fhem/docs/commandref.html
View File

@ -69,6 +69,7 @@
<a href="#global">global</a><br>
<a href="#ALL3076">ALL3076</a> &nbsp;
<a href="#ALL4000T">ALL4000T</a> &nbsp;
<a href="#BS">BS</a> &nbsp;
<a href="#CM11">CM11</a> &nbsp;
<a href="#CUL">CUL</a> &nbsp;
@ -2926,6 +2927,23 @@ A line ending with \ will be concatenated with the next one, so long lines
<li>Toggle is special implemented. List name returns "on" or "off" even after a toggle command</li>
</ul>
</ul>
<a name="ALL4000T"></a>
<h3>ALL4000T</h3>
<ul>
<a name="ALL4000Tdefine"></a>
<b>Define</b>
<ul>
<code>define &lt;name&gt; ALL4000T &lt;ip-address&gt; &lt;port&gt; &lt;delay&gt;</code>
<br><br>
Defines a temperature sensor connected on an Allnet 4000 device via its ip address and port. Use the delay argument to define the delay between polls.<br><br>
Examples:
<ul>
<code>define AUSSEN.POOL.TEMP.vorlauf ALL4000T 192.168.68.20 t2 120</code><br>
</ul>
</ul>
<br>
</ul>
<a name="BS"></a>
<h3>BS</h3>