]>
Commit | Line | Data |
---|---|---|
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; |