WriteMakefile(
NAME => 'Gruntmaster::Page',
VERSION_FROM => 'lib/Gruntmaster/Page.pm',
- EXE_FILES => [ qw/gruntmaster-genarticle gruntmaster-genpage gruntmaster-genallpages gruntmaster-paged gruntmaster-contest gruntmaster-problem gruntmaster-job/ ],
ABSTRACT_FROM => 'lib/Gruntmaster/Page.pm',
AUTHOR => 'Marius Gavrilescu <marius@ieval.ro>',
MIN_PERL_VERSION => '5.14.0',
+++ /dev/null
-#!/usr/bin/perl -w
-use v5.14;
-
-use Gruntmaster::Page;
-use Gruntmaster::Page::Log;
-use Gruntmaster::Data qw/contests jobcard problems users PUBLISH/;
-
-sub generate{
- my $what = shift;
- say STDERR "Generating page $what";
- PUBLISH genpage => $what;
-}
-
-generate "ct/index.html";
-generate "ct/$_/index.html" for contests;
-
-generate "us/index.html";
-generate "us/$_.html" for users;
-
-for my $ct (undef, contests) {
- local $Gruntmaster::Data::contest = $ct;
- my $ctp = defined $ct ? "ct/$ct/" : '';
- generate "${ctp}log/st.html";
- generate "${ctp}log/index.html";
- my $pagecnt = jobcard / Gruntmaster::Page::Log::PAGE_SIZE;
- generate "${ctp}log/$_.html" for 1 .. $pagecnt;
- generate "${ctp}log/job/$_.html" for 1 .. jobcard;
- generate "${ctp}submit.html";
- generate "${ctp}pb/index.html";
- generate "${ctp}pb/$_.html" for problems;
-}
+++ /dev/null
-#!/usr/bin/perl -w
-use v5.14;
-
-use Gruntmaster::Data qw/SUBSCRIBE WAIT_FOR_MESSAGES/;
-use Gruntmaster::Page;
-
-SUBSCRIBE 'genpage', \&Gruntmaster::Page::generate;
-SUBSCRIBE 'gensrc', \&Gruntmaster::Page::gensrc;
-SUBSCRIBE 'genarticle', \&Gruntmaster::Page::generate;
-WAIT_FOR_MESSAGES 86400 while 1;
-
-1;
-__END__