From 481c1e409ed37daad82aaf3e9e6344379b87fd27 Mon Sep 17 00:00:00 2001 From: Francois Pons Date: Fri, 26 Nov 1999 18:53:55 +0000 Subject: *** empty log message *** --- perl-install/standalone/printerdrake | 42 ++++++++++++++++++++++++++++++++++++ 1 file changed, 42 insertions(+) create mode 100755 perl-install/standalone/printerdrake (limited to 'perl-install/standalone') 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 -- cgit v1.2.1