FHEM/fhem-mirror
2
0
Fork 0
mirror of https://github.com/fhem/fhem-mirror.git synced 2025-04-21 07:56:03 +00:00
Code Issues Releases Wiki Activity

SMUtils.pm: update to version 1.20.0

Browse Source 
git-svn-id: https://svn.fhem.de/fhem/trunk@23016 2b470e98-0d58-463d-a4d8-8e2adae1ed80
This commit is contained in:
nasseeder1 2020-10-24 07:36:07 +00:00
parent 1602ea563a
commit 5d61767b0c
1 changed files with 27 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

28
fhem/lib/FHEM/SynoModules/SMUtils.pm
View File

@ -41,7 +41,7 @@ use FHEM::SynoModules::ErrCodes qw(:all); # Erro
use GPUtils qw( GP_Import GP_Export ); use GPUtils qw( GP_Import GP_Export );
use Carp qw(croak carp); 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'); use Exporter ('import');
our @EXPORT_OK = qw( our @EXPORT_OK = qw(
@ -49,6 +49,7 @@ our @EXPORT_OK = qw(
delClHash delClHash
delReadings delReadings
trim trim
slurpFile
moduleVersion moduleVersion
sortVersion sortVersion
showModuleInfo showModuleInfo
@ -235,6 +236,31 @@ sub trim {
return $str; 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 # liefert die Versionierung des Moduls zurück
# Verwendung mit Packages: use version 0.77; our $VERSION = moduleVersion ($params) # Verwendung mit Packages: use version 0.77; our $VERSION = moduleVersion ($params)