summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
-rwxr-xr-xperl-install/standalone/draknet5
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"]],