diff options
| author | damien <damien@mandriva.com> | 2001-04-03 02:40:34 +0000 |
|---|---|---|
| committer | damien <damien@mandriva.com> | 2001-04-03 02:40:34 +0000 |
| commit | 883d8bf86b624a3ffb96c7c1cf32db6391d39334 (patch) | |
| tree | c0719ad1c9edeb5a07a3d88dce7c5936681623de /perl-install/standalone | |
| parent | b8d44b1115f1192fbdd3b83706589a38c272945c (diff) | |
| download | drakx-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-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"]], |