Keystone-Resolver
view release on metacpan or search on metacpan
web/htdocs/admin/mc/layout.mc view on Meta::CPAN
my $cookies = $cookiePackage->fetch($cookiePackage eq 'Apache2::Cookie' ? $r : ());
my $cookie = $cookies->{session};
#warn "cookieModule=[$cookieModule], cookies=[$cookies], cookie=[$cookie]";
my $session = undef;
my $user = undef;
if (defined $cookie) {
my $cval = $cookie->value();
$session = $site->session1(cookie => $cval);
if (!defined $session) {
# Old cookie for a session that's no longer around. We just
# delete the cookie, silently logging the user out if he was
# logged in.
$site->log(1, "expiring old session $cval");
my $cookie = new $cookiePackage($r, -name => "session",
-value => $cval, -expires => '-1d');
$cookie->bake($cookiePackage eq 'Apache2::Cookie' ? $r : ());
}
}
if (!defined $session) {
$session = $site->create_session();
my $cookie = new $cookiePackage($r, -name => "session",
-value => $session->cookie());
$cookie->bake($cookiePackage eq 'Apache2::Cookie' ? $r : ());
}
$m->notes(session => $session);
my $uid = $session->user_id();
if ($uid) {
$user = $site->user1(id => $uid);
die "Invalid user-ID '$uid'" if !defined $user;
$m->notes(user => $user);
}
# Generate the text of the client area before emitting the framework:
# this allows it to affect the state, so that for example a login or
# logout $component can set or unset $user.
my $text;
eval {
$text = $m->scomp($component, %ARGS);
}; if ($@ && (!ref $@ || $@->isa("HTML::Mason::Exception")) && $@ =~ /Unknown column/) {
print <<__EOT__;
A column was missing from a table in the Keystone Resolver database.<br/>
This probably means that the structure of your database is out of date<br/>
Please see <tt>/usr/share/libkeystone-resolver-perl/db/README.update</tt><br/>
<br/>
Detailed error message follows, but you can probably ignore it:
<hr/>
<pre>$@</pre>
__EOT__
return;
} elsif ($@) {
die $@;
}
$user = $m->notes("user");
</%perl>
<?xml version="1.0" encoding="UTF-8"?>
<!DOCTYPE html
PUBLIC "-//W3C//DTD XHTML 1.0 Strict//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-strict.dtd">
<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">
<head>
<title>Keystone Resolver: <% encode_entities($title) %></title>
<link rel="stylesheet" type="text/css" href="./style.css"/>
</head>
<body>
% $m->comp("/mc/debug/cookies.mc", cookies => $cookies) if $debug;
<div id="prologue">
<h1><a href="./">Keystone Resolver</a>: <% $title %></h1>
</div>
<div id="usermenu">
% if ($user) {
<div id="umleft">
<a href="./user.html"><% encode_entities($user->name()) %></a>
|
<a href="./details.html">Details</a>
|
<a href="./password.html">Password</a>
</div>
<div id="umright">
<a href="./logout.html">Logout</a>
</div>
% } else {
<div id="umright">
<a href="./login.html">Login</a>
or
<a href="./register.html">Register</a>
</div>
% }
</div>
<div id="menu">
<a href="./"><b>Home</b></a>
<p>
Search:
</p>
<ul class="tight">
<li><a href="./search.html?_class=MetadataFormat">Metadata Format</a></li>
<li><a href="./search.html?_class=Genre">Genre</a></li>
<li><a href="./search.html?_class=ServiceType">Service Type</a></li>
<li><a href="./search.html?_class=Service">Service</a></li>
<li><a href="./search.html?_class=Serial">Serial</a></li>
<li><a href="./search.html?_class=SerialAlias">Serial Alias</a></li>
<li><a href="./search.html?_class=Domain">Domain</a></li>
<li><a href="./search.html?_class=Provider">Provider</a></li>
<li><a href="./search.html?_class=ServiceTypeRule">Service Type Rule</a></li>
<li><a href="./search.html?_class=ServiceRule">Service Rule</a></li>
% if ($user && $user->admin() > 1) {
<li><a href="./search.html?_class=User"><b>User</b></a></li>
% }
</ul>
<p>
Browse:
</p>
<ul class="tight">
<li><a href="./search.html?_class=MetadataFormat&_submit=Search">Metadata Format</a></li>
<li><a href="./search.html?_class=Genre&_submit=Search">Genre</a></li>
<li><a href="./search.html?_class=ServiceType&_submit=Search">Service Type</a></li>
<li><a href="./search.html?_class=Service&_submit=Search">Service</a></li>
<li><a href="./search.html?_class=Serial&_submit=Search">Serial</a></li>
<li><a href="./search.html?_class=SerialAlias&_submit=Search">Serial Alias</a></li>
<li><a href="./search.html?_class=Domain&_submit=Search">Domain</a></li>
<li><a href="./search.html?_class=Provider&_submit=Search">Provider</a></li>
<li><a href="./search.html?_class=ServiceTypeRule&_submit=Search">Service Type Rule</a></li>
<li><a href="./search.html?_class=ServiceRule&_submit=Search">Service Rule</a></li>
% if ($user && $user->admin() > 1) {
<li><a href="./search.html?_class=User&_submit=Search"><b>User</b></a></li>
% }
</ul>
<br/>
<p>
<a href="http://validator.w3.org/check?uri=referer"><img
src="./valid-xhtml10.png"
alt="Valid XHTML 1.0 Strict" height="31" width="88" /></a>
<br/>
<a href="http://jigsaw.w3.org/css-validator/"><img
src="./vcss.png"
alt="Valid CSS!" height="31" width="88" /></a>
</p>
</div>
<div id="main">
<% $text %>
</div>
<div id="epilogue">
<a href="http://indexdata.com/">Index Data</a>
</div>
</body>
</html>
( run in 0.727 second using v1.01-cache-2.11-cpan-3782747c604 )