diff options
Diffstat (limited to 'perl-install/standalone/draknet')
| -rwxr-xr-x | perl-install/standalone/draknet | 5 |
1 files changed, 4 insertions, 1 deletions
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"]], |