]>
iEval git - gruntmaster-page.git/blob - Gruntmaster/Page/Pb.pm
1 package Gruntmaster
::Page
::Pb
;
6 use parent qw
/Exporter/;
7 our @EXPORT_OK = qw
/generate/;
8 our $VERSION = '0.001';
10 use constant TITLE
=> 'Problems';
13 use HTML
::Template
::Compiled
;
15 use POSIX qw
/strftime/;
16 use YAML
::Any qw
/LoadFile/;
17 use Gruntmaster
::Page
::Common qw
/header footer/;
23 <tmpl_loop beginner><li><a href="<tmpl_var id>"><tmpl_var name></a>
28 <tmpl_loop easy><li><a href="<tmpl_var id>"><tmpl_var name></a>
33 <tmpl_loop medium><li><a href="<tmpl_var id>"><tmpl_var name></a>
38 <tmpl_loop hard><li><a href="<tmpl_var id>"><tmpl_var name></a>
43 $templates{$_} = header
($_, TITLE
) . $templates{$_} for keys %templates;
44 $templates{$_} .= footer
$_ for keys %templates;
47 my ($path, $lang) = @_;
48 $path =~ s
,/index\
.html
$,,;
49 my $template = $templates{$lang};
50 my $htc = HTML
::Template
::Compiled
->new(scalarref
=> \
$template);
51 IO
::File
->new(">$path/meta.yml")->close unless -f
"$path/meta.yml";
52 flock my $metafh = IO
::File
->new("<$path/meta.yml"), LOCK_SH
;
53 my @problems = sort { $b->{name
} cmp $a->{name
} } map {
54 my $meta = LoadFile
$_;
55 my $id = (m
,^$path/(.*)/meta
.yml
$,)[0];
56 +{ id
=> $id, name
=> $meta->{name
}, level
=> $meta->{level
} } } <$path/*/meta
.yml
>;
57 for my $d(qw
/beginner easy medium advanced hard/) {
58 $htc->param($d => [grep {$_->{level
} eq $d} @problems]);
This page took 0.052157 seconds and 4 git commands to generate.