diff options
| author | Till Kamppeter <tkamppeter@mandriva.com> | 2002-08-28 16:25:22 +0000 |
|---|---|---|
| committer | Till Kamppeter <tkamppeter@mandriva.com> | 2002-08-28 16:25:22 +0000 |
| commit | c49ae686d5b9770861fbdaa860c81022808c3881 (patch) | |
| tree | 31f6fc316ea6aa0d4cfc2505d6337afb98ae8675 /perl-install/standalone/printerdrake | |
| parent | 27fd3d851753ac9e25ae7c6ee4ac38c02d3bca97 (diff) | |
| download | drakx-backup-do-not-use-c49ae686d5b9770861fbdaa860c81022808c3881.tar drakx-backup-do-not-use-c49ae686d5b9770861fbdaa860c81022808c3881.tar.gz drakx-backup-do-not-use-c49ae686d5b9770861fbdaa860c81022808c3881.tar.bz2 drakx-backup-do-not-use-c49ae686d5b9770861fbdaa860c81022808c3881.tar.xz drakx-backup-do-not-use-c49ae686d5b9770861fbdaa860c81022808c3881.zip | |
Printerdrake remembers now whether it was in normal mode or in expert
mode last time.
Diffstat (limited to 'perl-install/standalone/printerdrake')
| -rwxr-xr-x | perl-install/standalone/printerdrake | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake index a4190f1e1..f31ca3e68 100755 --- a/perl-install/standalone/printerdrake +++ b/perl-install/standalone/printerdrake @@ -31,7 +31,14 @@ local $_ = join '', @ARGV; /-h/ and die "usage: printerdrake [--beginner] [--expert] [--auto] [--noauto] [--skiptest] [--testing] [--cups] [--lprng] [--lpd] [--pdq]\n"; -$::expert = /-expert/; +$::expert = 0; +if (/-expert/) { + $::expert = 1; +} elsif (/-beginner/) { + $::expert = 0; +} else { + printer::get_usermode (); +} $::noauto = /-noauto/; $::testing = /-testing/; |