diff options
| author | Florin Grad <florin@mandriva.com> | 2003-06-13 07:37:26 +0000 |
|---|---|---|
| committer | Florin Grad <florin@mandriva.com> | 2003-06-13 07:37:26 +0000 |
| commit | 2649cd6dc33c3a3dc4a97fd16fa28975841c374c (patch) | |
| tree | 2fafeae61ce7832c78f76c9b0847062a4541472c /perl-install/standalone/drakgw | |
| parent | adacd16f063aa87662388e6810eed86ff659f4a0 (diff) | |
| download | drakx-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-x | perl-install/standalone/drakgw | 2 |
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('', |