Apache::Lint - Apache wrapper around HTML::Lint

Apache-Lint documentation Contained in the Apache-Lint distribution.

Index

Code Index:

NAME

Top

Apache::Lint - Apache wrapper around HTML::Lint

SYNOPSIS

Top

Apache::Lint passes all your mod_perl-generated code through the HTML::Lint module, and spits out the resulting errors into.

    <Location /my/uri>
        SetHandler      perl-script
        PerlSetVar      Filter On
        PerlHandler     Your::Handler Apache::Lint
    </Location>

Your handler Your::Handler must be Apache::Filter-aware. At the top of your handler, put this line:

    my $r = shift;
    $r = $r->filter_register

VERSION

Top

Version 0.10

FUNCTIONS

Top

handler()

Apache::Filter-aware content handler. Your other handlers in the chain must also be filter-aware.

SEE ALSO

Top

HTML::Lint, Apache::Filter

TODO

Top

* Make it work

LICENSE

Top

This code may be distributed under the same terms as Perl itself.

Please note that these modules are not products of or supported by the employers of the various contributors to the code.

AUTHOR

Top

Andy Lester, <andy@petdance.com>

Apache-Lint documentation Contained in the Apache-Lint distribution. 
package Apache::Lint;

use warnings;
use strict;


our $VERSION = '0.10';

use mod_perl 1.21;
use Apache::Constants qw( OK HTTP_OK );
use Apache::Log;
use HTML::Lint;


sub handler {
    my $r = shift;
    $r = $r->filter_register;

    my $log = $r->server->log;

    # Get any output from previous filters in the chain.
    (my $fh, my $handler_status) = $r->filter_input;

    return $handler_status unless $handler_status == OK;

    my $output = do { local $/ = undef; <$fh> };
    $r->print( $output );

    my $response_code = $r->status;
    my $type = $r->content_type;
    return OK unless ($r->content_type eq "text/html") && ($r->status eq HTTP_OK);

    my $lint = new HTML::Lint;
    $lint->newfile( $r->uri );
    $lint->parse( $output );
    $lint->eof;

    if ( $lint->errors ) {
        $log->warn( "Apache::Lint found errors in ", $r->the_request );
        $log->warn( $_->as_string() ) for $lint->errors;
    }

    return $handler_status;
}

1;

__END__