From: Marius Gavrilescu Date: Thu, 6 Feb 2014 10:47:39 +0000 (+0200) Subject: Remove all EXE_FILES since they are not needed anymore X-Git-Url: http://git.ieval.ro/?a=commitdiff_plain;h=b3a3626fc8cd7bc0afd107d5791825e56fc36c19;p=gruntmaster-page.git Remove all EXE_FILES since they are not needed anymore --- diff --git a/Makefile.PL b/Makefile.PL index c8bd84b..dfb2291 100644 --- a/Makefile.PL +++ b/Makefile.PL @@ -4,7 +4,6 @@ use ExtUtils::MakeMaker; 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 ', MIN_PERL_VERSION => '5.14.0', diff --git a/gruntmaster-genallpages b/gruntmaster-genallpages deleted file mode 100755 index 2d1709e..0000000 --- a/gruntmaster-genallpages +++ /dev/null @@ -1,31 +0,0 @@ -#!/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; -} diff --git a/gruntmaster-genarticle b/gruntmaster-genarticle deleted file mode 100755 index f5b4b5f..0000000 --- a/gruntmaster-genarticle +++ /dev/null @@ -1,6 +0,0 @@ -#!/usr/bin/perl -w -use v5.14; - -use Gruntmaster::Data qw/PUBLISH/; - -PUBLISH genarticle => $_ for @ARGV; diff --git a/gruntmaster-genpage b/gruntmaster-genpage deleted file mode 100755 index 4f6c7f2..0000000 --- a/gruntmaster-genpage +++ /dev/null @@ -1,6 +0,0 @@ -#!/usr/bin/perl -w -use v5.14; - -use Gruntmaster::Data qw/PUBLISH/; - -PUBLISH genpage => $_ for @ARGV; diff --git a/gruntmaster-paged b/gruntmaster-paged deleted file mode 100755 index 2dd5001..0000000 --- a/gruntmaster-paged +++ /dev/null @@ -1,13 +0,0 @@ -#!/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__