1 files changed, 28 insertions, 0 deletions
diff --git a/lib/sbin/CSTUtils.pl b/lib/sbin/CSTUtils.pl
index 63bd7431..1c2fb0e2 100644
--- a/lib/sbin/CSTUtils.pl
+++ b/lib/sbin/CSTUtils.pl
@@ -846,4 +846,32 @@ sub recurse_deps
   return "";
 }
 
+sub print_database
+{
+  my($type, %database) = @_;
+  my($field);
+  print "$type database dump:\n";
+
+  foreach $field ( sort keys %database )
+  {
+    print "$field has value $database{$field}\n";
+  }
+}
+
+sub save_database
+{
+  my($type, %database) = @_;
+  my($field);
+
+  if ($type !~ /[a-zA-Z.]+/) {
+    die "first parameter of save_database contains forbidden characters";
+  }
+  open SAVE_DATABASE, ">$type_database";
+  foreach $field ( sort keys %database )
+  {
+    print SAVE_DATABASE "$field has value $database{$field}\n";
+  }
+  close SAVE_DATABASE;
+}
+
 1;