/usr/sbin/foomatic-fix-xml is in foomatic-db-engine 4.0.13-1.
This file is owned by root:root, with mode 0o755.
The actual contents of the file can be viewed below.
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 | #!/usr/bin/perl
# This is foomatic-fix-xml, run this program if you have compiled
# foomatic-perl-data against libxml 1.x and you have old database
# entries with a leading blank line. libxml 1.x chokes on leading
# blank lines.
my $libdir;
if ($#ARGV > -1) {
if ($ARGV[0] eq "-h") {
print STDERR "
Usage: foomatic-fix-xml [ dir ]
dir: Directory where the Foomatic database is located, default:
/usr/share/foomatic
";
exit(1);
} else {
$libdir = $ARGV[0];
}
} else {
$libdir = "/usr/share/foomatic";
}
# A little bit of statistics
my $filesmodified = 0;
# Read the directory with the driver's XML entries
for my $dir (qw/printer driver opt/) {
opendir DIR, "$libdir/db/source/$dir" ||
die "Cannot open driver XML directory!\n";
my $file;
while ($file = readdir(DIR)) {
next if ($file !~ /.xml$/);
open XMLFILE, "< $libdir/db/source/$dir/$file" || die " Database entry $file cannot be read!\n";
my @contents = <XMLFILE>;
close XMLFILE;
my $filemodified = 0;
while ($contents[0] =~ /^\s*$/) {
shift @contents;
$filemodified = 1;
}
if ($contents[0] !~ /^</) {
$contents[0] =~ s/^\s*</</;
$filemodified = 1;
}
if ($filemodified) {
open XMLFILE, "> $libdir/db/source/$dir/$file" || die " Database entry $file cannot be written!\n";
print XMLFILE join('', @contents);
close XMLFILE;
print "Corrected file $libdir/db/source/$dir/$file\n";
$filesmodified ++;
}
}
}
closedir DIR;
print "\nCorrected $filesmodified files.\n\n";
|