FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-03-10 03:06:37 +00:00
Code Issues Releases Wiki Activity

CTZ.pm: new module

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@25808 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2022-03-10 21:04:36 +00:00
parent a037878b9e
commit 21f497c503
1 changed files with 124 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

124
fhem/lib/FHEM/Utility/CTZ.pm Normal file
View File

@ -0,0 +1,124 @@
########################################################################################################################
# $Id$
#########################################################################################################################
# CTZ.pm
#
# (c) 2022 by Heiko Maaz
# e-mail: Heiko dot Maaz at t-online dot de
#
# This module enables the conversion of the time specification of a time zone to another time zone (e.g. UTC).
#
# This script is part of fhem.
#
# Fhem is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 2 of the License, or
# (at your option) any later version.
#
# Fhem is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with fhem. If not, see <http://www.gnu.org/licenses/>.
#
#########################################################################################################################
# Version History
# 0.0.1 10.03.2022 initial
package FHEM::Utility::CTZ;
use strict;
use warnings;
use utf8;
use lib qw(/opt/fhem/FHEM /opt/fhem/lib); # für Syntaxcheck mit: perl -c /opt/fhem/lib/FHEM/Utility/CTZ.pm
use GPUtils qw( GP_Import GP_Export );
use DateTime;
use DateTime::Format::Strptime;
use version 0.77; our $VERSION = version->declare('0.0.1');
use Exporter ('import');
our @EXPORT_OK = qw(
convertTimeZone
getTZNames
);
our %EXPORT_TAGS = (all => [@EXPORT_OK]);
# Run before module compilation
BEGIN {
# Import from main::
GP_Import(
qw(
Log
Log3
)
);
};
my $pkg = __PACKAGE__;
####################################################################################################
# https://stackoverflow.com/questions/411740/how-can-i-parse-dates-and-convert-time-zones-in-perl
#
# name : name of caller module
# dtstring : datetime string to convert, format: YYYY-MM-DD hh:mm:ss[.xxx]
# tzcurrent : timezone of original timestamp
# tzconv : timezone the datetime string is to converted to
# writelog : 0 - no write to log, 1 - write to log
#
####################################################################################################
sub convertTimeZone {
my $paref = shift // q{};
my $err = q{};
if(ref $paref ne "HASH") {
$err = "function convertTimeZone got no data or data type is not of type HASH";
return $err;
}
my $name = $paref->{name} // $pkg;
my $dtstring = $paref->{dtstring} // q{};
my $tzcurrent = $paref->{tzcurrent} // 'local';
my $tzconv = $paref->{tzconv} // 'UTC';
my $writelog = $paref->{writelog} // 0;
my $ms = q{};
if ($dtstring =~ m/\.(\d+)/xs) { # datetime enthält Millisekunden
$ms = '.'.$1;
}
my $strptime = new DateTime::Format::Strptime ( pattern => '%Y-%m-%d %H:%M:%S',
time_zone => $tzcurrent,
);
my $date = $strptime->parse_datetime($dtstring) or do { $err = $strptime->errmsg;
return $err;
};
Log3 ($name, 1, "$pkg - original timestring: ".$date->strftime("%Y-%m-%d %H:%M:%S$ms %Z")) if($writelog);
$date->set_time_zone($tzconv);
my $dtconv = $date->strftime("%Y-%m-%d %H:%M:%S");
Log3 ($name, 1, "$pkg - converted timestring: ".$date->strftime("%Y-%m-%d %H:%M:%S$ms %Z")) if($writelog);
return ($err, $dtconv.$ms);
}
###############################################################################
# returns an array reference list of all possible time zone names
###############################################################################
sub getTZNames {
my $atz = DateTime::TimeZone->all_names;
return $atz;
}
1;