mirror of
https://github.com/fhem/fhem-mirror.git
synced 2025-01-31 06:39:11 +00:00
55_weco.pm - added new module to transmit weather data to www.wetter.com
git-svn-id: https://svn.fhem.de/fhem/trunk@5513 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
betateilchen
parent
5215c31f2f
commit
77d817fc1f
@ -1,6 +1,7 @@
|
||||
# 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.
|
||||
- SVN
|
||||
- added: new module 55_weco.pm (betateilchen)
|
||||
- added: new module 70_Jabber.pm (BioS)
|
||||
- bugfix: Dashboard: use "loadScript" for load JavaScripts
|
||||
- feature: new module 00_NetzerI2C.pm, 51_Netzer.pm added (klausw)
|
||||
|
||||
221
fhem/FHEM/55_weco.pm
Normal file
221
fhem/FHEM/55_weco.pm
Normal file
@ -0,0 +1,221 @@
|
||||
# $Id: $
|
||||
####################################################################################################
|
||||
#
|
||||
# 55_weco.pm
|
||||
#
|
||||
# Copyright: betateilchen ®
|
||||
# e-mail: fhem.development@betateilchen.de
|
||||
#
|
||||
# Based on an idea from Frank S. in fhem forum.
|
||||
#
|
||||
# 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 Time::HiRes qw(gettimeofday);
|
||||
use HttpUtils;
|
||||
|
||||
####################################################################################################
|
||||
#
|
||||
# Main routines
|
||||
#
|
||||
####################################################################################################
|
||||
|
||||
sub weco_Initialize($) {
|
||||
my ($hash) = @_;
|
||||
my $name = $hash->{NAME};
|
||||
my $found;
|
||||
|
||||
$hash->{DefFn} = "weco_Define";
|
||||
$hash->{UndefFn} = "weco_Undef";
|
||||
$hash->{AttrList} = "disable:0,1 ".
|
||||
"wecoInterval:600,1800,3600 wecotest:true,false ".
|
||||
"wecohu wecote wecodp wecopr wecopcv wecopcf wecowd wecows wecowsbft wecowg wecopa ".
|
||||
"wecopai wecopaest wecouv wecosd wecosc wecovi wecoch wecocm wecocl wecodc wecoww ".
|
||||
$readingFnAttributes;
|
||||
|
||||
}
|
||||
|
||||
sub weco_Define($$$) {
|
||||
my ($hash, $def) = @_;
|
||||
my @a = split("[ \t][ \t]*", $def);
|
||||
|
||||
return "syntax: define <name> weco <stationID> <password>" if(int(@a) != 4 );
|
||||
my $name = $hash->{NAME};
|
||||
|
||||
$hash->{helper}{stationid} = $a[2];
|
||||
$hash->{helper}{password} = $a[3];
|
||||
$hash->{helper}{softwareid} = 'fhem';
|
||||
$hash->{helper}{url} = "http://interface.wetterarchiv.de/weather/";
|
||||
|
||||
Log3($name, 4, "weco $name: created");
|
||||
readingsSingleUpdate($hash, "state", "defined",1);
|
||||
weco_send($hash);
|
||||
|
||||
return undef;
|
||||
}
|
||||
|
||||
sub weco_Undef($$) {
|
||||
my ($hash, $arg) = @_;
|
||||
RemoveInternalTimer($hash);
|
||||
return undef;
|
||||
}
|
||||
|
||||
sub weco_send($) {
|
||||
my ($hash, $local) = @_;
|
||||
my $name = $hash->{NAME};
|
||||
return if IsDisabled($name);
|
||||
|
||||
$local = 0 unless(defined($local));
|
||||
my $url = $hash->{helper}{url};
|
||||
$url .= "?id=". $hash->{helper}{stationid};
|
||||
$url .= "&pwd=". $hash->{helper}{password};
|
||||
$url .= "&sid=". $hash->{helper}{softwareid};
|
||||
$url .= "&dtutc=".strftime "%Y%m%d%H%M", gmtime;
|
||||
$url .= "&dt=". strftime "%Y%m%d%H%M", localtime;
|
||||
|
||||
$attr{$name}{wecoInterval} = 600 if(AttrVal($name,"wecoInterval",0) < 600);
|
||||
RemoveInternalTimer($hash);
|
||||
|
||||
my ($data, $d, $r, $o);
|
||||
my $a = $attr{$name};
|
||||
while ( my ($key, $value) = each($a) ) {
|
||||
next if substr($key,4,1) ~~ ["I"] ;
|
||||
$key = substr($key,4,length($key)-4);
|
||||
($d, $r, $o) = split(":", $value);
|
||||
if(defined($r)) {
|
||||
$o = 0 if(!defined($o));
|
||||
$value = ReadingsVal($d, $r, "") + $o;
|
||||
}
|
||||
$data .= "&$key=$value";
|
||||
}
|
||||
|
||||
Log3 ($name, 4, "weco $name data sent: $data");
|
||||
$url .= $data;
|
||||
my $response = GetFileFromURL($url);
|
||||
Log3 ($name, 4, "weco $name server response: $response");
|
||||
|
||||
readingsBeginUpdate($hash);
|
||||
readingsBulkUpdate($hash, "data", $data);
|
||||
readingsBulkUpdate($hash, "response", $response);
|
||||
readingsBulkUpdate($hash, "state", "active");
|
||||
readingsEndUpdate($hash, 1);
|
||||
|
||||
InternalTimer(gettimeofday()+$attr{$name}{wecoInterval}, "weco_send", $hash, 0) unless($local == 1);
|
||||
|
||||
return;
|
||||
}
|
||||
|
||||
1;
|
||||
|
||||
####################################################################################################
|
||||
#
|
||||
# Documentation
|
||||
#
|
||||
####################################################################################################
|
||||
#
|
||||
# Changelog:
|
||||
#
|
||||
# 2014-04-12 initial release
|
||||
#
|
||||
####################################################################################################
|
||||
|
||||
=pod
|
||||
=begin html
|
||||
|
||||
<a name="weco"></a>
|
||||
<h3>weco</h3>
|
||||
<ul>
|
||||
|
||||
<a name="wecodefine"></a>
|
||||
<b>Define</b>
|
||||
<ul>
|
||||
|
||||
<br/>
|
||||
<code>define <name> weco <stationId> <password></code>
|
||||
<br/><br/>
|
||||
This module provides connection to <a href="http://www.wetter.com">www.wetter.com</a></br>
|
||||
to send data from your own weather station.<br/>
|
||||
|
||||
</ul>
|
||||
<br/><br/>
|
||||
|
||||
<a name="wecoset"></a>
|
||||
<b>Set-Commands</b><br/>
|
||||
<ul>
|
||||
<br/>
|
||||
- not implemented -<br/>
|
||||
</ul>
|
||||
<br/><br/>
|
||||
|
||||
<a name="wecoget"></a>
|
||||
<b>Get-Commands</b><br/>
|
||||
<ul>
|
||||
<br/>
|
||||
- not implemented -<br/>
|
||||
</ul>
|
||||
<br/><br/>
|
||||
|
||||
<a name="wecoattr"></a>
|
||||
<b>Attributes</b><br/><br/>
|
||||
<ul>
|
||||
<li><a href="#readingFnAttributes">readingFnAttributes</a></li>
|
||||
<br/>
|
||||
<li><b>wecoInterval</b> - Interval (seconds) to send data to www.wetter.com
|
||||
Will be adjusted to 600 if set to a value lower than 600.</li>
|
||||
<li><b>wecotest</b> - If set to "true" data will not be stored on server. Used for development and testing.</li>
|
||||
<li><b>weco....</b> - Attribute name corresponding to <a href="http://support.wetter.com/attachments/token/titkme05m63xv8e/?name=2013-06-01+-+WeatherReport-API.de.pdf">parameter name from api.</a>
|
||||
Each of this attributes contains information about weather data to be sent in format
|
||||
<code>sensorName:readingName[:offset]</code><br/>
|
||||
Example: <code>attr weco wecote outside:temperature</code> will define the attribut wecote and <br/>
|
||||
reading "temperature" from device "outside" will be sent to network as paramater "te" (which indicates current temperature)<br/>
|
||||
Optional Parameter "offset" will be added to the read value
|
||||
(e.g. sometimes necessary to send dewpoint - use offset 273.15 if needed in Kelvin)
|
||||
</li>
|
||||
</ul>
|
||||
<br/><br/>
|
||||
|
||||
<b>Generated Readings/Events:</b>
|
||||
<br/><br/>
|
||||
<ul>
|
||||
<li><b>data</b> - data string transmitted to www.wetter.com</li>
|
||||
<li><b>response</b> - response string received from server</li>
|
||||
</ul>
|
||||
<br/><br/>
|
||||
|
||||
<b>Author's notes</b><br/><br/>
|
||||
<ul>
|
||||
<li>Find complete api description <a href="http://support.wetter.com/attachments/token/titkme05m63xv8e/?name=2013-06-01+-+WeatherReport-API.de.pdf">here</a></li>
|
||||
<li>Have fun!</li><br/>
|
||||
</ul>
|
||||
|
||||
</ul>
|
||||
|
||||
=end html
|
||||
=begin html_DE
|
||||
|
||||
<a name="weco"></a>
|
||||
<h3>weco</h3>
|
||||
<ul>
|
||||
Sorry, keine deutsche Dokumentation vorhanden.<br/><br/>
|
||||
Die englische Doku gibt es hier: <a href='http://fhem.de/commandref.html#weco'>weco</a><br/>
|
||||
</ul>
|
||||
=end html_DE
|
||||
=cut
|
||||
@ -132,6 +132,7 @@ FHEM/52_I2C_PCF8574 klausw http://forum.fhem.de FHEM Deve
|
||||
FHEM/52_I2C_SHT21 klausw http://forum.fhem.de FHEM Developement/Sonstige Systeme
|
||||
FHEM/55_GDS.pm betateilchen http://forum.fhem.de Unterstuetzende Dienste
|
||||
FHEM/55_PIFACE.pm klaus.schauer http://forum.fhem.de Einplatinencomputer
|
||||
FHEM/55_weco.pm betateilchen http://forum.fhem.de Unterstuetzende Dienste
|
||||
FHEM/56_POKEYS.pm axelberner http://forum.fhem.de Sonstiges
|
||||
FHEM/57_Calendar.pm borisneubert http://forum.fhem.de Sonstiges
|
||||
FHEM/59_HCS.pm mfr69bs http://forum.fhem.de Automatisierung
|
||||
|
||||
@ -130,6 +130,7 @@
|
||||
<a href="#WeekdayTimer">WeekdayTimer</a>
|
||||
<a href="#watchdog">watchdog</a>
|
||||
<a href="#weblink">weblink</a>
|
||||
<a href="#weco">weco</a>
|
||||
<a href="#WOL">WOL</a>
|
||||
</ul>
|
||||
|
||||
|
||||
@ -128,6 +128,7 @@
|
||||
<a href="#WeekdayTimer">WeekdayTimer</a>
|
||||
<a href="#watchdog">watchdog</a>
|
||||
<a href="#weblink">weblink</a>
|
||||
<a href="#weco">weco</a>
|
||||
<a href="#WOL">WOL</a>
|
||||
<a href="#XmlList">XmlList</a>
|
||||
</ul>
|
||||
|
||||
Loading…
Reference in New Issue
Block a user