FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-15 22:26:04 +00:00
Code Issues Releases Wiki Activity

CTZ.pm: add pattern parameter

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@26391 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2022-09-10 07:04:39 +00:00
parent 1734bb289d
commit 850b02a035
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
fhem/lib/FHEM/Utility/CTZ.pm
View File

@ -26,6 +26,8 @@
#########################################################################################################################
# Version History
# 0.0.4 10.09.2022 add pattern parameter: https://metacpan.org/pod/DateTime::Format::Strptime#STRPTIME-PATTERN-TOKENS
# add strict parameter: https://metacpan.org/pod/DateTime::Format::Strptime#DateTime::Format::Strptime-%3Enew(%25args)
# 0.0.3 13.03.2022 publish func reqModFail
# 0.0.2 12.03.2022 check required Perl modules
# 0.0.1 10.03.2022 initial
@ -90,6 +92,7 @@ sub convertTimeZone {
return "required perl module not installed: ".$rmf if($rmf);
my $name = $paref->{name} // $pkg;
my $pattern = $paref->{pattern} // '%Y-%m-%d %H:%M:%S';
my $dtstring = $paref->{dtstring} // q{};
my $tzcurrent = $paref->{tzcurrent} // 'local';
my $tzconv = $paref->{tzconv} // 'UTC';
@ -103,7 +106,8 @@ sub convertTimeZone {
$ms = '.'.$1;
}
my $strptime = new DateTime::Format::Strptime ( pattern => '%Y-%m-%d %H:%M:%S',
my $strptime = new DateTime::Format::Strptime ( pattern => $pattern,
strict => 0,
time_zone => $tzcurrent,
);