JezK
Edit File: foomatic-cleanupdrivers
#!/usr/bin/perl # -*- perl -*- # This is foomatic-cleanupdrivers. It removes all driver XML files # which have an empty command line. So one can avoid that "unusable" # printer/driver combos are shown in frontends. This program also runs # when Foomatic is not installed. use Foomatic::Defaults; if ($#ARGV > -1) { $libdir = $ARGV[0]; } elsif ($ENV{FOOMATICDB}) { $libdir = $ENV{FOOMATICDB}; } elsif (!$libdir) { $libdir = "/usr/share/foomatic"; } # Read out the program name with which we were called, but discard the path $0 =~ m!/([^/]+)\s*$!; $progname = $1; # Read the directory with the driver's XML entries opendir DRIVERDIR, "$libdir/db/source/driver" || die "Cannot open driver XML directory!\n"; my $driver; while ($driver = readdir(DRIVERDIR)) { open DRIVERENTRY, "< $libdir/db/source/driver/$driver" || die " Database entry for the driver $driver cannot be read!\n"; my @driverentryfield = <DRIVERENTRY>; close DRIVERENTRY; my $driverentry = join ('', @driverentryfield); next unless $driverentry; if (($driverentry =~ m!<prototype>\s*</prototype>!sg) || ($driverentry =~ m!<prototype\s*/\s*>!sg) || ($driverentry !~ m!<prototype[>/\s]!sg)) { unlink("$libdir/db/source/driver/$driver") || die "Cannot delete $driver!\n"; print "$driver has an empty command line, deleted!\n"; } } closedir DRIVERDIR;