diff options
| author | knarf <knarf@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2009-09-11 14:36:10 +0000 |
|---|---|---|
| committer | knarf <knarf@17b73243-c579-4c4c-a9d2-2d5706c11dac> | 2009-09-11 14:36:10 +0000 |
| commit | 3b98e158a7a335b7120a6b8308c3be6d8b5cb584 (patch) | |
| tree | 8b2caa90fb6018d121947ca4cb8fa4a7717bbead | |
| parent | 8f2acada4247f7b0b0069c68a7924fc62c6fac7f (diff) | |
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
| -rw-r--r-- | lib/sbin/CST | 3 | ||||
| -rw-r--r-- | lib/sbin/interface_parser.pl | 14 |
2 files changed, 16 insertions, 1 deletions
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 |