FHEM/mod-Weather
1
0
Fork 0
Code Issues Pull Requests Releases 3 Wiki Activity

add setter locationTemp to change location temporary

Browse Source
This commit is contained in:
Marko Oldenburg 2019-09-09 17:35:35 +02:00
parent 150581147f
commit ec08d0ec53
3 changed files with 52 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
59_Weather.pm
View File

@ -571,8 +571,19 @@ sub Weather_Set($@) {
Weather_GetUpdate($hash); Weather_GetUpdate($hash);
return undef; return undef;
} }
elsif ( ( @a == 3 ) && ( $a[1] eq "newLocation" ) ) {
if ( $hash->{API} eq 'DarkSkyAPI'
or $hash->{API} eq 'OpenWeatherMapAPI' )
{
$hash->{fhem}->{api}->setLocation((split(':',$a[2]))[0],(split(':',$a[2]))[1]);
Weather_DisarmTimer($hash);
Weather_GetUpdate($hash);
return undef;
}
else { return 'this API is not ' . $a[1] .' supported' }
}
else { else {
return "Unknown argument $cmd, choose one of update:noArg"; return "Unknown argument $cmd, choose one of update:noArg newLocation";
} }
} }

20
DarkSkyAPI.pm
View File

@ -195,6 +195,15 @@ sub setRetrieveData {
return 0; return 0;
} }
sub setLocation {
my ($self,$lat,$long) = @_;
$self->{lat} = $lat;
$self->{long} = $long;
return 0;
}
sub getFetchTime { sub getFetchTime {
my $self = shift; my $self = shift;
@ -211,10 +220,19 @@ sub _RetrieveDataFromDarkSky($) {
my $self = shift; my $self = shift;
# retrieve data from cache # retrieve data from cache
if ( ( time() - $self->{fetchTime} ) < $self->{cachemaxage} ) { if ( ( time() - $self->{fetchTime} ) < $self->{cachemaxage}
and $self->{cached}->{lat} == $self->{lat}
and $self->{cached}->{long} == $self->{long}
)
{
return _CallWeatherCallbackFn($self); return _CallWeatherCallbackFn($self);
} }
$self->{cached}->{lat} = $self->{lat}
unless ( $self->{cached}->{lat} == $self->{lat} );
$self->{cached}->{long} = $self{long}
unless ( $self->{cached}->{long} == $self->{long} );
my $paramRef = { my $paramRef = {
timeout => 15, timeout => 15,
self => $self, self => $self,

26
OpenWeatherMapAPI.pm
View File

@ -116,7 +116,7 @@ eval "use Encode qw(encode_utf8);1" or $missingModul .= "Encode ";
# use Data::Dumper; # for Debug only # use Data::Dumper; # for Debug only
## API URL ## API URL
use constant URL => 'https://api.openweathermap.org/data/2.5/'; use constant URL => 'https://api.openweathermap.org/data/2.5/';
use constant VERSION => '0.4.0'; use constant VERSION => '0.5.0';
## URL . 'weather?' for current data ## URL . 'weather?' for current data
## URL . 'forecast?' for forecast data ## URL . 'forecast?' for forecast data
@ -237,6 +237,15 @@ sub setRetrieveData {
return 0; return 0;
} }
sub setLocation {
my ($self,$lat,$long) = @_;
$self->{lat} = $lat;
$self->{long} = $long;
return 0;
}
sub getFetchTime { sub getFetchTime {
my $self = shift; my $self = shift;
@ -253,12 +262,19 @@ sub _RetrieveDataFromOpenWeatherMap($) {
my $self = shift; my $self = shift;
# retrieve data from cache # retrieve data from cache
if ( $self->{endpoint} eq 'none' ) { if ( ( time() - $self->{fetchTime} ) < $self->{cachemaxage}
if ( ( time() - $self->{fetchTime} ) < $self->{cachemaxage} ) { and $self->{cached}->{lat} == $self->{lat}
return _CallWeatherCallbackFn($self); and $self->{cached}->{long} == $self->{long}
} )
{
return _CallWeatherCallbackFn($self);
} }
$self->{cached}->{lat} = $self->{lat}
unless ( $self->{cached}->{lat} == $self->{lat} );
$self->{cached}->{long} = $self->{long}
unless ( $self->{cached}->{long} == $self->{long} );
my $paramRef = { my $paramRef = {
timeout => 15, timeout => 15,
self => $self, self => $self,