FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-04 05:16:45 +00:00
Code Issues Releases Wiki Activity

59_Twilight.pm: fix some warnings, forum #114959

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@22960 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
Beta-User 2020-10-12 16:38:52 +00:00
parent 408def515c
commit 676827e555
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fhem/FHEM/59_Twilight.pm
View File

@ -237,7 +237,7 @@ sub Twilight_Notify {
my $last = ReadingsNum($name, "cloudCover", -1);
return if abs ($last - $extWeather) < 6;
my ($cond, $condText) = [-1,"not known"];
my $dispatch = defined $hash->{helper}{extWeather} ? 1 : 0;
my $dispatch = defined $hash->{helper}{extWeather} && defined $hash->{helper}{extWeather}{dispatch} ? 1 : 0;
$cond = ReadingsNum($hash->{helper}{extWeather}{Device}, $hash->{helper}{extWeather}{dispatch}{cond_code},-2) if $dispatch;
$condText = ReadingsVal($hash->{helper}{extWeather}{Device}, $hash->{helper}{extWeather}{dispatch}{cond_text},"unknown") if $dispatch;
@ -549,7 +549,7 @@ sub Twilight_TwilightTimes {
for my $ereignis ( keys %{ $hash->{TW} } ) {
next if ( $whitchTimes eq "weather" && !( $ereignis =~ m/weather/ ) );
readingsBulkUpdate( $hash, $ereignis,
$hash->{TW}{$ereignis}{TIME} == 0
!defined $hash->{TW}{$ereignis}{TIME} || $hash->{TW}{$ereignis}{TIME} == 0
? "undefined"
: FmtTime( $hash->{TW}{$ereignis}{TIME} ) );
}
@ -583,7 +583,7 @@ sub Twilight_TwilightTimes {
next if ( $whitchTimes eq "weather" && !( $ereignis =~ m/weather/ ) );
Twilight_RemoveInternalTimer( $ereignis, $hash ); # if(!$jetztIstMitternacht);
if ( $hash->{TW}{$ereignis}{TIME} > 0 ) {
if ( defined $hash->{TW}{$ereignis}{TIME} && $hash->{TW}{$ereignis}{TIME} > 0 ) {
$myHash = Twilight_InternalTimer( $ereignis, $hash->{TW}{$ereignis}{TIME},
\&Twilight_fireEvent, $hash, 0 );
map { $myHash->{$_} = $hash->{TW}{$ereignis}{$_} } @keyListe;
@ -871,7 +871,7 @@ sub Twilight_sunpos {
my $extDev = $hash->{helper}{extWeather}{Device};
my $extReading = $hash->{helper}{extWeather}{Reading};
#my ( $extDev, $extReading ) = split( ":", $ExtWeather );
my $extWeatherHorizont = ReadingsVal($extDev ,$extReading , -1 );
my $extWeatherHorizont = ReadingsNum($extDev ,$extReading , -1 );
if ( $extWeatherHorizont >= 0 ) {
$extWeatherHorizont = min (100, $extWeatherHorizont);
Log3( $hash, 5,