validate.pl
- $ERROR_FILE = 'c:\q\errors.log';
- $VALIDATOR = "c:\\q\\sp1_3\\bin\\nsgmls.exe -wxml -s -f $ERROR_FILE ";
- use Zvon::filesystem;
- $xmlFile = $ARGV[0];
- if (!(-f $xmlFile)) {$xmlFile = "$xmlFile\.xml";};
- if (!(-f $xmlFile)) {$xmlFile = Filesystem::filelist();}
-
- system ("$VALIDATOR $xmlFile");
- exec ("notepad $ERROR_FILE");