From beac2966bbad446ef71df6e1d035a41d6976b946 Mon Sep 17 00:00:00 2001
From: Frederic Lepied <flepied@mandriva.com>
Date: Fri, 1 Oct 2004 02:21:07 +0000
Subject: call the scripts in /etc/sysconfig/network-scripts/hostname.d like
 the network scripts are doing when changing the hostname.

---
 perl-install/network/network.pm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'perl-install/network')

diff --git a/perl-install/network/network.pm b/perl-install/network/network.pm
index 50f0b6612..3fa1359ed 100644
--- a/perl-install/network/network.pm
+++ b/perl-install/network/network.pm
@@ -213,6 +213,10 @@ sub sethostname {
     my $text;
     syscall_("sethostname", $netc->{HOSTNAME}, length $netc->{HOSTNAME}) ? ($text="set sethostname to $netc->{HOSTNAME}") : ($text="sethostname failed: $!");
     log::explanations($text);
+
+    if (!$::isInstall) {
+      run_program::run("/usr/bin/run-parts", "--arg", $netc->{HOSTNAME}, "/etc/sysconfig/network-scripts/hostname.d");
+    }
 }
 
 sub resolv($) {
-- 
cgit v1.2.1