%# vim:ft=mason
%# $Id: _not_found,v 1.6 2006/05/30 10:25:11 altblue Exp $
% ############################################################################
<%once>
    use Apache::Util ();
</%once>
% ############################################################################
<%flags>
	inherit => undef
</%flags>
% ############################################################################
<%init>
    my $status = shift || 404;
    my $message = 'Your request for "'
        . $r->uri
        . '" failed with HTTP status code '
        . $status . q{.};

    $r->log->error( '[', $r->hostname, '] HTTP ', $status, ': ', $r->uri );

    $m->auto_send_headers(0);
    $m->clear_buffer;
    $r->content_type('text/plain; charset=UTF-8');
    $r->status($status);
    $r->set_content_length( bytes::length $message);
    $r->set_last_modified(time);
    $r->header_out( 'Cache-Control', 'max-age=60' );
    $r->header_out( 'Expires',       Apache::Util::ht_time( time + 60 ) );

    $r->send_http_header;
    $m->print($message);
    $m->abort;
    return 0;
</%init>