summaryrefslogtreecommitdiffstats
path: root/perl-install/printer
diff options
context:
space:
mode:
authorTill Kamppeter <tkamppeter@mandriva.com>2004-03-01 14:08:13 +0000
committerTill Kamppeter <tkamppeter@mandriva.com>2004-03-01 14:08:13 +0000
commitb2cad65bfaf2f3515b8c9c917e7b0c99481cf4b7 (patch)
tree3e23818f3b3cfa9d04ae5e2ce2d2c2c9c68fc0a7 /perl-install/printer
parent8375abebba0f0a82fff946ab65db1b5673688040 (diff)
downloaddrakx-backup-do-not-use-b2cad65bfaf2f3515b8c9c917e7b0c99481cf4b7.tar
drakx-backup-do-not-use-b2cad65bfaf2f3515b8c9c917e7b0c99481cf4b7.tar.gz
drakx-backup-do-not-use-b2cad65bfaf2f3515b8c9c917e7b0c99481cf4b7.tar.bz2
drakx-backup-do-not-use-b2cad65bfaf2f3515b8c9c917e7b0c99481cf4b7.tar.xz
drakx-backup-do-not-use-b2cad65bfaf2f3515b8c9c917e7b0c99481cf4b7.zip
Do not configure the GIMP-Print plug-in on more than 50 users (bug #6423).
Diffstat (limited to 'perl-install/printer')
-rw-r--r--perl-install/printer/gimp.pm6
1 files changed, 4 insertions, 2 deletions
diff --git a/perl-install/printer/gimp.pm b/perl-install/printer/gimp.pm
index c5cdd1dea..8da3a7625 100644
--- a/perl-install/printer/gimp.pm
+++ b/perl-install/printer/gimp.pm
@@ -178,7 +178,7 @@ sub makeprinterentry {
} elsif ($ppd =~ /Foomatic\s*\+\s*gimp\s*\-\s*print/im) {
# GhostScript + Foomatic driver
$gimpprintqueue = 1;
- $ppd =~ /\-sModel=((escp2|pcl|bjc|lexmark)\-[^\s\"']*)/im and
+ $ppd =~ /\-sModel=((escp2|pcl|bjc|lexmark)\-[^\s\"\']*)/im and
$gimpprintdriver = $1;
}
if ($gimpprintqueue) {
@@ -211,10 +211,12 @@ sub makeprinterentry {
sub findconfigfiles() {
my @configfilenames = (if_(-d "$::prefix/usr/lib/gimp/1.2", ".gimp-1.2/printrc"),
- if_(-d "$::prefix/usr/lib/gimp/1.3", ".gimp-1.3/printrc"));
+ if_(-d "$::prefix/usr/lib/gimp/1.3", ".gimp-1.3/printrc"),
+ if_(-d "$::prefix/usr/lib/gimp/2.0", ".gimp-2.0/printrc"));
return () unless @configfilenames;
my @filestotreat;
foreach (&list_passwd()) {
+ last if ($#filestotreat > 50);
my ($username, undef, $uid, $gid, undef, undef, undef, $homedir) = @$_;
next if 0 < $uid && $uid < 500 || $username eq "nobody";
foreach my $file (@configfilenames) {