--- Webpacus/lib/Webpacus/Controller/Editor.pm	2005/11/27 15:14:54	179
+++ Webpacus/lib/Webpacus/Controller/Editor.pm	2005/11/27 18:18:11	181
@@ -4,6 +4,7 @@
 use warnings;
 use base 'Catalyst::Controller';
 
+use HTML::Tidy;
 use Data::Dumper;
 
 =head1 NAME
@@ -168,10 +169,53 @@
 
 	my $webpac = $c->comp('Model::WebPAC');
 
+	my $html = $webpac->record( mfn => $mfn, template => $template_filename );
+
+	if ($html) {
+		$c->log->debug('check html with tidy');
+		my $tidy = new HTML::Tidy;
+		$tidy->ignore( text => [
+			qr/DOCTYPE/, qr/unsupported/, qr/proprietary/i,
+			qr/invalid character code/,
+			qr/inserting missing 'title' element/,
+			qr/lacks "summary" attribute/,
+		] );
+
+		my @lines = split( "\n", $html );
+		$_ = "$_\n" for @lines;
+
+		if ( $tidy->parse('tidy', @lines) ) {
+			if ( $tidy->messages ) {
+				$html .= <<__TIDY_CLOSE__;
+<div id="tidy_show" class="notice" style="display: none;" onclick="Element.hide('tidy_show'); Element.show('tidy');">?</div>
+<div id="tidy" class="tidy">
+<a href="#" onclick="Element.hide('tidy'); Element.show('tidy_show'); return false;">close</a>
+HTML Tidy output:
+<br/>
+__TIDY_CLOSE__
+				# Escape <, >, & and ", and to produce valid XML
+				my %escape = ('<'=>'&lt;', '>'=>'&gt;', '&'=>'&amp;', '"'=>'&quot;');
+				my $escape_re  = join '|' => keys %escape;
+
+				foreach my $m ( $tidy->messages ) {
+					my $c = $lines[ ( $m->line - 1 ) ];
+					my $txt = $m->as_string;
+					$c =~ s/($escape_re)/$escape{$1}/g;
+					$txt =~ s/($escape_re)/$escape{$1}/g;
+					my $class = '';
+					$class = ' class="tidy_'.lc($1).'"' if ($txt =~ /(Warning|Error):/s);
+					$html .= 'line ' . $m->line . ":<span${class}>$txt<tt>$c</tt></span>";
+				}
+				$html .= '</div>';
+			}
+		} else {
+			$html .= qq{<div class="tidy tidy_error">Can't parse this record with HTML Tidy!</div>};
+		}
+	}
+		
+		
 	$c->response->content_type('text/html; charset=utf-8'); 
-	$c->res->output(
-		$webpac->record( mfn => $mfn, template => $template_filename )
-	);
+	$c->res->output( $html );
 }