Merge remote-tracking branch 'stevee/proxy-squidclamav' into next
[people/teissler/ipfire-2.x.git] / config / cfgroot / general-functions.pl
index 3cdb36fbd4709229edd93b2f39893a145a17425f..41643d8d7451c25aebda2475600b0f9c170845a4 100644 (file)
@@ -1030,4 +1030,27 @@ sub RedIsWireless() {
        return 0;
 }
 
+# Function to read a file with UTF-8 charset.
+sub read_file_utf8 ($) {
+       my ($file) = @_;
+
+       open my $in, '<:encoding(UTF-8)', $file or die "Could not open '$file' for reading $!";
+       local $/ = undef;
+       my $all = <$in>;
+       close $in;
+
+       return $all;
+}
+
+# Function to write a file with UTF-8 charset.
+sub write_file_utf8 ($) {
+       my ($file, $content) = @_;
+
+       open my $out, '>:encoding(UTF-8)', $file or die "Could not open '$file' for writing $!";;           
+       print $out $content;
+       close $out;
+
+       return; 
+}
+
 1;