Show index.html syntax highlighted
% # vim:set syntax=mason:
<%args>
$mx => ''
</%args>
<%once>
use AlphaMail::HTMLHelper qw(hyperlink);
use AlphaMail;
</%once>
<%init>
my $r = Apache->request;
my $logger = Log::Log4perl->get_logger('login');
my $uri;
my $reason = undef;
my $args;
if(!$mx) {
$mx = $config->get('default_domain', '');
}
if($r->prev) {
$uri = $r->prev->uri;
$reason = $r->prev->subprocess_env("AuthCookieReason");
$args = $r->prev->args;
}
if ($args) {
$uri .= "?$args";
$logger->debug("Previous URI with params: $uri");
}
my $imaps = $config->getIMAPServers;
my $base = $config->get('base_url');
$logger->debug("Reason was set to $reason") if($reason);
$logger->debug("Previous URI: $uri");
</%init>
<html>
<head>
<title><% $config->get('organization_name') %> Alpha Mail</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<meta http-equiv="pragma" content="no-cache"></meta>
<link href="/static/d.css" rel="stylesheet" type="text/css" title="Default Stylesheet" />
</head>
<body onLoad="document.forms[0].credential_0.focus();">
<div class="login_screen">
<form name="login_form" method="post" action="<% $base %>/LOGIN">
<div class="login_form">
<h1><% $config->get('organization_name') %> EMail</h1>
<input type="hidden" name="destination"
value="<% $base %>/mail/index.html">
<b>Login:</b>
<input type="text" name="credential_0" size="16">@
<select name="credential_2">
% for my $k (sort keys %$imaps) {
<option <% $mx eq $k ? "selected":"" %>><% $k |h %></option>
% }
</select><br>
<b>Password:</b>
<input type="password" name="credential_1" size="16">
% if($reason =~ m/^bad_credential/i) {
<span class="error">Incorrect Login Information</span>
% }
<br>
<select name="credential_3">
<option value="std">Standard html</option>
<option value="pda">PDA Mode</option>
</select>
<input type="hidden" name="credential_4" value="0">
<input type="hidden" name="credential_5" value="0">
<input type="hidden" name="credential_6" value="0">
<script language="JavaScript">
<!--
// Detect javascript support
document.login_form.credential_4.value = 1;
document.login_form.credential_5.value = navigator.userAgent;
document.login_form.credential_6.value = navigator.appVersion;
// -->
</script>
<input type="submit" value="Continue">
<br>
<div class="smallprint">
Running
<a target="_blank"
href="http://www.uoregon.edu/~tkay/alphamail.html">
AlphaMail Version <% $AlphaMail::VERSION %>
</a>
</div>
</div>
</form>
</div>
</body>
</html>
See more files for this project here