#!/usr/bin/perl -I/home/httpd/html/htmllint

# Another HTML-lint ###########################################

if ("@ARGV" eq "") { 
  print "\nˡ : htmllint local-html-file[s]\n\n"; 
  exit; 
} 

use File::Basename;
push @INC => [&fileparse($0)]->[1];

my $add_options; # = '-religious -accessibility -r /home/httpd/html/htmllint';

if ($add_options) {
  require 'shellwords.pl';
  unshift @ARGV => &shellwords($add_options);
}

require 'htmllint.pm';
exit(&htmllint::HTMLlint(@ARGV));
