From 0b05ca05ddc79e60bcbd1ddccff9941307166466 Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Tue, 5 Oct 2004 06:49:14 +0000
Subject: for meta_class firewall, call the general netconnect function

---
 perl-install/install_steps_interactive.pm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

(limited to 'perl-install/install_steps_interactive.pm')

diff --git a/perl-install/install_steps_interactive.pm b/perl-install/install_steps_interactive.pm
index 09eda9dea..f50ff2632 100644
--- a/perl-install/install_steps_interactive.pm
+++ b/perl-install/install_steps_interactive.pm
@@ -741,9 +741,15 @@ sub updateModulesFromFloppy {
 #------------------------------------------------------------------------------
 sub configureNetwork {
     my ($o) = @_;
-    require network::network;
-    network::network::easy_dhcp($o->{netc}, $o->{intf}) and $o->{netcnx}{type} = 'lan';
-    $o->SUPER::configureNetwork;
+
+    if ($o->{meta_class} eq 'firewall') {
+	require network::netconnect;
+	network::netconnect::main($o->{prefix}, $o->{netcnx} ||= {}, $o, $o->{netc}, $o->{mouse}, $o->{intf}, 0, 1);
+    } else {
+	require network::network;
+	network::network::easy_dhcp($o->{netc}, $o->{intf}) and $o->{netcnx}{type} = 'lan';
+	$o->SUPER::configureNetwork;
+    }
 }
 
 #------------------------------------------------------------------------------
-- 
cgit v1.2.1