general-function.pl: Add a function to easily set defaults

This function can be used to set values in a hash if they have not been
set, yet.

Signed-off-by: Michael Tremer <michael.tremer@ipfire.org>

diff --git a/config/cfgroot/general-functions.pl b/config/cfgroot/general-functions.pl
index fa90009bb2a54be3a0b15d757c8346f8fac92e6b..a87e5c070ae8ed41ea4a0a89dd94b8ef1cd8b6fe 100644 (file)
--- a/config/cfgroot/general-functions.pl
+++ b/config/cfgroot/general-functions.pl
@@ -202,6 +202,17 @@ sub get_aliases
        }
 }
 
+sub set_defaults($$) {
+       my $hash = shift;
+       my $defaults = shift;
+
+       foreach my $key (keys %$defaults) {
+               unless (defined($hash->{$key})) {
+                       $hash->{$key} = $defaults->{$key};
+               }
+       }
+}
+
 sub readhash
 {
        my $filename = $_[0];