Egg-Release
view release on metacpan or search on metacpan
lib/Egg/Util/BlankPage.pm view on Meta::CPAN
package Egg::Util::BlankPage;
#
# Masatoshi Mizuno E<lt>lusheE<64>cpan.orgE<gt>
#
# $Id: BlankPage.pm 337 2008-05-14 12:30:09Z lushe $
#
use strict;
use warnings;
use Egg::Release;
our $VERSION= '3.00';
sub out {
my($dispatch, $e)= @_;
my $version; eval{ $version= $e->VERSION };
$version ||= '*.**';
my $d_class= ref($e->dispatch);
$d_class=~s{\:+handler$} [];
<<END_OF_HTML;
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
"http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<title>@{[ $e->namespace ]}-${version}</title>
<head>
<style type="text/css">@{[ _style() ]}</style>
</head>
<body>
<div id="shadow"><div id="container">
<div id="banner">
<img alt="Egg - WEB application framework."
src="@{[ $e->config->{static_uri} ]}images/egg224x33.gif" width="224" height="33" />
Request PATH:
<div class="pathinfo">@{[ $e->request->path ]}</div>
</div>
<div id="content">
<h1> BLANK PAGE </h1>
<ul>
<li><a target="_blank" href="http://search.cpan.org/dist/Egg-Release/">Refer to CPAN.</a></li>
<li><a target="_blank" href="$Egg::Release::DISTURL">Original distribution site.</a></li>
</ul>
<h2>Project name and version - @{[ $e->namespace ]}-${version}</h2>
<div class="box">
<h3>Example of dispatch code. for ${d_class}.</h3>
<pre><tt>@{[ $e->dispatch->_example_code ]}</tt></pre>
</div>
<a target="_blank" href="$Egg::Release::DISTURL">
<img alt="Powerd by Egg."
src="@{[ $e->config->{static_uri} ]}images/egg468x60.gif" width="468" height="60" /></a>
</div>
</div></div>
</body>
</html>
END_OF_HTML
}
sub _style {
<<END_STYLE;
body {
background : #817264;
text-align : center;
}
a {
color : #07F;
}
img {
border : 0px;
}
h1, h2, h3 {
margin : 5px;
font : bold 25px Times,sans-serif;
text-decoration: underline;
}
h1 {
float : left;
}
h2, h3 {
font-size : 14px;
}
h2 {
margin : 30px 5px 0px 10px;
clear : both;
( run in 1.676 second using v1.01-cache-2.11-cpan-140bd7fdf52 )