summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone/drakgw
diff options
context:
space:
mode:
authorFlorin Grad <florin@mandriva.com>2003-06-13 07:37:26 +0000
committerFlorin Grad <florin@mandriva.com>2003-06-13 07:37:26 +0000
commit2649cd6dc33c3a3dc4a97fd16fa28975841c374c (patch)
tree2fafeae61ce7832c78f76c9b0847062a4541472c /perl-install/standalone/drakgw
parentadacd16f063aa87662388e6810eed86ff659f4a0 (diff)
downloaddrakx-backup-do-not-use-2649cd6dc33c3a3dc4a97fd16fa28975841c374c.tar
drakx-backup-do-not-use-2649cd6dc33c3a3dc4a97fd16fa28975841c374c.tar.gz
drakx-backup-do-not-use-2649cd6dc33c3a3dc4a97fd16fa28975841c374c.tar.bz2
drakx-backup-do-not-use-2649cd6dc33c3a3dc4a97fd16fa28975841c374c.tar.xz
drakx-backup-do-not-use-2649cd6dc33c3a3dc4a97fd16fa28975841c374c.zip
forgot some debug print lines
Diffstat (limited to 'perl-install/standalone/drakgw')
-rwxr-xr-xperl-install/standalone/drakgw2
1 files changed, 0 insertions, 2 deletions
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw
index 04987b510..c6aec5358 100755
--- a/perl-install/standalone/drakgw
+++ b/perl-install/standalone/drakgw
@@ -254,7 +254,6 @@ log::explanations("Choosing network device: $device");
my $conf = network::read_interface_conf("/etc/sysconfig/network-scripts/ifcfg-$device");
my $server_ip = $conf->{IPADDR} ||= network::network::read_dhcpd_conf()->{option_routers}[0] ||= "192.168.1.1";
-print $server_ip."->1\n";
my $lan_address = $server_ip =~ m/(.*)\.(.*)/ && $1 ? "$1.0" : "192.168.1.0";
my $nameserver_ip = network::network::read_resolv_conf_raw()->{nameserver}[0] ||= network::network::read_dhcpd_conf()->{domain_name_servers}[0] ||= "192.168.1.1";
my $netmask = $conf->{NETMASK} ||= network::network::read_dhcpd_conf()->{subnet_mask}[0] ||= "255.255.255.0";
@@ -290,7 +289,6 @@ Driver: %s", $device, $conf->{NETWORK}, $conf->{IPADDR}, $conf->{BOOTPROTO}, $al
if ($auto ne N("Yes")) {
$reconf_dhcp_server_intf = 0;
$server_ip = $conf->{IPADDR} ||= network::network::read_dhcpd_conf()->{option_routers}[0] ||= "192.168.1.1";
- print $server_ip."->2\n";
$nameserver_ip = $conf->{IPADDR} ||= network::network::read_dhcpd_conf()->{domain_name_servers}[0] ||= "192.168.1.1";
$lan_address = $server_ip =~ m/(.*)\.(.*)/ && $1 ? "$1.0" : $conf->{NETWORK};
$in->ask_from('',