From 35f9e05ca5f302b498a6ae96ffa693eed65af0cb Mon Sep 17 00:00:00 2001 From: damien Date: Tue, 18 Sep 2001 20:36:20 +0000 Subject: debug --- perl-install/standalone/drakgw | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) (limited to 'perl-install') 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 #- -- cgit v1.2.1