Added validation tool :-)

svn path=/trunk/; revision=3113

tools/validate.pl

@@ -0,0 +1,13 @@
+#! /usr/bin/perl
+#
+# This is a simple wrapper to XML::LibXML. It will validate (more or less)
+# an XML file. Use this before committing something to CVS to make sure that
+# the file is at least parseable as XML.
+#
+use XML::LibXML;
+
+my $parser = XML::LibXML->new;
+
+foreach (@ARGV) {
+  my $doc = $parser->parse_file($_);
+}