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/CST                 |  3 ++-
 lib/sbin/interface_parser.pl | 14 ++++++++++++++
 2 files changed, 16 insertions(+), 1 deletion(-)

diff --git a/lib/sbin/CST b/lib/sbin/CST
index 17b6abe3..08021f5c 100644
--- a/lib/sbin/CST
+++ b/lib/sbin/CST
@@ -6,7 +6,7 @@
 #  @desc
 #             Parses the the configuration files for thorns.
 #  @enddesc
-#  @version   $Header: /mnt/data2/cvs2svn/cvs-repositories/Cactus/lib/sbin/CST,v 1.77 2007-04-18 18:10:55 schnetter Exp $
+#  @version   $Header: /mnt/data2/cvs2svn/cvs-repositories/Cactus/lib/sbin/CST,v 1.78 2009-09-11 14:36:10 knarf Exp $
 #@@*/
 
 # Global parameter to track the number of errors from the CST
@@ -100,6 +100,7 @@ print "Parsing interface files...\n";
 
 #$debug_interface = 1;
 &print_interface_database(%interface_database) if($debug_interface);
+&save_interface_database(%interface_database) if ($debug_interface);
 
 # Parse the parameter.ccl files
 print "Parsing parameter files...\n";
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