summaryrefslogtreecommitdiffstats
path: root/perl-install
diff options
context:
space:
mode:
Diffstat (limited to 'perl-install')
-rwxr-xr-xperl-install/standalone/drakconnect18
1 files changed, 6 insertions, 12 deletions
diff --git a/perl-install/standalone/drakconnect b/perl-install/standalone/drakconnect
index 1b0ef84f3..3e582d997 100755
--- a/perl-install/standalone/drakconnect
+++ b/perl-install/standalone/drakconnect
@@ -49,7 +49,11 @@ my ($netcnx, $netc, $intf) = ({}, {}, {});
my @conx_type = ('modem', 'isdn_internal', 'isdn_external', 'adsl', 'cable', 'lan');
my $in = 'interactive'->vnew('su');
-!$::isEmbedded and $in->isa('interactive::gtk');
+if ($in->isa('interactive::gtk')) {
+ require ugtk2;
+ ugtk2->import(qw(:create :dialogs :helpers :wrappers));
+ reread_net_conf();
+}
$::Wizard_pix_up = "wiz_drakconnect.png";
MDK::Common::Globals::init(
@@ -64,24 +68,14 @@ MDK::Common::Globals::init(
/--skip-wizard/ and goto manage;
/--add/ and add_intf();
/--del/ and del_intf();
-/--internet/ and do {
- init();
- configure_net($netcnx, $netc, $intf);
-};
+/--internet/ and configure_net($netcnx, $netc, $intf);
# default is to run wizard
add_intf();
my @all_cards;
-sub init() {
- require ugtk2;
- ugtk2->import(qw(:create :dialogs :helpers :wrappers));
- reread_net_conf();
-}
-
manage:
-init();
my $window1 = ugtk2->new('drakconnect');
$window1->{rwindow}->signal_connect(delete_event => sub { ugtk2->exit(0) });
unless ($::isEmbedded) {