From 4933d89786ac38b9052c0cd3200bd899401aae24 Mon Sep 17 00:00:00 2001
From: Florin Grad <florin@mandriva.com>
Date: Thu, 27 Feb 2003 13:52:15 +0000
Subject: read more carefully the existing network configuration

---
 perl-install/standalone/drakgw | 23 +++++++++++------------
 1 file changed, 11 insertions(+), 12 deletions(-)

(limited to 'perl-install/standalone/drakgw')

diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index bba1b909b..d0e9611c9 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -1,9 +1,10 @@
 #!/usr/bin/perl
 
 #
-# Guillaume Cottenceau (gc@mandrakesoft.com)
+# author Guillaume Cottenceau (gc@mandrakesoft.com)
+# modified by Florin Grad (florin@mandrakesoft.com)
 #
-# Copyright 2000-2002 MandrakeSoft
+# Copyright 2000-2003 MandrakeSoft
 #
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License version 2, as
@@ -240,8 +241,9 @@ I am about to setup your Local Area Network with that adapter.", $format->($devi
 }
 log::explanations("Choosing network device: $device");
 
-my $lan_address = $conf->{NETWORK} ||= "192.168.1.0";
-my $server_ip = $conf->{IPADDR} ||= "192.168.1.1";
+my $server_ip = network::network::read_dhcpd_conf()->{option_routers}[0] ||= "192.168.1.1";
+   $server_ip =~ m/(.*)\.(.*)/;
+my $lan_address = $1 ? "$1.0" : "192.168.1.0";
 my $nameserver_ip = network::network::read_dhcpd_conf()->{domain_name_servers}[0] ||= "192.168.1.1";
 my $netmask = network::network::read_dhcpd_conf()->{subnet_mask}[0] ||= "255.255.255.0";
 my $start_range = network::network::read_dhcpd_conf()->{dynamic_bootp}[0] ||= "16";
@@ -250,11 +252,6 @@ my $default_lease = network::network::read_dhcpd_conf()->{max_lease_time}[0] ||=
 my $max_lease = network::network::read_dhcpd_conf()->{default_lease_time}[0] ||= "43200";
 my $internal_domain_name = network::network::read_dhcpd_conf()->{domain_name}[0] ||= network::network::read_resolv_conf_raw()->{nameserver}[0] ||= "homeland.net";
 
-#use Data::Dumper;
-#print Dumper(network::network::read_resolv_conf_raw()->{nameserver})."\n";
-#print network::network::read_resolv_conf_raw()->{nameserver}[0]."\n";
-#print Dumper(network::network::read_dhcpd_conf())."\n";
-
 my $reconf_dhcp_server_intf = 1;
 
 if (grep(/$device/, @configured_devices)) {
@@ -262,6 +259,7 @@ if (grep(/$device/, @configured_devices)) {
     my $auto = N("Yes");
 		my $dhcp_details = N("Yes");
     my $conf = network::read_interface_conf("/etc/sysconfig/network-scripts/ifcfg-$device");
+		
     $in->ask_from(N("Network interface already configured"),
 		  N("Warning, the network adapter (%s) is already configured.
 
@@ -280,9 +278,10 @@ Driver: %s", $device, $conf->{NETWORK}, $conf->{IPADDR}, $conf->{BOOTPROTO}, $al
     
     if ($auto ne N("Yes")) {
 	$reconf_dhcp_server_intf = 0;
-	$server_ip = $conf->{IPADDR};
-	$nameserver_ip = network::network::read_dhcpd_conf()->{domain_name_servers}[0] ||= $conf->{IPADDR};
-	$lan_address = $conf->{NETWORK};
+	$server_ip = network::network::read_dhcpd_conf()->{option_routers}[0] ||= $conf->{IPADDR} ||= "192.168.1.1";
+	$nameserver_ip = network::network::read_dhcpd_conf()->{domain_name_servers}[0] ||= $conf->{IPADDR} ||= "192.168.1.1";
+   $server_ip =~ m/(.*)\.(.*)/;
+	$lan_address = $1 ? "$1.0" : $conf->{NETWORK};
 	$in->ask_from('',
 		      N("I can keep your current configuration and assume you already set up a DHCP server; in that case please verify I correctly read the Network that you use for your local network; I will not reconfigure it and I will not touch your DHCP server configuration.
 
-- 
cgit v1.2.1