--- test/html-webhacc/WebHACC/Output.pm 2008/07/21 08:39:12 1.4
+++ test/html-webhacc/WebHACC/Output.pm 2008/07/21 09:40:59 1.5
@@ -278,6 +278,32 @@
$self->html ('');
} # nav_list
+sub http_header ($) {
+ shift->html (qq[Content-Type: text/html; charset=utf-8\n\n]);
+} # http_header
+
+sub http_error ($$) {
+ my $self = shift;
+ my $code = 0+shift;
+ my $text = {
+ 404 => 'Not Found',
+ }->{$code};
+ $self->html (qq[Status: $code $text\nContent-Type: text/html ; charset=us-ascii\n\n$code $text]);
+} # http_error
+
+sub html_header ($) {
+ my $self = shift;
+ $self->html (q[
+
+
+Web Document Conformance Checker (BETA)
+
+
+
+
+]);
+} # html_header
sub encode_url_component ($$) {
shift;