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

package Gruntmaster::Page::Base;

use 5.014000;
use strict;
use warnings;

use File::Slurp qw/read_file/;
use HTML::Template::Compiled;

##################################################

use POSIX ();
use Gruntmaster::Data ();
use List::Util ();
use LWP::UserAgent;

my $ua = LWP::UserAgent->new;

sub import {
	my $caller = caller;
	my ($self, $name, $title) = @_;

	Gruntmaster::Data->export_to_level(1, $caller);
	List::Util->export_to_level(1, $caller, qw/sum/);

	no strict 'refs';
	*{"${caller}::strftime"} = \&POSIX::strftime;
	*{"${caller}::NAME"} = sub () { $name };
	*{"${caller}::TITLE"} = sub () { $title };
	*{"${caller}::debug"} = sub {
		local $Log::Log4perl::caller_depth = $Log::Log4perl::caller_depth + 1;
		$_[0]->{'psgix.logger'}->({qw/level debug message/ => $_[1]})
	};
	*{"${caller}::reply"} = sub { [200, ['Content-Type' => 'text/plain'], [ @_ ] ] };
	*{"${caller}::purge"} = sub {
		return unless $ENV{PURGE_HOST};
		my $req = HTTP::Request->new(PURGE => "http://$ENV{PURGE_HOST}$_[0]");
		$ua->request($req)
	};
}

##################################################

my %orig_header_templates = (
  en => <<'HTML',
<!DOCTYPE html>
<title>TITLE_GOES_HERE</title>
<meta charset="utf-8">
<meta name="viewport" content="width=device-width, initial-scale=1.0">

<link rel="stylesheet" href="/css/cosmo" id="stylesheet">
<script src="/js" type="text/javascript"></script>

<nav class="navbar navbar-default navbar-static-top" role="navigation">
<div class="container-fluid">
<div class="navbar-header">
<button type="button" class="navbar-toggle" data-toggle="collapse" data-target="#bs-example-navbar-collapse-1"> <span class="sr-only">Toggle navigation</span><span class="icon-bar"></span><span class="icon-bar"></span><span class="icon-bar"></span></button>
<a class="navbar-brand" href="/">Gruntmaster 6000</a>
</div>

<div class="collapse navbar-collapse">
<ul class="nav navbar-nav">
<li><a href="/pb/">Problems</a>
<li><a href="/ct/">Contests</a>
<li><a href="/account">Account</a>
</ul>

<ul class="nav navbar-nav navbar-right">
<li><a class="dropdown-toggle" data-toggle="dropdown"> Theme <span class="caret"></span></a>

<ul class="dropdown-menu" role="menu">
<li><a href="#" id="theme_slate">Gunmetal gray</a>
<li><a href="#" id="theme_cyborg">Black</a>
<li><a href="#" id="theme_cerulean">White</a>
<li><a href="#" id="theme_cosmo">Metro</a>
</ul>

<li><a href="/log/">Job log</a>
</ul>
</div>
</div>
</nav>

<div class="container-fluid">

<div class="logo logo-mindcoding center-block"></div>

<h1 id="title">TITLE_GOES_HERE</h1>
<div id="result"></div>

<div id="content">
HTML
);

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

</div>

<div id="sponsors">
<h3>Official sponsors</h3>
<div class="logo logo-yardi"></div>
</div>

<footer>
<div class="row">
<div class="col-md-6 column text-center">
<a class="logo logo-hermes" href="http://www.societatea-hermes.ro"></a>
</div>

<div class="col-md-6 column text-center">
<a class="logo logo-facebook" href="http://www.facebook.com/mindcodingcluj"></a>
</div>
</div>

<h3> Partners </h3>
<a href="http://cs.ubbcluj.ro" class="logo logo-csf"></a>
<a href="http://www.uniunea.ro" class="logo logo-usr"></a>
<a href="http://www.coscj.ro" class="logo logo-cos"></a>
<a href="http://www.cluj2015.ro/romana" class="logo logo-eyc"></a>
<h3> Media Partners </h3>
<a href="http://www.clujlife.com" class="logo logo-clujlife"></a>
<a href="http://www.vinsieu.ro/eveniment/cluj/cluj-napoca/alte-evenimente/mindcoding/88970/e.html" class="logo logo-vinsieu"></a>
<a href="http://www.welcome2cluj.com" class="logo logo-welcome2cluj"></a>
</footer>
</div>
HTML
);

sub patch_templates {
	my $root = 'tmpl';
	return %{$_[0]} unless -d $root;
	my ($templates, $name) = @_;
	my %out = %$templates;
	for (<$root/$name.*>) {
		m/\.(.+)$/;
		$out{$1} = read_file $_
	}

	%out
}

my %header_templates = patch_templates \%orig_header_templates, 'header';
my %footer_templates = patch_templates \%orig_footer_templates, 'footer';

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

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

