diff options
author | damien <damien@mandriva.com> | 2001-09-18 20:36:20 +0000 |
---|---|---|
committer | damien <damien@mandriva.com> | 2001-09-18 20:36:20 +0000 |
commit | 35f9e05ca5f302b498a6ae96ffa693eed65af0cb (patch) | |
tree | 28c73c8ebd586e7263f7f2eee8f92a02fc598a8c /perl-install | |
parent | 2704cde03e4478a9ad23ed83bb3ede6d6f23ba3b (diff) | |
download | drakx-backup-do-not-use-35f9e05ca5f302b498a6ae96ffa693eed65af0cb.tar drakx-backup-do-not-use-35f9e05ca5f302b498a6ae96ffa693eed65af0cb.tar.gz drakx-backup-do-not-use-35f9e05ca5f302b498a6ae96ffa693eed65af0cb.tar.bz2 drakx-backup-do-not-use-35f9e05ca5f302b498a6ae96ffa693eed65af0cb.tar.xz drakx-backup-do-not-use-35f9e05ca5f302b498a6ae96ffa693eed65af0cb.zip |
debug
Diffstat (limited to 'perl-install')
-rwxr-xr-x | perl-install/standalone/drakgw | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/perl-install/standalone/drakgw b/perl-install/standalone/drakgw index ac6ad38f6..bf50631fd 100755 --- a/perl-install/standalone/drakgw +++ b/perl-install/standalone/drakgw @@ -32,7 +32,6 @@ local $_ = join '', @ARGV; /-h/ and die "usage: drakgw [--version]\n"; /-version/ and die 'version: $Id$ '."\n"; -!$::isEmbedded && $in->isa('interactive_gtk') and $::isWizard=1; $::Wizard_pix_up = "wiz_drakgw.png"; $::Wizard_title = _("Internet Connection Sharing"); $::direct = /-direct/; @@ -56,6 +55,8 @@ $kernel_version eq '2.2' || $kernel_version eq '2.4' or die "Only for 2.2 or 2.4 my $in = 'interactive'->vnew('su', 'default'); +!$::isEmbedded && $in->isa('interactive_gtk') and $::isWizard=1; + pur_gtk_mode() if $::isEmbedded && ref($in) =~ /gtk/; sub sys { system(@_) == 0 or log::l("[drakgw] Warning, sys failed for $_[0]") } @@ -664,6 +665,9 @@ Click on Configure to launch the setup wizard.", $setup_state)); #------------------------------------------------- #- $Log$ +#- Revision 1.54 2001/09/18 20:36:20 damien +#- debug +#- #- Revision 1.53 2001/09/12 10:57:01 damien #- corrected wizard mode in newt mode #- |