From 724f7a8d02d6cd48b108a8f2cfbb98feeecae2a7 Mon Sep 17 00:00:00 2001 From: Florent Villard Date: Mon, 15 Sep 2003 11:10:22 +0000 Subject: fix apache fix dns_client adding a \n at the end of the line of the configuration file fix squid fix inn fix ftp fix samba add a init function in drakwizard.pl for case such as apache which need to initialize some parameters separate region/country in ntp wizard --- common/IFCFG.pm | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) (limited to 'common') diff --git a/common/IFCFG.pm b/common/IFCFG.pm index 0d0c96b2..81b7f0e5 100644 --- a/common/IFCFG.pm +++ b/common/IFCFG.pm @@ -54,7 +54,7 @@ sub new { bless $self; } -sub is_dhcp { +sub is_dhcp { my $self = shift; my ($itf) = @_; @@ -63,25 +63,25 @@ sub is_dhcp { } #- TODO : return the main interface -sub default_itf { +sub default_itf { "eth0"; } -sub itf_get { +sub itf_get { my $self = shift; my ($key, $itf) = @_; $itf ||= default_itf; - exists $self->{itf}{$itf}{$key} or die "no $key field in $itf hash"; + exists $self->{itf}{$itf}{$key} or print "ERROR: no $key field in $itf hash\n"; $self->{itf}{$itf}{$key} } -sub network_get { +sub network_get { my $self = shift; my ($key) = @_; - exists $self->{network}{$key} or die "no $key field in network hash"; - $self->{network}{$key}; + exists $self->{network}{$key} or print "ERROR: no $key field in network hash\n"; + $self->{network}{$key} } 10; -- cgit v1.2.1