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

95_Astro: v2.0.1 with minor bugfix

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@19670 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
jpawlowski 2019-06-20 18:59:24 +00:00
parent f2094cbf5f
commit 564eb716a3
1 changed files with 4 additions and 19 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

23
fhem/FHEM/95_Astro.pm
View File

@ -38,7 +38,7 @@ use utf8;
use Encode; use Encode;
use FHEM::Meta; use FHEM::Meta;
use GPUtils qw(GP_Import); use GPUtils qw(GP_Import GP_Export);
use Math::Trig; use Math::Trig;
use Time::HiRes qw(gettimeofday); use Time::HiRes qw(gettimeofday);
use Time::Local; use Time::Local;
@ -687,7 +687,7 @@ BEGIN {
} }
#-- Export to main context with different name #-- Export to main context with different name
_Export( GP_Export(
qw( qw(
Get Get
Initialize Initialize
@ -760,6 +760,7 @@ sub Define ($@) {
if ( $init_done && !defined( $hash->{OLDDEF} ) ) { if ( $init_done && !defined( $hash->{OLDDEF} ) ) {
$attr{$name}{icon} = 'telescope'; $attr{$name}{icon} = 'telescope';
$attr{$name}{recomputeAt} = 'NewDay,SunRise,SunSet,AstroTwilightEvening,AstroTwilightMorning,CivilTwilightEvening,CivilTwilightMorning,CustomTwilightEvening,CustomTwilightMorning'; $attr{$name}{recomputeAt} = 'NewDay,SunRise,SunSet,AstroTwilightEvening,AstroTwilightMorning,CivilTwilightEvening,CivilTwilightMorning,CustomTwilightEvening,CustomTwilightMorning';
$hash->{RECOMPUTEAT} = $attr{$name}{recomputeAt};
} }
return undef; return undef;
@ -970,22 +971,6 @@ sub _tzoffset($) {
return (($local - $utc)/36); return (($local - $utc)/36);
} }
########################################################################################################
#
# _Export - Export references to main context using a different naming schema
#
########################################################################################################
sub _Export {
no strict qw/refs/; ## no critic
my $pkg = caller(0);
my $main = $pkg;
$main =~ s/^(?:.+::)?([^:]+)$/main::$1\_/g;
foreach (@_) {
*{ $main . $_ } = *{ $pkg . '::' . $_ };
}
}
######################################################################################################## ########################################################################################################
# #
# _LoadOptionalPackages - Load Perl packages that may not be installed # _LoadOptionalPackages - Load Perl packages that may not be installed
@ -2919,7 +2904,7 @@ sub Get($@) {
=end html_DE =end html_DE
=for :application/json;q=META.json 95_Astro.pm =for :application/json;q=META.json 95_Astro.pm
{ {
"version": "v2.0.0", "version": "v2.0.1",
"author": [ "author": [
"Prof. Dr. Peter A. Henning <>", "Prof. Dr. Peter A. Henning <>",
"Julian Pawlowski <>", "Julian Pawlowski <>",