#!/bin/perl
# -*- perl -*-

@tags = (
	 "tt", "b", "i",
	 "em", "strong", "code", "samp", "kbd", "var", "cite",
	 "br", "a", "img",
	 "hr", "p",
	 "h1", "h2", "h3", "h4", "h5", "h6",
	 "pre", "xmp", "listing", "plaintext",
	 "dl", "dt", "dd",
	 "ul", "ol", "dir", "menu", "li",
	 "body",
	 "blockquote",
	 "address",
	 "form",
	 "input",
	 "select",
	 "option",
	 "textarea",
	 "head",
	 "title",
	 "link",
	 "isindex",
	 "base",
	 "nextid",
	 "meta",
	 "html",
	 );

%alias = (
	  "h2", "h1",
	  "h3", "h1",
	  "h4", "h1",
	  "h5", "h1",
	  "h6", "h1",
	  );

%attrvals = ("a.href", ".*",
	     "a.name", ".*",
	     "a.rel", ".*",
	     "a.rev", ".*",
	     "a.urn", ".*",
	     "a.title", ".*",
	     "a.methods", ".*",

	     "img.src", ".*",
	     "img.alt", ".*",
	     "img.align", "top|middle|bottom",
	     "img.ismap", "",

	     "pre.width", "[0-9]+",

	     "dl.compact", "",
	     "ol.compact", "",
	     "ul.compact", "",
	     "dir.compact", "",
	     "menu.compact", "",

	     "form.action", ".*",
	     "form.method", "GET|POST",
	     "form.enctype", "application/x-www-form-urlencoded",

	     "input.type", "text|password|checkbox|radio|submit|reset|image|hidden",
	     "input.name", ".*",
	     "input.value", ".*",
	     "input.src", ".*",
	     "input.checked", "",
	     "input.size", ".*",
	     "input.maxlength", "[0-9]+",
	     "input.align", "top|middle|bottom",

	     "select.name", ".*",
	     "select.size", "[0-9]+",
	     "select.multiple", "",

	     "option.selected", "",
	     "option.value", ".*",

	     "textarea.name", ".*",
	     "textarea.rows", "[0-9]+",
	     "textarea.cols", "[0-9]+",

	     "link.href", ".*",
	     "link.urn", ".*",
	     "link.rel", ".*",
	     "link.rev", ".*",
	     "link.title", ".*",
	     "link.methods", ".*",

	     "base.href", ".*",

	     "nextid.n", ".*",

	     "meta.http-equiv", ".*",
	     "meta.name", ".*",
	     "meta.content", ".*",
	     
	     );

1;