From 883d8bf86b624a3ffb96c7c1cf32db6391d39334 Mon Sep 17 00:00:00 2001
From: damien <damien@mandriva.com>
Date: Tue, 3 Apr 2001 02:40:34 +0000
Subject: corrected bad flag test

---
 perl-install/standalone/draknet | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

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

diff --git a/perl-install/standalone/draknet b/perl-install/standalone/draknet
index 2353804c3..e9dc1e73d 100755
--- a/perl-install/standalone/draknet
+++ b/perl-install/standalone/draknet
@@ -24,6 +24,7 @@ use interactive;
 use standalone;
 use netconnect;
 use c;
+use Data::Dumper;
 
 my $xpm_path="/usr/share/libDrakX/pixmaps";
 $::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/;
@@ -347,6 +348,8 @@ sub configure_lan {
     my $window = new Gtk::Window -toplevel;
     my @infos;
     my @conf_data;
+
+    print "#############\n" . Data::Dumper->Dump([$intf],["$intf"]) . "\n";
     $window->set_policy (1, 1, 1);
     $window->signal_connect ( delete_event => sub { Gtk->main_quit; });
     $window->set_position(1);
@@ -366,7 +369,7 @@ sub configure_lan {
 	#	Eth${_}Hostname=$netc->{HOSTNAME}
 	#       Eth${_}HostAlias=" . do { $netc->{HOSTNAME} =~ /([^\.]*)\./; $1 } . "
 	#	Eth${_}Driver=$all_cards[$_]->[1]
-        @conf_data = ([_("IP address"), \$intf->{"eth$_"}->{IPADDR}],
+        @conf_data = ([_("IP address"), \$intf->{"eth$_"}{IPADDR}],
 			 [_("Netmask"), \$intf->{"eth$_"}{NETMASK}],
 			 [_("Boot Protocol"), \$intf->{"eth$_"}{BOOTPROTO}, ["static", "dhcp", "bootp"]],
 			 [_("Started on boot"), \$intf->{"eth$_"}{ONBOOT} , ["yes", "no"]],
-- 
cgit v1.2.1