sub cook_templates {
	my ($templates, $name, $title) = @_;

	my %out = patch_templates $templates, $name;
	$out{$_}  = header ($_, $title) . $out{$_} for keys %out;
	$out{$_} .= footer  $_  for keys %out;

	%out
}

##################################################

my %templates;

sub generate{
	my ($self, $lang, @args) = @_;

	$templates{$self} = { cook_templates $self->TEMPLATES, $self->NAME => $self->TITLE } unless exists $templates{$self};

	my $htc = HTML::Template::Compiled->new(scalarref => \$templates{$self}{$lang}, default_escape => 'HTML',);
	$self->_generate($htc, $lang, @args);
	my $out = $htc->output;
	utf8::downgrade($out);
	[200, ['Content-Type' => 'text/html', 'Content-Language' => $_[1], 'Vary' => 'Accept-Language', 'X-Forever' => 1], [ $out ] ]
}

sub _generate {}

sub variants {
	[ map { [ $_, 1, 'text/html', undef, undef, $_, undef ]} keys $_[0]->TEMPLATES ]
}

1
Commit	Line	Data
bb95f538	1	package Gruntmaster::Page::Base;
832cb45e MG	2
	3	use 5.014000;
	4	use strict;
	5	use warnings;
6d78fc24 MG	6
6d78fc24 MG	7	use File::Slurp qw/read_file/;
bb95f538 MG	8	use HTML::Template::Compiled;
	9
	10	##################################################
	11
	12	use POSIX ();
	13	use Gruntmaster::Data ();
	14	use List::Util ();
49c1467a MG	15	use LWP::UserAgent;
	16
	17	my $ua = LWP::UserAgent->new;
bb95f538 MG	18
	19	sub import {
	20	my $caller = caller;
	21	my ($self, $name, $title) = @_;
	22
	23	Gruntmaster::Data->export_to_level(1, $caller);
	24	List::Util->export_to_level(1, $caller, qw/sum/);
	25
	26	no strict 'refs';
	27	*{"${caller}::strftime"} = \&POSIX::strftime;
	28	*{"${caller}::NAME"} = sub () { $name };
	29	*{"${caller}::TITLE"} = sub () { $title };
7dc32473 MG	30	*{"${caller}::debug"} = sub {
7dc32473 MG	31	local $Log::Log4perl::caller_depth = $Log::Log4perl::caller_depth + 1;
191f4979	32	$_[0]->{'psgix.logger'}->({qw/level debug message/ => $_[1]})
7dc32473	33	};
49c1467a MG	34	*{"${caller}::reply"} = sub { [200, ['Content-Type' => 'text/plain'], [ @_ ] ] };
	35	*{"${caller}::purge"} = sub {
	36	return unless $ENV{PURGE_HOST};
	37	my $req = HTTP::Request->new(PURGE => "http://$ENV{PURGE_HOST}$_[0]");
	38	$ua->request($req)
	39	};
bb95f538 MG	40	}
	41
	42	##################################################
832cb45e	43
2b0036ac	44	my %orig_header_templates = (
832cb45e MG	45	en => <<'HTML',
	46	<!DOCTYPE html>
	47	<title>TITLE_GOES_HERE</title>
832cb45e	48	<meta charset="utf-8">
a94f8453	49	<meta name="viewport" content="width=device-width, initial-scale=1.0">
832cb45e	50
1fb046b0	51	<link rel="stylesheet" href="/css/cosmo" id="stylesheet">
a94f8453 MG	52	<script src="/js" type="text/javascript"></script>
	53
	54	<nav class="navbar navbar-default navbar-static-top" role="navigation">
	55	<div class="container-fluid">
	56	<div class="navbar-header">
	57	<button type="button" class="navbar-toggle" data-toggle="collapse" data-target="#bs-example-navbar-collapse-1"> <span class="sr-only">Toggle navigation</span><span class="icon-bar"></span><span class="icon-bar"></span><span class="icon-bar"></span></button>
	58	<a class="navbar-brand" href="/">Gruntmaster 6000</a>
	59	</div>
832cb45e	60
a94f8453 MG	61	<div class="collapse navbar-collapse">
a94f8453 MG	62	<ul class="nav navbar-nav">
1c13bea0	63	<li><a href="/pb/">Problems</a>
7dc32473	64	<li><a href="/ct/">Contests</a>
a94f8453 MG	65	<li><a href="/account">Account</a>
	66	</ul>
	67
	68	<ul class="nav navbar-nav navbar-right">
	69	<li><a class="dropdown-toggle" data-toggle="dropdown"> Theme <span class="caret"></span></a>
	70
	71	<ul class="dropdown-menu" role="menu">
	72	<li><a href="#" id="theme_slate">Gunmetal gray</a>
	73	<li><a href="#" id="theme_cyborg">Black</a>
	74	<li><a href="#" id="theme_cerulean">White</a>
	75	<li><a href="#" id="theme_cosmo">Metro</a>
	76	</ul>
	77
	78	<li><a href="/log/">Job log</a>
	79	</ul>
	80	</div>
	81	</div>
	82	</nav>
	83
	84	<div class="container-fluid">
	85
1fb046b0 MG	86	<div class="logo logo-mindcoding center-block"></div>
1fb046b0 MG	87
05ebc75e	88	<h1 id="title">TITLE_GOES_HERE</h1>
52f5c679	89	<div id="result"></div>
514a5a0e MG	90
514a5a0e MG	91	<div id="content">
832cb45e MG	92	HTML
	93	);
	94
