diff --git a/config/cfgroot/general-functions.pl b/config/cfgroot/general-functions.pl
index 181922ba6..45fa4be65 100644
--- a/config/cfgroot/general-functions.pl
+++ b/config/cfgroot/general-functions.pl
@@ -189,6 +189,18 @@ sub setup_default_networks
 		$defaultNetworks->{$name}{'NAME'} = "WGRW";
 	}
 }
+
+sub set_defaults($$) {
+	my $hash = shift;
+	my $defaults = shift;
+
+	foreach my $key (keys %$defaults) {
+		unless (defined($hash->{$key})) {
+			$hash->{$key} = $defaults->{$key};
+		}
+	}
+}
+
 sub get_aliases
 {