diff options
Diffstat (limited to 'lib')
-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 |