summaryrefslogtreecommitdiffstats
path: root/perl-install/network/network.pm
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2002-02-12 17:20:38 +0000
committerdamien <damien@mandriva.com>2002-02-12 17:20:38 +0000
commit9c4e0788e89157da0ee23503ab9563712c314089 (patch)
tree7f9968467cf7f343966413e4f2fb42c5e0f8c4a3 /perl-install/network/network.pm
parentabfb017114bc8cc9dbabd9787c05ef4922b30196 (diff)
downloaddrakx-9c4e0788e89157da0ee23503ab9563712c314089.tar
drakx-9c4e0788e89157da0ee23503ab9563712c314089.tar.gz
drakx-9c4e0788e89157da0ee23503ab9563712c314089.tar.bz2
drakx-9c4e0788e89157da0ee23503ab9563712c314089.tar.xz
drakx-9c4e0788e89157da0ee23503ab9563712c314089.zip
bug correction
Diffstat (limited to 'perl-install/network/network.pm')
-rw-r--r--perl-install/network/network.pm7
1 files changed, 6 insertions, 1 deletions
diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 61828cdec..e8575c320 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -57,6 +57,7 @@ sub up_it {
run_program::rooted($prefix, "/etc/rc.d/init.d/network", "start");
$_->{isUp} = 1 foreach values %$intfs;
}
+
sub down_it {
my ($prefix, $intfs) = @_;
run_program::rooted($prefix, "/etc/rc.d/init.d/network", "stop");
@@ -66,7 +67,11 @@ sub down_it {
sub write_conf {
my ($file, $netc) = @_;
- ($netc->{DOMAINNAME}) ||= 'localdomain';
+ if ($netc->{HOSTNAME}) {
+ $netc->{HOSTNAME} =~ /^[^\.]\.(.*)$/;
+ $1 and $netc->{DOMAINNAME} = $1;
+ }
+ ($netc->{DOMAINNAME}) ||= 'localdomain';
add2hash($netc, {
NETWORKING => "yes",
FORWARD_IPV4 => "false",