#!/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 = ;
close DRIVERENTRY;
my $driverentry = join ('', @driverentryfield);
next unless $driverentry;
if (($driverentry =~ m!\s*!sg) ||
($driverentry =~ m!!sg) ||
($driverentry !~ m!/\s]!sg)) {
unlink("$libdir/db/source/driver/$driver") ||
die "Cannot delete $driver!\n";
print "$driver has an empty command line, deleted!\n";
}
}
closedir DRIVERDIR;