Software: Apache/2.2.3 (CentOS). PHP/5.1.6 

uname -a: Linux mx-ll-110-164-51-230.static.3bb.co.th 2.6.18-194.el5PAE #1 SMP Fri Apr 2 15:37:44
EDT 2010 i686 

uid=48(apache) gid=48(apache) groups=48(apache) 

Safe-mode: OFF (not secure)

/usr/sbin/   drwxr-xr-x
Free 52.24 GB of 127.8 GB (40.88%)
                            Encoder    Tools    Proc.    FTP brute    Sec.    SQL    PHP-code    Update    Feedback    Self remove    Logout    

Viewing file:     foomatic-cleanupdrivers (1.34 KB)      -rwxr-xr-x

#!/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;