From b2cad65bfaf2f3515b8c9c917e7b0c99481cf4b7 Mon Sep 17 00:00:00 2001 From: Till Kamppeter Date: Mon, 1 Mar 2004 14:08:13 +0000 Subject: Do not configure the GIMP-Print plug-in on more than 50 users (bug #6423). --- perl-install/printer/gimp.pm | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'perl-install') 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) { -- cgit v1.2.1