<%once>
use CGI;
</%once>

<%init>

my $q = CGI->new;
my $cookie = $q->cookie( -name => "toupeira" );

if (!defined $cookie) {
   $m->clear_buffer;
   $r->method('POST');
   $r->headers_in->unset('Content-length');
   $r->content_type('text/html');
   $r->header_out(Location=>"/toupeira/login.html");
   $m->abort(302);
}

</%init>