[gruntmaster-page.git] / lib / Gruntmaster / Page / Common.pm

package Gruntmaster::Page::Common;

use 5.014000;
use strict;
use warnings;
use parent qw/Exporter/;
our @EXPORT_OK = qw/header footer/;

my %header_templates = (
  en => <<'HTML',
<!DOCTYPE html>
<title>TITLE_GOES_HERE</title>
<link rel="stylesheet" href="/gm.css">
<script src="/jquery-2.0.3.min.js"></script>
<script src="/view.js"></script>
<meta charset="utf-8">

<span id="admin"></span>
<div id="title"><span class="i">i</span><span class="Eval">Eval</span></div>
<div id="subtitle">TITLE_GOES_HERE</div>

<nav><ul><li><a href="/">Home</a><li><a href="/log/">View job log</a><li><a href="/submit.var">Submit job</a><li><a href="/pb/">Problem list</a><li><a href="/ct/">Contests</a></ul></nav>

HTML
);

my %footer_templates = (
  en => <<'HTML',

<footer>
Dilmom: Why don't you call your product the Gruntmaster 6000?
Dilbert: What kind of product do you see when you imagine a Gruntmaster 6000?
Dilmom: Well, it's a stripped-down version of the Gruntmaster 9000, of course. But it's software-upgradeable.
</footer>
HTML
);

sub header{
  my ($language, $title) = @_;
  $header_templates{$language} =~ s/TITLE_GOES_HERE/$title/ger;
}

sub footer{
  $footer_templates{$_[0]};
}

1;
Commit	Line	Data
832cb45e MG	1	package Gruntmaster::Page::Common;
	2
	3	use 5.014000;
	4	use strict;
	5	use warnings;
	6	use parent qw/Exporter/;
	7	our @EXPORT_OK = qw/header footer/;
	8
	9	my %header_templates = (
	10	en => <<'HTML',
	11	<!DOCTYPE html>
	12	<title>TITLE_GOES_HERE</title>
	13	<link rel="stylesheet" href="/gm.css">
	14	<script src="/jquery-2.0.3.min.js"></script>
	15	<script src="/view.js"></script>
	16	<meta charset="utf-8">
	17
	18	<span id="admin"></span>
	19	<div id="title"><span class="i">i</span><span class="Eval">Eval</span></div>
	20	<div id="subtitle">TITLE_GOES_HERE</div>
	21
	22	<nav><ul><li><a href="/">Home</a><li><a href="/log/">View job log</a><li><a href="/submit.var">Submit job</a><li><a href="/pb/">Problem list</a><li><a href="/ct/">Contests</a></ul></nav>
	23
	24	HTML
	25	);
	26
	27	my %footer_templates = (
	28	en => <<'HTML',
	29
	30	<footer>
	31	Dilmom: Why don't you call your product the Gruntmaster 6000?
	32	Dilbert: What kind of product do you see when you imagine a Gruntmaster 6000?
	33	Dilmom: Well, it's a stripped-down version of the Gruntmaster 9000, of course. But it's software-upgradeable.
	34	</footer>
	35	HTML
	36	);
	37
	38	sub header{
	39	my ($language, $title) = @_;
	40	$header_templates{$language} =~ s/TITLE_GOES_HERE/$title/ger;
	41	}
	42
	43	sub footer{
	44	$footer_templates{$_[0]};
	45	}
	46
	47	1;