-
Notifications
You must be signed in to change notification settings - Fork 4
/
foomatic-verify-xml.in
72 lines (59 loc) · 1.76 KB
/
foomatic-verify-xml.in
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
59
60
61
62
63
64
65
66
67
68
69
70
71
72
#!@PERL@
# -*- perl -*-
# This is foomatic-verify-xml, by default it verfies the entire XML DB
# against the xml schemes. It is a conveince wrapper for xmllint
# which you will need in your PATH. It takes two argument, the xmls
# to verify and the type of XML. If not passed we simply verify
# everything in the default path and get the types from the file
# path."
use Foomatic::Defaults;
use File::Basename;
use strict;
use warnings;
my $now = time;
my $defaultGlob = "$libdir/db/source/*/*.xml";
my $type = 0;
if ($#ARGV > -1) {
if ($ARGV[0] eq "-h" || $ARGV[0] eq '--help') {
print STDERR "
Usage: foomatic-verify-xml.pl [ \"glob\" , type]
glob: xmls to verify must be wrapped in quotes to avoid the shell
expanding it, defaults to:
\"$libdir/db/source/*/*.xml\"
type: 'printer', 'driver', or 'option', defaults to being parsed from
path.
Example:
foomatic-verify-xml.pl '../foomatic-db/db/source/printer/*.xml' printer
";
exit(1);
} else {
$defaultGlob = $ARGV[0];
$type = $ARGV[1] if defined($ARGV[1]);
}
}
print "Processing, any failures will be listed below.\n";
print "---------------\n";
print "failed xmls\n";
print "---------------\n";
my @files = glob($defaultGlob);
foreach my $file (@files) {
my ($name,$path,$suffix) = fileparse($file);
my $xmlType;
if($type) {
$xmlType = $type;
} else {
$path =~ m!/([^/]*)/$!;
$xmlType = $1;
$xmlType = $xmlType . 'ion' if ($xmlType eq 'opt');
}
my $line;
$line = `xmllint --noout --schema '$libdir/xmlschema/$xmlType.xsd' '$file' 2>&1 `;
#we have to pipe stderr to stdout
if( $line =~ /fails/ ) {
print $line;
}
}
$now = time - $now;
# Print runtime #
printf("\n-------------\nTotal running time: %02d:%02d:%02d\n\n", int($now / 3600), int(($now % 3600) / 60),
int($now % 60));