summary | shortlog | log | commit | commitdiff | tree
raw | patch | inline | side by side (parent: 1c52178)
raw | patch | inline | side by side (parent: 1c52178)
author | janw <janw@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Wed, 30 Jan 2008 17:01:24 +0000 (17:01 +0000) | ||
committer | janw <janw@594d385d-05f5-0310-b6e9-bd551577e9d8> | |
Wed, 30 Jan 2008 17:01:24 +0000 (17:01 +0000) |
git-svn-id: https://oss.gonicus.de/repositories/gosa/trunk@8679 594d385d-05f5-0310-b6e9-bd551577e9d8
gosa-si/modules/ArpHandler.pm | patch | blob | history |
index ee7cdd5b6c21b04ef293472ea941323ac43d4007..06fac82852bbcbafd01fd1191570a02d609eea5b 100644 (file)
# DESCRIPTION: read cfg_file and set variables
#===============================================================================
sub read_configfile {
- my $cfg;
- if( defined( $main::cfg_file) && ( length($main::cfg_file) > 0 )) {
- if( -r $main::cfg_file ) {
- $cfg = Config::IniFiles->new( -file => $main::cfg_file );
- } else {
- print STDERR "Couldn't read config file!";
- }
- } else {
- $cfg = Config::IniFiles->new() ;
- }
- foreach my $section (keys %cfg_defaults) {
- foreach my $param (keys %{$cfg_defaults{ $section }}) {
- my $pinfo = $cfg_defaults{ $section }{ $param };
- ${@$pinfo[0]} = $cfg->val( $section, $param, @$pinfo[1] );
- }
- }
+ my $cfg;
+ if( defined( $main::cfg_file) && ( length($main::cfg_file) > 0 )) {
+ if( -r $main::cfg_file ) {
+ $cfg = Config::IniFiles->new( -file => $main::cfg_file );
+ } else {
+ print STDERR "Couldn't read config file!";
+ }
+ } else {
+ $cfg = Config::IniFiles->new() ;
+ }
+ foreach my $section (keys %cfg_defaults) {
+ foreach my $param (keys %{$cfg_defaults{ $section }}) {
+ my $pinfo = $cfg_defaults{ $section }{ $param };
+ ${@$pinfo[0]} = $cfg->val( $section, $param, @$pinfo[1] );
+ }
+ }
}
sub get_module_info {