X-Git-Url: http://git.ieval.ro/?a=blobdiff_plain;f=lib%2FGruntmaster%2FPage.pm;h=953d8ae4ab6d78c181d558cff9de3884762f4901;hb=4d44768e04bf89f1908e23edbe162a66ffcee02f;hp=5a6ed681eb835fcf214e7a70f322ad12ce22fc15;hpb=3da9c3c228106c819530a0b8e4c646981e6f71c9;p=plack-app-gruntmaster.git diff --git a/lib/Gruntmaster/Page.pm b/lib/Gruntmaster/Page.pm index 5a6ed68..953d8ae 100644 --- a/lib/Gruntmaster/Page.pm +++ b/lib/Gruntmaster/Page.pm @@ -4,13 +4,15 @@ use 5.014000; use strict; use warnings; use parent qw/Exporter/; -our @EXPORT_OK = qw/generate/; +our @EXPORT_OK = qw/generate _generate/; use Fcntl qw/:flock/; use File::Basename qw/fileparse/; +use File::Path qw/make_path/; use File::Slurp qw/write_file/; use IO::Compress::Gzip qw/gzip/; use IO::File; +use Gruntmaster::Data qw/PUBLISH/; our $VERSION = '0.001'; our @generators; @@ -34,20 +36,22 @@ sub declaregen{ my $contest = qr,(?:ct/$component/)?,; declaregen Index => qr,^index$,; declaregen Learn => qr,^learn$,; + declaregen Account => qr,^account$,; declaregen Ct => qr,^ct/index$,; declaregen 'Ct::Entry' => qr,^ct/$component/index$,; declaregen St => qr,^ct/$component/log/st$,; declaregen Log => qr,^${contest}log/(?:\d+|index)$,; - declaregen 'Log::Entry' => qr,^${contest}log/$component/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{ +sub _generate{ my ($path) = @_; my ($path_noext, $ext) = $path =~ m/^(.*)\.(.*)$/; - my $basename = fileparse $path_noext; + 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; @@ -74,6 +78,10 @@ sub generate{ close $typemap; } +sub generate{ + PUBLISH 'genpage', shift; +} + 1; __END__ # Below is stub documentation for your module. You'd better edit it!