add use HTTP::Date for IsAdv Fn

This commit is contained in:
2020-12-10 09:39:30 +01:00
parent ba4d2203f4
commit bfeadd0bbf
2 changed files with 4 additions and 3 deletions

View File

@ -1159,6 +1159,7 @@ sub PerlCodeCheck {
}
sub IsAdv {
use HTTP::Date;
my ( undef, undef, undef, $monthday, $month, $year, undef, undef, undef ) =
localtime( gettimeofday() );
my $adv = 0;
@ -1170,7 +1171,7 @@ sub IsAdv {
}
}
else {
my $time = HTTP::Date::str2time( $year . '-12-25' );
my $time = str2time( $year . '-12-25' );
my $wday = ( localtime($time) )[6];
$wday = $wday ? $wday : 7;
$time -= ( $FHEM::Automation::ShuttersControl::ascDev