X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FPage.pm;h=6b081a2702df83ce88043646ba7a9556d254b14e;hb=d17951d1fd99fc1ed82cb900b8fff7091971e59b;hp=d014ac18fa8064ca71d15db4c24edc3e356e6d11;hpb=fe78f0c128c35e68e65850b02057997bad6717fe;p=plack-app-gruntmaster.git diff --git a/lib/Gruntmaster/Page.pm b/lib/Gruntmaster/Page.pm index d014ac1..6b081a2 100644 --- a/lib/Gruntmaster/Page.pm +++ b/lib/Gruntmaster/Page.pm @@ -3,101 +3,97 @@ package Gruntmaster::Page; use 5.014000; use strict; use warnings; -use parent qw/Exporter/; -our @EXPORT_OK = qw/generate header footer/; +use Fcntl qw/:flock/; use File::Basename qw/fileparse/; -use File::Slurp qw/write_file/; +use File::Path qw/make_path/; +use File::Slurp qw/read_file write_file/; use IO::Compress::Gzip qw/gzip/; +use IO::File; +use Gruntmaster::Data; our $VERSION = '0.001'; our @generators; use constant LANGUAGES => [ 'en' ]; use constant CONTENT_TYPES => { - html => 'text/html; charset=UTF-8', - txt => 'text/plain; charset=UTF-8', + html => 'text/html; charset=UTF-8', + txt => 'text/plain; charset=UTF-8', }; -my %header_templates = ( - en => <<'HTML', - -TITLE_GOES_HERE - - - - - - -
iEval
-
TITLE_GOES_HERE
- - - -HTML -); - -my %footer_templates = ( - en => <<'HTML', - - -HTML -); - -sub header{ - my ($language, $title) = @_; - $header_templates{$language} =~ s/TITLE_GOES_HERE/$title/ger; -} - -sub footer{ - $footer_templates{$_[0]}; -} - sub declaregen{ - my ($generator, $regex) = @_; - $generator = "Gruntmaster::Page::$generator"; - eval "require $generator"; - my $gensub = $generator->can('generate') or die "No such generator: $generator"; - push @generators, [$regex, $gensub]; + my ($generator, $regex) = @_; + $generator = "Gruntmaster::Page::$generator"; + eval "require $generator"; + push @generators, [$regex, $generator]; } { - my $component = qr'[^/]+'; - my $contest = qr,(?:ct/$component/)?,; - declaregen Index => qr,^index$,; - declaregen Ct => qr,^ct/index$,; - declaregen 'Ct::Entry' => qr,^ct/$component/index$,; - #declaregen St => qr,^ct/$component/st/index$,; - declaregen Log => qr,^${contest}log/index$,; - declaregen 'Log::Entry' => qr,^${contest}log/$component/index$,; - declaregen Submit => qr,^${contest}submit$,; - declaregen Pb => qr,^${contest}pb/index$,; - declaregen 'Pb::Entry' => qr,^${contest}pb/$component/index$,; + my $component = qr'[^/]+'; + my $contest = qr,(?:ct/$component/)?,; + declaregen Us => qr,^us/index$,; + declaregen 'Us::Entry' => qr,^us/$component$,; + declaregen Ct => qr,^ct/index$,; + declaregen 'Ct::Entry' => qr,^ct/$component/index$,; + declaregen St => qr,^${contest}log/st$,; + declaregen Log => qr,^${contest}log/(?:\d+|index)$,; + declaregen 'Log::Entry' => qr,^${contest}log/job/$component$,; + declaregen Submit => qr,^${contest}submit$,; + declaregen Pb => qr,^${contest}pb/index$,; + declaregen 'Pb::Entry' => qr,^${contest}pb/$component$,; } sub generate{ - my ($path) = @_; - my ($path_noext, $ext) = $path =~ m/^(.*)\.(.*)$/; - my $basename = fileparse $path_noext; - - open my $typemap, ">$path_noext.var"; - say $typemap "URI: $basename\n"; - for my $gen(@generators) { - my ($regex, $generator) = @$gen; - next unless $path_noext =~ $regex; + my ($path, $topic) = @_; + my ($path_noext, $ext) = $path =~ m/^(.*)\.(.*)$/; + my ($basename, $directories) = fileparse $path_noext; + make_path $directories; + + IO::File->new(">$path_noext.var")->close unless -f "$path_noext.var"; + flock my $lockfh = IO::File->new("<$path_noext.var"), LOCK_EX; + open my $typemap, ">$path_noext.var.new"; + say $typemap "URI: $basename\n"; + + my $fill_typemap = sub { + for my $lang (@{LANGUAGES()}) { + my $page = $_[0]->($lang); + write_file "$path_noext.$lang.$ext.new", $page; + say $typemap "URI: $basename.$lang.$ext\nContent-Language: $lang\nContent-Type: " . CONTENT_TYPES->{$ext} . "\n"; + gzip \$page => "$path_noext.$lang.gz.$ext.new", Minimal => 1; + say $typemap "URI: $basename.$lang.gz.$ext\nContent-Language: $lang\nContent-Encoding: gzip\nContent-Type: " . CONTENT_TYPES->{$ext} . "\n"; + } + }; + + if ($topic eq 'genpage') { + for my $gen (@generators) { + my ($regex, $generator) = @$gen; + next unless $path_noext =~ $regex; + $fill_typemap->(sub { $generator->generate($path, $_[0]) }); + last + } + } else { + my $get_article = sub { + my $article = read_file "$ENV{GRUNTMASTER_ARTICLE_ROOT}/$basename.$_[0]"; + my $title = read_file "$ENV{GRUNTMASTER_ARTICLE_ROOT}/$basename.$_[0].title"; + Gruntmaster::Page::Base::header($_[0], $title) . $article . Gruntmaster::Page::Base::footer($_[0]) + }; + + $fill_typemap->($get_article); + } + for my $lang (@{LANGUAGES()}) { - my $page = $generator->($path, $lang); - write_file "$path_noext.$lang.$ext", $page; - say $typemap "URI: $basename.$lang.$ext\nContent-Language: $lang\nContent-Type: " . CONTENT_TYPES->{$ext} . "\n"; - gzip \$page => "$path_noext.$lang.gz.$ext", Minimal => 1; - say $typemap "URI: $basename.$lang.gz.$ext\nContent-Language: $lang\nContent-Encoding: gzip\nContent-Type: " . CONTENT_TYPES->{$ext} . "\n"; + rename "$path_noext.$lang.$ext.new", "$path_noext.$lang.$ext"; + rename "$path_noext.$lang.gz.$ext.new", "$path_noext.$lang.gz.$ext"; } - } - close $typemap; + rename "$path_noext.var.new", "$path_noext.var"; + close $typemap; +} + +sub gensrc{ + my ($job) = @_; + my $ext = job_extension $job; + make_path "log/src/"; + write_file "log/src/$job.$ext", job_inmeta($job)->{files}{prog}{content}; } 1;