From 1fc52ee53fcbe5917db530a057ddf9d052e2a672 Mon Sep 17 00:00:00 2001
From: Olivier Blin <oblin@mandriva.org>
Date: Wed, 31 Aug 2005 16:40:33 +0000
Subject: initial deployment server support

---
 perl-install/install_any.pm   | 25 +++++++++++++++++++++++++
 perl-install/install_steps.pm |  1 +
 2 files changed, 26 insertions(+)

(limited to 'perl-install')

diff --git a/perl-install/install_any.pm b/perl-install/install_any.pm
index b5e6d7526..ca1f00a2e 100644
--- a/perl-install/install_any.pm
+++ b/perl-install/install_any.pm
@@ -1930,6 +1930,31 @@ sub move_clp_to_disk {
     }
 }
 
+sub deploy_server_notify {
+    my ($o) = @_;
+    my $fallback_intf = "eth0";
+    my $fallback_port = 3710;
+
+    my ($server, $port) = $o->{deploy_server} =~ /^(.*?)(?::(\d+))?$/;
+    if ($server) {
+        require network::tools;
+        require IO::Socket;
+        $port ||= $fallback_port;
+        my $intf = network::tools::get_current_gateway_interface() || $fallback_intf;
+        my $mac = c::get_hw_address($intf);
+        my $sock = IO::Socket::INET->new(PeerAddr => $server, PeerPort => $port, Proto => 'tcp');
+        if ($sock) {
+            print $sock "$mac\n";
+            close($sock);
+            log::l(qq(successfully notified deploy server $server on port $port));
+        } else {
+            log::l(qq(unable to contact deploy server $server on port $port));
+        }
+    } else {
+        log::l(qq(unable to parse deploy server in string $o->{deploy_server}));
+    }
+}
+
 #-###############################################################################
 #- pcmcia various
 #-###############################################################################
diff --git a/perl-install/install_steps.pm b/perl-install/install_steps.pm
index 606df646e..dc102aa52 100644
--- a/perl-install/install_steps.pm
+++ b/perl-install/install_steps.pm
@@ -946,6 +946,7 @@ Beware that some Mandriva Linux tools rely on the contents of some
 of these files... so remove any file from here at your own
 risk!
 " };
+    install_any::deploy_server_notify($o) if exists $o->{deploy_server};
     #- wait for remaining processes.
     foreach (@{$o->{waitpids}}) {
 	waitpid $_, 0;
-- 
cgit v1.2.1