-<:
-use utf8;
-use strict;
-use warnings;
-
-our $VERSION = 'v1.0';
-
-$header{content_type} = "text/html; charset=utf-8";
+<(common.inc.plp)><:
+ our $VERSION = 'v1.0';
:><!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<head>
<meta http-equiv="content-type" content="<:= $header{content_type} :>">
<title>sheet page source code</title>
-<link rel="stylesheet" type="text/css" media="all" href="/base.css"><:
- my %styles = map {$_ => $_} qw(dark mono red);
- our $style = exists $get{style} && $styles{$get{style}} || 'light';
- printf(qq{\n<link rel="%s" type="text/css" media="all" href="%s" title="%s">},
- $_ eq $style ? 'stylesheet' : 'alternate stylesheet', "/$_.css", $_
- ) for keys %styles;
-:>
+<:= stylesheet(qw'light dark mono red') :>
</head>
<body id="source">
}
:>
<p class="footer">
- <a href="/" rel="home">sheet.shiar.nl</a>/source
- <a href="git://git.shiar.nl/sheet" rel="vcs-git" title="Git repository"><:= $VERSION :></a>
+ <a href="/" rel="home">sheet.shiar.nl</a>/source.<a href="/source/source.plp"
+ rel="code" title="Written in Perl">plp</a>
+ <a href="http://git.shiar.nl/sheet.git/history/HEAD:/source.plp"
+ rel="vcs-git" title="Git repository"><:= $VERSION :></a>
created by <a href="http://shiar.nl/" rel="author">Shiar</a> •
- <a title="Licensed under the GNU Affero General Public License, version 3" rel="copyright"
- href="http://www.fsf.org/licensing/licenses/agpl-3.0.html">AGPLv3</a>
+ <a href="http://www.fsf.org/licensing/licenses/agpl-3.0.html" rel="copyright"
+ title="Licensed under the GNU Affero General Public License, version 3">AGPLv3</a>
</p>
</html>