From 5df40d4aa9b9258a280253aec595daa56ad671fb Mon Sep 17 00:00:00 2001 From: phenning <> Date: Sun, 19 May 2019 08:50:54 +0000 Subject: [PATCH] =?UTF-8?q?95=5FAstro.pm:=20Minimale=20=C3=84nderung=20f?= =?UTF-8?q?=C3=BCr=20Nordlichter=20ohne=20astronomische=20Morgend=C3=A4mme?= =?UTF-8?q?rung?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit git-svn-id: https://svn.fhem.de/fhem/trunk@19405 2b470e98-0d58-463d-a4d8-8e2adae1ed80 --- fhem/FHEM/95_Astro.pm | 16 ++++++++-------- 1 file changed, 8 insertions(+), 8 deletions(-) diff --git a/fhem/FHEM/95_Astro.pm b/fhem/FHEM/95_Astro.pm index d85122bc6..0bed4d6a9 100644 --- a/fhem/FHEM/95_Astro.pm +++ b/fhem/FHEM/95_Astro.pm @@ -47,7 +47,7 @@ my $deltaT = 65; # Correction time in s my %Astro; my %Date; -my $astroversion = 1.50; +my $astroversion = 1.52; #-- These we may get on request my %gets = ( @@ -896,7 +896,7 @@ sub Astro_SunRise($$$$$$){ my ($transit,$rise,$set) = Astro_RiseSet($jd0UT, $sunCoor1->{diameter}, $sunCoor1->{parallax}, $sunCoor1->{ra}, $sunCoor1->{dec}, $sunCoor2->{ra}, $sunCoor2->{dec}, $lon, $lat, 1,undef); if( $transit eq "---" ){ - Log 1,"[Astro_SunRise] no solution possible - maybe the sun never sets ?"; + Log 3,"[Astro_SunRise] no solution possible - maybe the sun never sets ?"; return( ($transit,$rise,$set) ); } @@ -938,7 +938,7 @@ sub Astro_SunRise($$$$$$){ ($transittemp,$risetemp,$settemp) = Astro_RiseSet($jd0UT, $sunCoor1->{diameter}, $sunCoor1->{parallax}, $sunCoor1->{ra}, $sunCoor1->{dec}, $sunCoor2->{ra}, $sunCoor2->{dec}, $lon, $lat, 1, -6.*$DEG); if( $transittemp eq "---" ){ - Log 3,"[Astro_SunRise] no solution possible for civil twilight - maybe the sun never sets below -6 degrees?"; + Log 4,"[Astro_SunRise] no solution possible for civil twilight - maybe the sun never sets below -6 degrees?"; $CivilTwilightMorning = "---"; $CivilTwilightEvening = "---"; }else{ @@ -952,7 +952,7 @@ sub Astro_SunRise($$$$$$){ ($transittemp,$risetemp,$settemp) = Astro_RiseSet($jd0UT, $sunCoor1->{diameter}, $sunCoor1->{parallax}, $sunCoor1->{ra}, $sunCoor1->{dec}, $sunCoor2->{ra}, $sunCoor2->{dec}, $lon, $lat, 1, -12.*$DEG); if( $transittemp eq "---" ){ - Log 3,"[Astro_SunRise] no solution possible for nautical twilight - maybe the sun never sets below -12 degrees?"; + Log 4,"[Astro_SunRise] no solution possible for nautical twilight - maybe the sun never sets below -12 degrees?"; $NauticTwilightMorning = "---"; $NauticTwilightEvening = "---"; }else{ @@ -966,7 +966,7 @@ sub Astro_SunRise($$$$$$){ ($transittemp,$risetemp,$settemp) = Astro_RiseSet($jd0UT, $sunCoor1->{diameter}, $sunCoor1->{parallax}, $sunCoor1->{ra}, $sunCoor1->{dec}, $sunCoor2->{ra}, $sunCoor2->{dec}, $lon, $lat, 1, -18.*$DEG); if( $transittemp eq "---" ){ - Log 3,"[Astro_SunRise] no solution possible for astronomical twilight - maybe the sun never sets below -18 degrees?"; + Log 4,"[Astro_SunRise] no solution possible for astronomical twilight - maybe the sun never sets below -18 degrees?"; $AstroTwilightMorning = "---"; $AstroTwilightEvening = "---"; }else{ @@ -980,7 +980,7 @@ sub Astro_SunRise($$$$$$){ ($transittemp,$risetemp,$settemp) = Astro_RiseSet($jd0UT, $sunCoor1->{diameter}, $sunCoor1->{parallax}, $sunCoor1->{ra}, $sunCoor1->{dec}, $sunCoor2->{ra}, $sunCoor2->{dec}, $lon, $lat, 1, $Astro{ObsHor}*$DEG); if( $transittemp eq "---" ){ - Log 3,"[Astro_SunRise] no solution possible for custom twilight - maybe the sun never sets below ".$Astro{ObsHor}." degrees?"; + Log 4,"[Astro_SunRise] no solution possible for custom twilight - maybe the sun never sets below ".$Astro{ObsHor}." degrees?"; $CustomTwilightMorning = "---"; $CustomTwilightEvening = "---"; }else{ @@ -1538,7 +1538,7 @@ sub Astro_Get($@) {

Get

- Attention: Get-calls are NOT written into the readings of the device ! Readings change only through periodic updates !
+ Attention: Get-calls are NOT written into the readings of the device. Readings change only through periodic updates.