diff --git a/print_launcher.pl b/print_launcher.pl new file mode 100755 index 00000000..654f101e --- /dev/null +++ b/ print_launcher.pl@@ -0,0 +1,62 @@ +#!/usr/bin/perl -w + +use POSIX; +use Gtk; +use lib qw(/usr/lib/libDrakX); +use interactive; +use standalone; +init Gtk; +Gtk->set_locale; +use strict; + +#------------------------------------------------------------- +# i18n routines +# IMPORTANT: next two routines have to be redefined here to +# get correct namespace (drakconf instead of libDrakX) +# (This version is now UTF8 compliant - Sg 2001-08-18) +#------------------------------------------------------------- + +sub _ { + my $s = shift @_; my $t = translate($s); + sprintf $t, @_; +} + +sub translate { + my ($s) = @_; + $s ? c::dgettext('drakconf', $s) : ''; +} + +my $_sbindir = "/usr/sbin/"; +$::isEmbedded = ($::XID, $::CCPID) = "@ARGV" =~ /--embedded (\w+) (\w+)/; +my $window = $::isEmbedded ? new Gtk::Plug ($::XID) : new Gtk:: +session required /lib/security/pam_stack.so service=system-auth |