<%init>
my $item;
my $date;
my @line;

#Yes, I am sending a plain text password here... I'll digest it in SHA1 in the next step
my $res = User->validate($AuthDBH, $ARGS{username}, $ARGS{password});

my $url;

if (length($ARGS{ret_url}) <= 1)
{
 $url = "/index.html";
}

if ($res->{res})
{
 my $MAC = Digest::SHA1::sha1_hex($ARGS{username}, "Get the S1gnal!");

 Apache2::Cookie->new
      ( $r,
        -name  => 'user_login',
        -value => { user_id => $ARGS{username}, MAC => $MAC },
        -path  => '/',
        -domain  => 'ruth.dobson.net',
        -expires => '+1M',
      )->bake($r);

}
else
{

 if (index($ARGS{ret_url}, '?') >= 0)
 {
   $url .= "&login_error=$res->{error_msg}";
 }
 else
 {
   $url .= "?login_error=$res->{error_msg}";
 }
}

$url= "/test.html";
$m->redirect($url);
</%init>

<%flags>
 inherit=> '/syshandler'
</%flags>