diff options
| author | damien <damien@mandriva.com> | 2002-02-12 17:20:38 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2002-02-12 17:20:38 +0000 |
| commit | 9c4e0788e89157da0ee23503ab9563712c314089 (patch) | |
| tree | 7f9968467cf7f343966413e4f2fb42c5e0f8c4a3 /perl-install/network/network.pm | |
| parent | abfb017114bc8cc9dbabd9787c05ef4922b30196 (diff) | |
| download | drakx-backup-do-not-use-9c4e0788e89157da0ee23503ab9563712c314089.tar drakx-backup-do-not-use-9c4e0788e89157da0ee23503ab9563712c314089.tar.gz drakx-backup-do-not-use-9c4e0788e89157da0ee23503ab9563712c314089.tar.bz2 drakx-backup-do-not-use-9c4e0788e89157da0ee23503ab9563712c314089.tar.xz drakx-backup-do-not-use-9c4e0788e89157da0ee23503ab9563712c314089.zip | |
bug correction
Diffstat (limited to 'perl-install/network/network.pm')
| -rw-r--r-- | perl-install/network/network.pm | 7 |
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", |