diff options
| author | Till Kamppeter <tkamppeter@mandriva.com> | 2004-03-01 14:08:13 +0000 |
|---|---|---|
| committer | Till Kamppeter <tkamppeter@mandriva.com> | 2004-03-01 14:08:13 +0000 |
| commit | b2cad65bfaf2f3515b8c9c917e7b0c99481cf4b7 (patch) | |
| tree | 3e23818f3b3cfa9d04ae5e2ce2d2c2c9c68fc0a7 /perl-install/printer | |
| parent | 8375abebba0f0a82fff946ab65db1b5673688040 (diff) | |
| download | drakx-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.pm | 6 |
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) { |