diff options
author | Francois Pons <fpons@mandriva.com> | 1999-11-26 18:53:55 +0000 |
---|---|---|
committer | Francois Pons <fpons@mandriva.com> | 1999-11-26 18:53:55 +0000 |
commit | 481c1e409ed37daad82aaf3e9e6344379b87fd27 (patch) | |
tree | 1e3f321087dd32186139fe36bff2533dd5d1ff59 /perl-install/standalone | |
parent | 6dbd6e6db0495ddd9774f20f0fb3c239b15e13a2 (diff) | |
download | drakx-backup-do-not-use-481c1e409ed37daad82aaf3e9e6344379b87fd27.tar drakx-backup-do-not-use-481c1e409ed37daad82aaf3e9e6344379b87fd27.tar.gz drakx-backup-do-not-use-481c1e409ed37daad82aaf3e9e6344379b87fd27.tar.bz2 drakx-backup-do-not-use-481c1e409ed37daad82aaf3e9e6344379b87fd27.tar.xz drakx-backup-do-not-use-481c1e409ed37daad82aaf3e9e6344379b87fd27.zip |
*** empty log message ***
Diffstat (limited to 'perl-install/standalone')
-rwxr-xr-x | perl-install/standalone/printerdrake | 42 |
1 files changed, 42 insertions, 0 deletions
diff --git a/perl-install/standalone/printerdrake b/perl-install/standalone/printerdrake new file mode 100755 index 000000000..3ccd01311 --- /dev/null +++ b/perl-install/standalone/printerdrake @@ -0,0 +1,42 @@ +#!/usr/bin/perl + +# printerdrake +# Copyright (C) 1999 MandrakeSoft (fpons@linux-mandrake.com) +# Original version for printer configuration from pad. +# +# This program is free software; you can redistribute it and/or modify +# it under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 2, or (at your option) +# any later version. +# +# This program is distributed in the hope that it will be useful, +# but WITHOUT ANY WARRANTY; without even the implied warranty of +# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the +# GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License +# along with this program; if not, write to the Free Software +# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. + +use lib qw(/usr/lib/libDrakX); + +use interactive; +use printerdrake; + +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/; +$::isStandalone = 1; + +my $in = vnew interactive; + +printerdrake::main('', printerdrake::getinfo(''), $in, sub { `urpmi --auto $_[0]` }); + +exec 'true' if ref($in) =~ /gtk/; #- workaround for perl-GTK |