diff options
Diffstat (limited to 'perl-install/standalone')
| -rwxr-xr-x | perl-install/standalone/drakconnect | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect index de5c98a6a..9a3065089 100755 --- a/perl-install/standalone/drakconnect +++ b/perl-install/standalone/drakconnect @@ -50,7 +50,7 @@ my @conx_type = ('modem', 'isdn_internal', 'isdn_external', 'adsl', 'cable', 'la my $in = 'interactive'->vnew('su', 'network'); !$::isEmbedded && $in->isa('interactive::gtk') and $::isWizard = 1; -$::isWizard = 0; +#$::isWizard = 0; $::Wizard_pix_up = "wiz_drakconnect.png"; $::Wizard_title = "Network & Internet Configuration"; @@ -62,7 +62,7 @@ MDK::Common::Globals::init( connect_prog => "/etc/sysconfig/network-scripts/net_cnx_pg" ); -#$::isEmbedded && ref($in) =~ /gtk/ or goto dd; +$::isEmbedded && ref($in) =~ /gtk/ or goto dd; require ugtk2; import ugtk2 qw(:helpers :wrappers :create); my $expert_mode = 0; @@ -70,6 +70,8 @@ network::netconnect::read_net_conf('', $netcnx, $netc); modules::load_category('net'); my @all_cards = network::ethernet::conf_network_card_backend($netc, $intf); network::netconnect::load_conf($netcnx, $netc, $intf); +require Data::Dumper; +print STDERR Data::Dumper->Dump([ $intf ]); network::network::probe_netcnx_type('', $netc, $intf, $netcnx); my $window1 = ugtk2->new('drakconnect'); @@ -519,7 +521,7 @@ Configure them first by clicking on 'Configure'")),1,1,0); sub configure_net { - my (undef, $_prefix, $netcnx, $netc, $_intf) = @_; + my ($_prefix, $netcnx, $netc, $_intf) = @_; if (!$netcnx->{type}) { my $dialog = new_dialog(); $dialog->vbox->pack_start(new Gtk2::Label(N("You don't have an Internet connection. |