2b0036ac	95	my %orig_footer_templates = (
832cb45e MG	96	en => <<'HTML',
832cb45e MG	97
514a5a0e	98	</div>
514a5a0e	99
1fb046b0 MG	100	<div id="sponsors">
	101	<h3>Official sponsors</h3>
	102	<div class="logo logo-yardi"></div>
	103	</div>
514a5a0e	104
832cb45e	105	<footer>
1fb046b0 MG	106	<div class="row">
	107	<div class="col-md-6 column text-center">
	108	<a class="logo logo-hermes" href="http://www.societatea-hermes.ro"></a>
	109	</div>
	110
	111	<div class="col-md-6 column text-center">
	112	<a class="logo logo-facebook" href="http://www.facebook.com/mindcodingcluj"></a>
	113	</div>
	114	</div>
	115
	116	<h3> Partners </h3>
	117	<a href="http://cs.ubbcluj.ro" class="logo logo-csf"></a>
	118	<a href="http://www.uniunea.ro" class="logo logo-usr"></a>
	119	<a href="http://www.coscj.ro" class="logo logo-cos"></a>
	120	<a href="http://www.cluj2015.ro/romana" class="logo logo-eyc"></a>
	121	<h3> Media Partners </h3>
	122	<a href="http://www.clujlife.com" class="logo logo-clujlife"></a>
	123	<a href="http://www.vinsieu.ro/eveniment/cluj/cluj-napoca/alte-evenimente/mindcoding/88970/e.html" class="logo logo-vinsieu"></a>
	124	<a href="http://www.welcome2cluj.com" class="logo logo-welcome2cluj"></a>
832cb45e	125	</footer>
1fb046b0	126	</div>
832cb45e MG	127	HTML
	128	);
	129
2b0036ac	130	sub patch_templates {
db3d5b78 MG	131	my $root = 'tmpl';
db3d5b78 MG	132	return %{$_[0]} unless -d $root;
6d78fc24	133	my ($templates, $name) = @_;
2b0036ac	134	my %out = %$templates;
d1a026f7	135	for (<$root/$name.*>) {
6d78fc24	136	m/\.(.+)$/;
2b0036ac	137	$out{$1} = read_file $_
6d78fc24	138	}
2b0036ac MG	139
2b0036ac MG	140	%out
6d78fc24 MG	141	}
6d78fc24 MG	142
2b0036ac MG	143	my %header_templates = patch_templates \%orig_header_templates, 'header';
	144	my %footer_templates = patch_templates \%orig_footer_templates, 'footer';
	145
832cb45e MG	146	sub header{
	147	my ($language, $title) = @_;
	148	$header_templates{$language} =~ s/TITLE_GOES_HERE/$title/ger;
	149	}
	150
	151	sub footer{
	152	$footer_templates{$_[0]};
	153	}
	154
bb95f538	155	sub cook_templates {
2b0036ac MG	156	my ($templates, $name, $title) = @_;
	157
	158	my %out = patch_templates $templates, $name;
	159	$out{$_} = header ($_, $title) . $out{$_} for keys %out;
	160	$out{$_} .= footer $_ for keys %out;
	161
	162	%out
	163	}
	164
bb95f538 MG	165	##################################################
	166
	167	my %templates;
	168
	169	sub generate{
7dc32473	170	my ($self, $lang, @args) = @_;
bb95f538	171
db3d5b78	172	$templates{$self} = { cook_templates $self->TEMPLATES, $self->NAME => $self->TITLE } unless exists $templates{$self};
bb95f538 MG	173
bb95f538 MG	174	my $htc = HTML::Template::Compiled->new(scalarref => \$templates{$self}{$lang}, default_escape => 'HTML',);
7dc32473	175	$self->_generate($htc, $lang, @args);
1053baee MG	176	my $out = $htc->output;
	177	utf8::downgrade($out);
	178	[200, ['Content-Type' => 'text/html', 'Content-Language' => $_[1], 'Vary' => 'Accept-Language', 'X-Forever' => 1], [ $out ] ]
bb95f538 MG	179	}
	180
	181	sub _generate {}
	182
7dc32473 MG	183	sub variants {
	184	[ map { [ $_, 1, 'text/html', undef, undef, $_, undef ]} keys $_[0]->TEMPLATES ]
	185	}
	186
bb95f538	187	1