From 13c25399088f395a245a59c15b94ab1a3e4e7469 Mon Sep 17 00:00:00 2001
From: nasseeder1 <nasseeder1@users.noreply.github.com>
Date: Sat, 12 Mar 2022 21:10:51 +0000
Subject: [PATCH] CTZ.pm: check required Perl modules

git-svn-id: https://svn.fhem.de/fhem/trunk@25816 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 fhem/lib/FHEM/Utility/CTZ.pm | 34 +++++++++++++++++++++++++++++++---
 1 file changed, 31 insertions(+), 3 deletions(-)

diff --git a/fhem/lib/FHEM/Utility/CTZ.pm b/fhem/lib/FHEM/Utility/CTZ.pm
index 7c87f864e..e37a92dd1 100644
--- a/fhem/lib/FHEM/Utility/CTZ.pm
+++ b/fhem/lib/FHEM/Utility/CTZ.pm
@@ -26,6 +26,7 @@
 #########################################################################################################################
 
 # Version History
+# 0.0.2  12.03.2022 check required Perl modules 
 # 0.0.1  10.03.2022 initial
 
 package FHEM::Utility::CTZ;                                          
@@ -34,11 +35,12 @@ 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 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;
+
+eval "use DateTime;1"                    or my $abs0 = 'DateTime';
+eval "use DateTime::Format::Strptime;1"  or my $abs1 = 'DateTime::Format::Strptime';
 
 use version 0.77; our $VERSION = version->declare('0.0.1');
 
@@ -81,6 +83,9 @@ sub convertTimeZone {
      $err = "function convertTimeZone got no data or data type is not of type HASH";
      return $err;
   }
+  
+  my $abs = modabsent();
+  return $abs if($abs);
 
   my $name      = $paref->{name}      // $pkg;
   my $dtstring  = $paref->{dtstring}  // q{};
@@ -127,9 +132,32 @@ return $valid;
 # returns an array reference list of all possible time zone names
 ###############################################################################
 sub getTZNames {
+  
+  if(modabsent()) {
+      return [qw()];
+  }
+  
   my $atz = DateTime::TimeZone->all_names;
           
 return $atz;
 }
 
+###############################################################################
+# Check required Perl modules
+###############################################################################
+sub modabsent {
+  
+  if ($abs0 || $abs1) {
+      $abs0 //= q{};
+      $abs1 //= q{};
+      
+      my $err = qq{the perl module "$abs0" and/or "$abs1" is not installed};
+      Log (1, "$pkg - ERROR - $err");
+      
+      return $err;
+  }
+          
+return;
+}
+
 1;
\ No newline at end of file