summaryrefslogtreecommitdiffstats
path: root/perl-install/standalone
diff options
context:
space:
mode:
authordamien <damien@mandriva.com>2001-04-03 02:40:34 +0000
committerdamien <damien@mandriva.com>2001-04-03 02:40:34 +0000
commit883d8bf86b624a3ffb96c7c1cf32db6391d39334 (patch)
treec0719ad1c9edeb5a07a3d88dce7c5936681623de /perl-install/standalone
parentb8d44b1115f1192fbdd3b83706589a38c272945c (diff)
downloaddrakx-backup-do-not-use-883d8bf86b624a3ffb96c7c1cf32db6391d39334.tar
drakx-backup-do-not-use-883d8bf86b624a3ffb96c7c1cf32db6391d39334.tar.gz
drakx-backup-do-not-use-883d8bf86b624a3ffb96c7c1cf32db6391d39334.tar.bz2
drakx-backup-do-not-use-883d8bf86b624a3ffb96c7c1cf32db6391d39334.tar.xz
drakx-backup-do-not-use-883d8bf86b624a3ffb96c7c1cf32db6391d39334.zip
corrected bad flag test
Diffstat (limited to 'perl-install/standalone')
-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"]],