validate.pl

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