add function to save interface database to file for further analysis. Disabled by default (to enable, uncomment "$debug_interface" in lib/sbin/CST)

git-svn-id: http://svn.cactuscode.org/flesh/trunk@4568 17b73243-c579-4c4c-a9d2-2d5706c11dac

1 files changed, 14 insertions, 0 deletions

diff --git a/lib/sbin/interface_parser.pl b/lib/sbin/interface_parser.pl
index 4e3199d6..b43a5391 100644
--- a/lib/sbin/interface_parser.pl
+++ b/lib/sbin/interface_parser.pl
@@ -1192,6 +1192,20 @@ sub print_interface_database
   }
 }
 
+sub save_interface_database
+{
+  my(%database) = @_;
+  my($field);
+
+  open SAVE_INTERFACE_DATABASE, ">interface_database";
+  foreach $field ( sort keys %database )
+  {
+    print SAVE_INTERFACE_DATABASE "$field has value $database{$field}\n";
+  }
+  close SAVE_INTERFACE_DATABASE;
+}
+
+
 #/*@@
 #  @routine    PrintInterfaceStatistics
 #  @date       Sun Sep 19 13:03:23 1999