diff options
| author | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-18 08:05:41 +0000 |
|---|---|---|
| committer | Thierry Vignaud <tvignaud@mandriva.org> | 2002-11-18 08:05:41 +0000 |
| commit | 0f881eacc9dd3d36486097322c189d0737b56154 (patch) | |
| tree | 39cb844678231df9c0e83661ef1f00d783426a55 /perl-install/standalone/printerdrake | |
| parent | 7f7d2c8b9facf43f657214501cfe0aef8a3a5481 (diff) | |
| download | drakx-backup-do-not-use-0f881eacc9dd3d36486097322c189d0737b56154.tar drakx-backup-do-not-use-0f881eacc9dd3d36486097322c189d0737b56154.tar.gz drakx-backup-do-not-use-0f881eacc9dd3d36486097322c189d0737b56154.tar.bz2 drakx-backup-do-not-use-0f881eacc9dd3d36486097322c189d0737b56154.tar.xz drakx-backup-do-not-use-0f881eacc9dd3d36486097322c189d0737b56154.zip | |
- standalone.pm :
o make it be 'use strict' aware
o factorize options managment in one place
- standalone tools :
o they all now support -h|--help -v|--version, ...
o they can add their own options to %standalone::usages
- harddrake : use std --testing/$::testing rather than its own
--test option
Diffstat (limited to 'perl-install/standalone/printerdrake')
| -rwxr-xr-x | perl-install/standalone/printerdrake | 13 |
1 files changed, 1 insertions, 12 deletions
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake index 0369cd661..4f05e1ec2 100755 --- a/perl-install/standalone/printerdrake +++ b/perl-install/standalone/printerdrake @@ -30,18 +30,7 @@ use c; local $_ = join '', @ARGV; -/-h/ and die "usage: printerdrake [--beginner] [--expert] [--auto] [--noauto] [--skiptest] [--testing] [--cups] [--lprng] [--lpd] [--pdq]\n"; - -$::expert = 0; -if (/-expert/) { - $::expert = 1; -} elsif (/-beginner/) { - $::expert = 0; -} else { - printer::main::get_usermode (); -} -$::noauto = /-noauto/; -$::testing = /-testing/; +printer::main::get_usermode (); my $printer; |