added missing function read_file

This commit is contained in:
fbsanchez 2020-04-30 15:19:19 +02:00
parent 2b99bfb803
commit e9bd646983
1 changed files with 22 additions and 0 deletions

View File

@ -87,6 +87,7 @@ our @EXPORT = qw(
print_warning
print_stderror
read_configuration
read_file
simple_decode_json
snmp_data_switcher
snmp_get
@ -1263,6 +1264,27 @@ sub read_configuration {
return $config;
}
################################################################################
## Reads a file and returns entire content or undef if error.
################################################################################
sub read_file {
my $path = shift;
my $_FILE;
if( !open($_FILE, "<", $path) ) {
# failed to open, return undef
return undef;
}
# Slurp configuration file content.
my $content = do { local $/; <$_FILE> };
# Close file
close($_FILE);
return $content;
}
################################################################################
# General arguments parser
################################################################################