mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 12:49:34 +00:00
50_HP1000: initial commit
git-svn-id: https://svn.fhem.de/fhem/trunk@9883 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jpawlowski
parent
f8412f97ae
commit
c61162a293
@ -1,5 +1,6 @@
|
|||||||
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
|
# Add changes at the top of the list. Keep it in ASCII, and 80-char wide.
|
||||||
# Do not insert empty lines here, update check depends on it.
|
# Do not insert empty lines here, update check depends on it.
|
||||||
|
- feature: 50_HP1000: new module to support HP1000 weather station
|
||||||
- feature: new module 53_GHoma.pm added (klausw)
|
- feature: new module 53_GHoma.pm added (klausw)
|
||||||
- feature: 14_CUL_REDIRECT: Rename 14_CUL_OTHER to 14_CUL_REDIRECT
|
- feature: 14_CUL_REDIRECT: Rename 14_CUL_OTHER to 14_CUL_REDIRECT
|
||||||
- bugfix: 00_SIGNALduino:
|
- bugfix: 00_SIGNALduino:
|
||||||
|
|||||||
271
fhem/FHEM/50_HP1000.pm
Executable file
271
fhem/FHEM/50_HP1000.pm
Executable file
@ -0,0 +1,271 @@
|
|||||||
|
# $Id: 50_HP1000.pm 9516 2015-10-18 11:50:22Z loredo $
|
||||||
|
##############################################################################
|
||||||
|
#
|
||||||
|
# 50_HP1000.pm
|
||||||
|
# An FHEM Perl module to receive data from HP1000 weather stations.
|
||||||
|
#
|
||||||
|
# Copyright by Julian Pawlowski
|
||||||
|
# e-mail: julian.pawlowski at gmail.com
|
||||||
|
#
|
||||||
|
# This file is part of fhem.
|
||||||
|
#
|
||||||
|
# Fhem 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.
|
||||||
|
#
|
||||||
|
# Fhem 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.
|
||||||
|
#
|
||||||
|
# You should have received a copy of the GNU General Public License
|
||||||
|
# along with fhem. If not, see <http://www.gnu.org/licenses/>.
|
||||||
|
#
|
||||||
|
##############################################################################
|
||||||
|
|
||||||
|
package main;
|
||||||
|
|
||||||
|
use strict;
|
||||||
|
use warnings;
|
||||||
|
use vars qw(%data);
|
||||||
|
use HttpUtils;
|
||||||
|
use Time::Local;
|
||||||
|
use Data::Dumper;
|
||||||
|
|
||||||
|
no if $] >= 5.017011, warnings => 'experimental::smartmatch';
|
||||||
|
|
||||||
|
sub HP1000_Define($$);
|
||||||
|
sub HP1000_Undefine($$);
|
||||||
|
|
||||||
|
#########################
|
||||||
|
sub HP1000_addExtension($$$) {
|
||||||
|
my ( $name, $func, $link ) = @_;
|
||||||
|
|
||||||
|
my $url = "/$link";
|
||||||
|
Log3 $name, 2, "Registering HP1000 $name for URL $url...";
|
||||||
|
$data{FWEXT}{$url}{deviceName} = $name;
|
||||||
|
$data{FWEXT}{$url}{FUNC} = $func;
|
||||||
|
$data{FWEXT}{$url}{LINK} = $link;
|
||||||
|
}
|
||||||
|
|
||||||
|
#########################
|
||||||
|
sub HP1000_removeExtension($) {
|
||||||
|
my ($link) = @_;
|
||||||
|
|
||||||
|
my $url = "/$link";
|
||||||
|
my $name = $data{FWEXT}{$url}{deviceName};
|
||||||
|
Log3 $name, 2, "Unregistering HP1000 $name for URL $url...";
|
||||||
|
delete $data{FWEXT}{$url};
|
||||||
|
}
|
||||||
|
|
||||||
|
###################################
|
||||||
|
sub HP1000_Initialize($) {
|
||||||
|
my ($hash) = @_;
|
||||||
|
|
||||||
|
Log3 $hash, 5, "HP1000_Initialize: Entering";
|
||||||
|
|
||||||
|
$hash->{DefFn} = "HP1000_Define";
|
||||||
|
$hash->{UndefFn} = "HP1000_Undefine";
|
||||||
|
$hash->{AttrList} = $readingFnAttributes;
|
||||||
|
}
|
||||||
|
|
||||||
|
###################################
|
||||||
|
sub HP1000_Define($$) {
|
||||||
|
|
||||||
|
my ( $hash, $def ) = @_;
|
||||||
|
|
||||||
|
my @a = split( "[ \t]+", $def, 5 );
|
||||||
|
|
||||||
|
return "Usage: define <name> HP1000 [<ID> <PASSWORD>]"
|
||||||
|
if ( int(@a) < 2 );
|
||||||
|
my $name = $a[0];
|
||||||
|
$hash->{ID} = $a[2] if (defined($a[2]));
|
||||||
|
$hash->{PASSWORD} = $a[3] if (defined($a[3]));
|
||||||
|
|
||||||
|
return "Device already defined: " . $modules{HP1000}{defptr}{NAME}
|
||||||
|
if (defined($modules{HP1000}{defptr}));
|
||||||
|
|
||||||
|
$hash->{fhem}{infix} = "updateweatherstation.php";
|
||||||
|
|
||||||
|
# create global unique device definition
|
||||||
|
$modules{HP1000}{defptr} = $hash;
|
||||||
|
|
||||||
|
HP1000_addExtension( $name, "HP1000_CGI", "updateweatherstation.php" );
|
||||||
|
|
||||||
|
return undef;
|
||||||
|
}
|
||||||
|
|
||||||
|
###################################
|
||||||
|
sub HP1000_Undefine($$) {
|
||||||
|
|
||||||
|
my ( $hash, $name ) = @_;
|
||||||
|
|
||||||
|
HP1000_removeExtension( $hash->{fhem}{infix} );
|
||||||
|
|
||||||
|
# release global unique device definition
|
||||||
|
delete $modules{HP1000}{defptr};
|
||||||
|
|
||||||
|
return undef;
|
||||||
|
}
|
||||||
|
|
||||||
|
############################################################################################################
|
||||||
|
#
|
||||||
|
# Begin of helper functions
|
||||||
|
#
|
||||||
|
############################################################################################################
|
||||||
|
|
||||||
|
###################################
|
||||||
|
sub HP1000_CGI() {
|
||||||
|
|
||||||
|
my ($request) = @_;
|
||||||
|
|
||||||
|
my $hash;
|
||||||
|
my $name = "";
|
||||||
|
my $link;
|
||||||
|
my $URI;
|
||||||
|
my $result = "";
|
||||||
|
my $webArgs;
|
||||||
|
|
||||||
|
# data received
|
||||||
|
if ( $request =~ m,^(/[^/]+?)(?:\&|\?)(.*)?$, ) {
|
||||||
|
$link = $1;
|
||||||
|
$URI = $2;
|
||||||
|
|
||||||
|
# get device name
|
||||||
|
$name = $data{FWEXT}{$link}{deviceName} if ( $data{FWEXT}{$link} );
|
||||||
|
|
||||||
|
# return error if no such device
|
||||||
|
return ( "text/plain; charset=utf-8",
|
||||||
|
"No HP1000 device for webhook $link" )
|
||||||
|
unless ($name);
|
||||||
|
|
||||||
|
# extract values from URI
|
||||||
|
foreach my $pv ( split( "&", $URI ) ) {
|
||||||
|
next if ( $pv eq "" );
|
||||||
|
$pv =~ s/\+/ /g;
|
||||||
|
$pv =~ s/%([\dA-F][\dA-F])/chr(hex($1))/ige;
|
||||||
|
my ( $p, $v ) = split( "=", $pv, 2 );
|
||||||
|
|
||||||
|
$webArgs->{$p} = $v;
|
||||||
|
}
|
||||||
|
|
||||||
|
return ("text/plain; charset=utf-8", "Insufficient data")
|
||||||
|
if (!defined($webArgs->{softwaretype}) || !defined($webArgs->{dateutc}) || !defined($webArgs->{ID}) || !defined($webArgs->{PASSWORD}) || !defined($webArgs->{action}))
|
||||||
|
}
|
||||||
|
|
||||||
|
# no data received
|
||||||
|
else {
|
||||||
|
return ( "text/plain; charset=utf-8", "Missing data" );
|
||||||
|
}
|
||||||
|
|
||||||
|
$hash = $defs{$name};
|
||||||
|
|
||||||
|
$hash->{SWVERSION} = $webArgs->{softwaretype};
|
||||||
|
$hash->{SYSTEMTIME_UTC} = $webArgs->{dateutc};
|
||||||
|
|
||||||
|
if (defined($hash->{ID}) && defined($hash->{PASSWORD}) && ($hash->{ID} ne $webArgs->{ID} || $hash->{PASSWORD} ne $webArgs->{PASSWORD})) {
|
||||||
|
Log3 $name, 4, "HP1000: received data containing wrong credentials:";
|
||||||
|
return ("text/plain; charset=utf-8", "Wrong credentials");
|
||||||
|
} else {
|
||||||
|
Log3 $name, 5, "HP1000: received data:\n" . Dumper($webArgs);
|
||||||
|
delete $webArgs->{ID};
|
||||||
|
delete $webArgs->{PASSWORD};
|
||||||
|
delete $webArgs->{dateutc};
|
||||||
|
delete $webArgs->{action};
|
||||||
|
delete $webArgs->{softwaretype};
|
||||||
|
}
|
||||||
|
|
||||||
|
readingsBeginUpdate($hash);
|
||||||
|
|
||||||
|
while ( (my $p, my $v) = each %$webArgs ) {
|
||||||
|
# ignore those values
|
||||||
|
next if ($v eq "");
|
||||||
|
|
||||||
|
# name translation
|
||||||
|
$p = "uv" if ($p eq "UV");
|
||||||
|
$p = "pressure_abs" if ($p eq "absbaro");
|
||||||
|
$p = "humidity_indoor" if ($p eq "inhumi");
|
||||||
|
$p = "temperature_indoor" if ($p eq "intemp");
|
||||||
|
$p = "humidity" if ($p eq "outhumi");
|
||||||
|
$p = "temperature" if ($p eq "outtemp");
|
||||||
|
$p = "rain" if ($p eq "rainrate");
|
||||||
|
$p = "pressure" if ($p eq "relbaro");
|
||||||
|
$p = "rain_day" if ($p eq "dailyrain");
|
||||||
|
$p = "rain_week" if ($p eq "weeklyrain");
|
||||||
|
$p = "rain_month" if ($p eq "monthlyrain");
|
||||||
|
$p = "rain_year" if ($p eq "yearlyrain");
|
||||||
|
|
||||||
|
# add to state
|
||||||
|
$result .= " " if ($result ne "");
|
||||||
|
$result .= "T:$v" if ($p eq "temperature");
|
||||||
|
$result .= "H:$v" if ($p eq "humidity");
|
||||||
|
$result .= "Tin:$v" if ($p eq "temperature_indoor");
|
||||||
|
$result .= "Hin:$v" if ($p eq "humidity_indoor");
|
||||||
|
$result .= "P:$v" if ($p eq "pressure");
|
||||||
|
$result .= "R:$v" if ($p eq "rain");
|
||||||
|
$result .= "L:$v" if ($p eq "light");
|
||||||
|
$result .= "UV:$v" if ($p eq "uv");
|
||||||
|
$result .= "WC:$v" if ($p eq "windchill");
|
||||||
|
$result .= "WD:$v" if ($p eq "winddir");
|
||||||
|
$result .= "WG:$v" if ($p eq "windgust");
|
||||||
|
$result .= "WS:$v" if ($p eq "windspeed");
|
||||||
|
|
||||||
|
readingsBulkUpdate( $hash, lc($p), $v );
|
||||||
|
}
|
||||||
|
|
||||||
|
readingsBulkUpdate( $hash, "state", $result );
|
||||||
|
readingsEndUpdate( $hash, 1 );
|
||||||
|
|
||||||
|
return ( "text/plain; charset=utf-8", "success" );
|
||||||
|
}
|
||||||
|
|
||||||
|
1;
|
||||||
|
|
||||||
|
=pod
|
||||||
|
|
||||||
|
=begin html
|
||||||
|
|
||||||
|
<p>
|
||||||
|
<a name="HP1000" id="HP1000"></a>
|
||||||
|
</p>
|
||||||
|
<h3>
|
||||||
|
HP1000
|
||||||
|
</h3>
|
||||||
|
<ul>
|
||||||
|
<li>Provides webhook receiver for weather station HP1000 of Fine Offset Electronics.<br>
|
||||||
|
There needs to be a dedicated FHEMWEB instance with attribute webname set to "weatherstation".<br>
|
||||||
|
No other name will work as it's hardcoded in the HP1000 device itself!<br>
|
||||||
|
<br>
|
||||||
|
As the URI has a fixed coding as well there can only be one single HP1000 station per FHEM installation.<br>
|
||||||
|
<br>
|
||||||
|
In your HP1000 device, make sure you use a DNS name as some revisions cannot handle IP addresses directly.<br>
|
||||||
|
You also wanna set server type to PHP and the server port you configured in your FHEMWEB instance just mentioned above.
|
||||||
|
</li>
|
||||||
|
</ul>
|
||||||
|
|
||||||
|
=end html
|
||||||
|
|
||||||
|
=begin html_DE
|
||||||
|
|
||||||
|
<p>
|
||||||
|
<a name="HP1000" id="HP1000"></a>
|
||||||
|
</p>
|
||||||
|
<h3>
|
||||||
|
HP1000
|
||||||
|
</h3>
|
||||||
|
<ul>
|
||||||
|
<li>Stellt einen Webhook für die HP1000 Wetterstation von Fine Offset Electronics bereit.<br>
|
||||||
|
Es muss noch eine dedizierte FHEMWEB Instanz angelegt werden, wo das Attribut webname auf "weatherstation" gesetzt wurde.<br>
|
||||||
|
Kein anderer Name funktioniert, da dieser hard im HP1000 Ger%auml;t hinterlegt ist!<br>
|
||||||
|
<br>
|
||||||
|
Da die URI ebenfalls fest kodiert ist, kann mit einer einzelnen FHEM Installation maximal eine HP1000 Station gleichzeitig verwendet werden.<br>
|
||||||
|
<br>
|
||||||
|
Im HP1000 Gerä muss sichergestellt sein, dass ein DNS Name statt einer IP Adresse verwendet wird, da einige Revisionen damit nicht umgehen können.<br>
|
||||||
|
Der Server-Typ muss außerdem auf PHP gesetzt und der Port passend zur oben genannten FHEMWEB Instanz eingestellt sein.
|
||||||
|
</li>
|
||||||
|
</ul>
|
||||||
|
|
||||||
|
=end html_DE
|
||||||
|
|
||||||
|
=cut
|
||||||
@ -643,3 +643,6 @@
|
|||||||
- Thu Nov 3 2015 (loredo)
|
- Thu Nov 3 2015 (loredo)
|
||||||
- removed deprecated wrapper module 75_MSG.pm. Users will need to replace device definitions by 75_MSGFile.pm or 75_MSGMail.pm respectively.
|
- removed deprecated wrapper module 75_MSG.pm. Users will need to replace device definitions by 75_MSGFile.pm or 75_MSGMail.pm respectively.
|
||||||
- added new FHEM command 'msg' to introduce integrated message routing functionality
|
- added new FHEM command 'msg' to introduce integrated message routing functionality
|
||||||
|
|
||||||
|
- Fri Nov 13 2015 (loredo)
|
||||||
|
- added new module 50_HP1000
|
||||||
@ -171,6 +171,7 @@ FHEM/46_TRX_LIGHT.pm wherzig http://forum.fhem.de RFXTRX
|
|||||||
FHEM/46_TRX_SECURITY.pm wherzig http://forum.fhem.de RFXTRX
|
FHEM/46_TRX_SECURITY.pm wherzig http://forum.fhem.de RFXTRX
|
||||||
FHEM/46_TRX_WEATHER.pm wherzig http://forum.fhem.de RFXTRX
|
FHEM/46_TRX_WEATHER.pm wherzig http://forum.fhem.de RFXTRX
|
||||||
FHEM/49_IPCAM.pm mfr69bs http://forum.fhem.de Sonstiges
|
FHEM/49_IPCAM.pm mfr69bs http://forum.fhem.de Sonstiges
|
||||||
|
FHEM/50_HP1000.pm loredo http://forum.fhem.de Heizungssteuerung/Raumklima
|
||||||
FHEM/50_WS300.pm Dirk http://forum.fhem.de SlowRF
|
FHEM/50_WS300.pm Dirk http://forum.fhem.de SlowRF
|
||||||
FHEM/50_TelegramBot.pm viegener http://forum.fhem.de Unterstuetzende Dienste
|
FHEM/50_TelegramBot.pm viegener http://forum.fhem.de Unterstuetzende Dienste
|
||||||
FHEM/51_I2C_BMP180.pm Dirk http://forum.fhem.de Einplatinencomputer
|
FHEM/51_I2C_BMP180.pm Dirk http://forum.fhem.de Einplatinencomputer
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user