diff options
author | damien <damien@mandriva.com> | 2000-11-28 16:56:52 +0000 |
---|---|---|
committer | damien <damien@mandriva.com> | 2000-11-28 16:56:52 +0000 |
commit | 0880c7ba8ce88e87fa600aeb367a8f88a3ae71e7 (patch) | |
tree | 33f7ac905998f9ad6d85090f777ee4c0d0c67032 /perl-install/standalone/printerdrake | |
parent | d5c526273db473a7d87a26000585900fc10dda7d (diff) | |
download | drakx-backup-do-not-use-0880c7ba8ce88e87fa600aeb367a8f88a3ae71e7.tar drakx-backup-do-not-use-0880c7ba8ce88e87fa600aeb367a8f88a3ae71e7.tar.gz drakx-backup-do-not-use-0880c7ba8ce88e87fa600aeb367a8f88a3ae71e7.tar.bz2 drakx-backup-do-not-use-0880c7ba8ce88e87fa600aeb367a8f88a3ae71e7.tar.xz drakx-backup-do-not-use-0880c7ba8ce88e87fa600aeb367a8f88a3ae71e7.zip |
branch to build the firewall install.topic/unlabeled-1.1.1
Diffstat (limited to 'perl-install/standalone/printerdrake')
-rwxr-xr-x | perl-install/standalone/printerdrake | 25 |
1 files changed, 16 insertions, 9 deletions
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake index 3ccd01311..cee224da9 100755 --- a/perl-install/standalone/printerdrake +++ b/perl-install/standalone/printerdrake @@ -21,22 +21,29 @@ use lib qw(/usr/lib/libDrakX); use interactive; +use printer; use printerdrake; +use c; local $_ = join '', @ARGV; /-h/ and die "usage: printerdrake [--beginner] [--expert] [--auto] [--noauto] [--skiptest] [--testing]\n"; -$::beginner = /--beginner/; -$::expert = /--expert/; -$::auto = /--auto/; -$::noauto = /--noauto/; -$::skiptest = /--skiptest/; -$::testing = /--testing/; +$::beginner = /-beginner/; +$::expert = /-expert/; +$::auto = /-auto/; +$::noauto = /-noauto/; +$::skiptest = /-skiptest/; +$::testing = /-testing/; $::isStandalone = 1; -my $in = vnew interactive; +my $printer; eval { $printer = printer::getinfo('') }; +/-lpr/ and $printer->{mode} = 'lpr'; +/-cups/ and $printer->{mode} = 'CUPS'; +$printer->{mode} ||= 'CUPS'; #- assume this default if nothing found. -printerdrake::main('', printerdrake::getinfo(''), $in, sub { `urpmi --auto $_[0]` }); +my $in = vnew interactive('su'); -exec 'true' if ref($in) =~ /gtk/; #- workaround for perl-GTK +printerdrake::main($printer, $in, sub { $in->suspend; system("urpmi --auto --best-output " . join(' ', @_)); $in->resume; }); + +$in->exit(0); |