From 3b98e158a7a335b7120a6b8308c3be6d8b5cb584 Mon Sep 17 00:00:00 2001
From: knarf <knarf@17b73243-c579-4c4c-a9d2-2d5706c11dac>
Date: Fri, 11 Sep 2009 14:36:10 +0000
Subject: 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
---
 lib/sbin/interface_parser.pl | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

(limited to 'lib/sbin/interface_parser.pl')

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
-- 
cgit v1.2.3