From 9ffed2ffe77e1ca3f493f6e9a64e57c52bdfbd05 Mon Sep 17 00:00:00 2001
From: nasseeder1 <nasseeder1@users.noreply.github.com>
Date: Sat, 24 Oct 2020 07:36:07 +0000
Subject: [PATCH] SMUtils.pm: update to version 1.20.0

git-svn-id: https://svn.fhem.de/fhem/trunk/fhem@23016 2b470e98-0d58-463d-a4d8-8e2adae1ed80
---
 lib/FHEM/SynoModules/SMUtils.pm | 28 +++++++++++++++++++++++++++-
 1 file changed, 27 insertions(+), 1 deletion(-)

diff --git a/lib/FHEM/SynoModules/SMUtils.pm b/lib/FHEM/SynoModules/SMUtils.pm
index f00736e2c..d2a92bae2 100644
--- a/lib/FHEM/SynoModules/SMUtils.pm
+++ b/lib/FHEM/SynoModules/SMUtils.pm
@@ -41,7 +41,7 @@ use FHEM::SynoModules::ErrCodes qw(:all);                                 # Erro
 use GPUtils qw( GP_Import GP_Export ); 
 use Carp qw(croak carp);
 
-use version; our $VERSION = version->declare('1.19.3');
+use version; our $VERSION = version->declare('1.20.0');
 
 use Exporter ('import');
 our @EXPORT_OK = qw(
@@ -49,6 +49,7 @@ our @EXPORT_OK = qw(
                      delClHash
                      delReadings
                      trim
+                     slurpFile
                      moduleVersion
                      sortVersion
                      showModuleInfo
@@ -235,6 +236,31 @@ sub trim {
 return $str;
 }
 
+###############################################################################
+#                     File in einem Gang einlesen (schlürfen)          
+###############################################################################
+sub slurpFile {
+  my $name = shift // carp $carpnoname                && return 417;
+  my $file = shift // carp "got no filename to slurp" && return 417;
+  
+  my $errorcode = 0;
+  my $content   = q{};
+  my $fh;
+  
+  open $fh, '<', "$file" or do { Log3($name, 2, qq{$name - cannot open local File "$file": $!});
+                                 close ($fh) if($fh);
+                                 $errorcode = 9002;                                    
+                               };
+  if(!$errorcode) {
+      local $/ = undef;                            # enable slurp mode, locally
+      $content = <$fh>;
+       
+      close ($fh);
+  }
+
+return ($errorcode, $content);
+}
+
 #############################################################################################
 #     liefert die Versionierung des Moduls zurück
 #     Verwendung mit Packages:  use version 0.77; our $VERSION = moduleVersion ($params)