#!/usr/bin/perl
# Render the login form
use strict;
use warnings;
use Carp qw|carp confess|;
use Data::Dumper;
use Apache2::RequestUtil;
my $r;
eval{$r = Apache2::RequestUtil->request;} || confess $@;
my $prev = $r->prev;
my $uri = $prev->uri;
my $args = $prev->args;
$uri .= "?$args" if $args;
my $reason = $prev->subprocess_env('AuthCookieReason');
my $error = "";
if ($reason)
{
my $details;
if ($reason eq "no_cookie")
{
$details = "";
}
elsif ($reason eq "bad_cookie")
{
$details = "The cookie you presented is invalid. You must login again!";
}
elsif ($reason eq "bad_credentials")
{
$details = "Invalid Username/Password";
}
else
{
$details = $reason;
}
$error = << "__REASON__";
