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

new version because "Inteligenter Strom Zähler" and "Sparzähler" got a update from ENBW bzw. Yellow Strom.

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@4412 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
bentele 2013-12-18 09:19:09 +00:00
parent 61d929535e
commit b95f196aed
1 changed files with 93 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

101
fhem/FHEM/70_SML.pm
View File

@ -8,7 +8,7 @@
#
# $Id$
#
# Version = 2.1
# Version = 2.2
#
##############################################################################
#
@ -16,7 +16,7 @@
#
# If <interval> is positive, new values are read every <interval> seconds.
# If <interval> is 0, new values are read whenever a get request is called
# on <name>. The default for <interval> is 300 (i.e. 5 minutes).
# on <name>. The default for <interval> is 60 (i.e. 1 minutes).
#
# get <name> <key>
#
@ -34,7 +34,9 @@ my @gets = ('minPower', # min value
'DAYPOWER',
'MONTHPOWER',
'YEARPOWER',
'TOTALPOWER');
'TOTALPOWER',
'NT',
'HT');
sub
SML_Initialize($)
@ -93,7 +95,14 @@ energy_Define($$)
$hash->{Host} = $args[2];
$hash->{Port} = $args[3];
$hash->{Interval} = int(@args) >= 5 ? int($args[4]) : 300;
if ( int(@args) >= 5 ){
if ( int($args[4]) >= 100 ){
$hash->{Interval} = 100;
}else{
$hash->{Interval} = int($args[4]);
}
}
$hash->{Timeout} = int(@args) >= 6 ? int($args[5]) : 4;
#Log 4, "$hash->{NAME} will read from SML at $hash->{Host}:$hash->{Port} " ;
@ -120,6 +129,74 @@ Log3 $hash, 3, "$hash->{NAME} will read from SML at $hash->{Host}:$hash->{Port}
return undef;
}
sub
energy_Counter($)
{
my ($hash) = @_;
my $ip = $hash->{Host};
my $port = $hash->{Port};
my $interval = $hash->{Interval};
my $timeout = $hash->{Timeout};
my $url = "/?action=20";
my $socket ;
my $buf ;
my $message ;
my @array ;
my $counts = 0 ;
my $HT = 0;
my $NT = 0;
Log3 $hash, 4, "$hash->{NAME} $ip : $port : $url";
$socket = new IO::Socket::INET (
PeerAddr => $ip,
PeerPort => $port,
Proto => 'tcp',
Reuse => 0,
Timeout => $timeout
);
Log3 $hash, 4, "$hash->{NAME} socket new";
if (defined ($socket) and $socket and $socket->connected())
{
Log3 $hash, 4, "$hash->{NAME} Connected ...";
print $socket "GET $url HTTP/1.0\r\n\r\n";
$socket->autoflush(1);
while ((read $socket, $buf, 1024) > 0)
{
Log 5,"buf: $buf";
$message .= $buf;
}
}else{
Log3 $hash, 3, "$hash->{NAME} Cannot open socket ...";
$success = 1;
return 0;
}
@array = split(/\n/,$message);
foreach (@array){
if ( $_ =~ /^<h3>(.*)HT:(.*)$/){
$HT = 1;
}
if ( $HT == 1 ){
if ( $_ =~ /^<h3>(.*) kWh<\/h3>(.*)$/){
$HT = $1;
$counts = 0;
}
}
if ( $_ =~ /^<h3>(.*)NT:(.*)$/){
$NT = 1;
}
if ( $NT == 1 ){
if ( $_ =~ /^<h3>(.*) kWh<\/h3>(.*)$/){
$NT = $1;
$counts = 0;
}
}
}
$hash->{READINGS}{HT}{VAL} = $HT;
$hash->{READINGS}{NT}{VAL} = $NT;
Log3 $hash, 3, "$hash->{NAME} HT = $HT NT = $NT";
return "HT: $HT kWh NT: $NT kWh";
}
sub
energy_Update($)
{
@ -142,7 +219,8 @@ energy_Update($)
my $timeout = $hash->{Timeout};
my $counts = 0 ;
my $summary = 0 ;
my $url = "/InstantView/request/getPowerProfile.html?ts=0\&n=$interval\&param=Wirkleistung\&format=1";
#my $url = "/InstantView/request/getPowerProfile.html?ts=0\&n=$interval\&param=Wirkleistung\&format=1";
my $url = "/InstantView/request/getPowerProfile.html?ts=0\&n=$interval";
my $socket ;
my $buf ;
my $message ;
@ -317,14 +395,17 @@ energy_Update($hash) unless $hash->{Interval};
my $get = $args[1];
my $val = $hash->{Invalid};
if ( $get eq "counter"){
$val = energy_Counter($hash);
}
if (defined($hash->{READINGS}{$get})) {
$val = $hash->{READINGS}{$get}{VAL};
} else {
return "energy_Get: no such reading: $get";
}
if ( $get eq "?"){
return "Unknown argument ?, choose one of minPower maxPower lastPower avgPower DAYPOWER MONTHPOWER YEARPOWER TOTALPOWER";
return "Unknown argument ?, choose one of counter minPower maxPower lastPower avgPower DAYPOWER MONTHPOWER YEARPOWER TOTALPOWER";
}
Log3 $hash, 3, "$args[0] $get => $val";
return $val;
@ -350,14 +431,14 @@ energy_Undef($$)
<h3>SML</h3>
<ul><p>
This module supports "Intelligenter Strom Zhler"(ENBW) and "Sparzhler" (Yellow Strom).<br>
The electricity meter will be polled in a defined interval for new values.
The electricity meter will be polled in a defined interval (1-100) for new values.
</p>
<b>Define</b><br>
<code>define &lt;name&gt; SML &lt;host&gt; &lt;port&gt; [&lt;interval&gt; &lt;timeout&gt;]</code><br>
<p>
Example:<br>
define StromZ1 SML 192.168.178.20 <br>
define StromZ2 SML 192.168.10.25 300 60 <br>
define StromZ2 SML 192.168.10.25 60 60 <br>
</p>
<b>Set</b><br>