From 42546e6c1b709dc4c8d8e7048becc14278b6cdf0 Mon Sep 17 00:00:00 2001 From: Marius Gavrilescu Date: Tue, 19 Nov 2013 23:06:47 +0200 Subject: [PATCH] Initial commit --- Changes | 6 ++ MANIFEST | 14 +++ Makefile.PL | 13 +++ README | 40 ++++++++ gruntmaster-genpage | 6 ++ lib/Gruntmaster/Page.pm | 147 ++++++++++++++++++++++++++++++ lib/Gruntmaster/Page/Index.pm | 33 +++++++ lib/Gruntmaster/Page/Log.pm | 60 ++++++++++++ lib/Gruntmaster/Page/Log/Entry.pm | 53 +++++++++++ lib/Gruntmaster/Page/Pb.pm | 43 +++++++++ lib/Gruntmaster/Page/Pb/Entry.pm | 57 ++++++++++++ lib/Gruntmaster/Page/Submit.pm | 56 ++++++++++++ t/Gruntmaster-Page.t | 18 ++++ 13 files changed, 546 insertions(+) create mode 100644 Changes create mode 100644 MANIFEST create mode 100644 Makefile.PL create mode 100644 README create mode 100755 gruntmaster-genpage create mode 100644 lib/Gruntmaster/Page.pm create mode 100644 lib/Gruntmaster/Page/Index.pm create mode 100644 lib/Gruntmaster/Page/Log.pm create mode 100644 lib/Gruntmaster/Page/Log/Entry.pm create mode 100644 lib/Gruntmaster/Page/Pb.pm create mode 100644 lib/Gruntmaster/Page/Pb/Entry.pm create mode 100644 lib/Gruntmaster/Page/Submit.pm create mode 100644 t/Gruntmaster-Page.t diff --git a/Changes b/Changes new file mode 100644 index 0000000..d1033b4 --- /dev/null +++ b/Changes @@ -0,0 +1,6 @@ +Revision history for Perl extension Gruntmaster::Page. + +0.001 Thu Oct 24 14:32:13 2013 + - original version; created by h2xs 1.23 with options + -AX -b 5.14.0 -v 0.001 Gruntmaster::Page + diff --git a/MANIFEST b/MANIFEST new file mode 100644 index 0000000..1464eb1 --- /dev/null +++ b/MANIFEST @@ -0,0 +1,14 @@ + +Changes +gruntmaster-genpage +lib/Gruntmaster/Page/Index.pm +lib/Gruntmaster/Page/Log/Entry.pm +lib/Gruntmaster/Page/Log.pm +lib/Gruntmaster/Page/Pb/Entry.pm +lib/Gruntmaster/Page/Pb.pm +lib/Gruntmaster/Page.pm +lib/Gruntmaster/Page/Submit.pm +Makefile.PL +MANIFEST +README +t/Gruntmaster-Page.t diff --git a/Makefile.PL b/Makefile.PL new file mode 100644 index 0000000..ea97420 --- /dev/null +++ b/Makefile.PL @@ -0,0 +1,13 @@ +use 5.014000; +use ExtUtils::MakeMaker; +# See lib/ExtUtils/MakeMaker.pm for details of how to influence +# the contents of the Makefile that is written. +WriteMakefile( + NAME => 'Gruntmaster::Page', + VERSION_FROM => 'lib/Gruntmaster/Page.pm', # finds $VERSION + PREREQ_PM => {}, # e.g., Module::Name => 1.1 + ($] >= 5.005 ? ## Add these new keywords supported since 5.005 + (ABSTRACT_FROM => 'lib/Gruntmaster/Page.pm', # retrieve abstract from module + AUTHOR => 'Marius Gavrilescu ') : ()), + EXE_FILES => [ qw/gruntmaster-genpage/ ] +); diff --git a/README b/README new file mode 100644 index 0000000..bbfc1d9 --- /dev/null +++ b/README @@ -0,0 +1,40 @@ +Gruntmaster-Page version 0.001 +============================== + +The README is used to introduce the module and provide instructions on +how to install the module, any machine dependencies it may have (for +example C compilers and installed libraries) and any other information +that should be provided before the module is installed. + +A README file is required for CPAN modules since CPAN extracts the +README file from a module distribution so that people browsing the +archive can use it get an idea of the modules uses. It is usually a +good idea to provide version information here so that people can +decide whether fixes for the module are worth downloading. + +INSTALLATION + +To install this module type the following: + + perl Makefile.PL + make + make test + make install + +DEPENDENCIES + +This module requires these other modules and libraries: + + blah blah blah + +COPYRIGHT AND LICENCE + +Put the correct copyright and licence information here. + +Copyright (C) 2013 by Marius Gavrilescu + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself, either Perl version 5.18.1 or, +at your option, any later version of Perl 5 you may have available. + + diff --git a/gruntmaster-genpage b/gruntmaster-genpage new file mode 100755 index 0000000..bac0eb4 --- /dev/null +++ b/gruntmaster-genpage @@ -0,0 +1,6 @@ +#!/usr/bin/perl -w +use v5.14; + +use Gruntmaster::Page qw/generate/; + +generate $_ for @ARGV; diff --git a/lib/Gruntmaster/Page.pm b/lib/Gruntmaster/Page.pm new file mode 100644 index 0000000..5c63f64 --- /dev/null +++ b/lib/Gruntmaster/Page.pm @@ -0,0 +1,147 @@ +package Gruntmaster::Page; + +use 5.014000; +use strict; +use warnings; +use parent qw/Exporter/; +our @EXPORT_OK = qw/generate header footer/; + +use File::Basename qw/fileparse/; +use File::Slurp qw/write_file/; +use IO::Compress::Gzip qw/gzip/; + +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', +}; + +my %header_templates = ( + en => <<'HTML', + +TITLE_GOES_HERE + + + + + + +
iEval
+
TITLE_GOES_HERE
+ + + +HTML +); + +my %footer_templates = ( + en => <<'HTML', + +
+Dilmom: Why don't you call your product the Gruntmaster 6000? +Dilbert: What kind of product do you see when you imagine a Gruntmaster 6000? +Dilmom: Well, it's a stripped-down version of the Gruntmaster 9000, of course. But it's software-upgradeable. +
+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]; +} + +declaregen Index => qr'^index$'; +declaregen Log => qr'^log/index$'; +declaregen 'Log::Entry' => qr'^log/.*/index$'; +declaregen Submit => qr'^submit$'; +declaregen Pb => qr'^pb/index$'; +declaregen 'Pb::Entry' => qr'^pb/.*/index$'; + +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; + 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"; + } + } + close $typemap; +} + +1; +__END__ +# Below is stub documentation for your module. You'd better edit it! + +=head1 NAME + +Gruntmaster::Page - Perl extension for blah blah blah + +=head1 SYNOPSIS + + use Gruntmaster::Page; + blah blah blah + +=head1 DESCRIPTION + +Stub documentation for Gruntmaster::Page, created by h2xs. It looks like the +author of the extension was negligent enough to leave the stub +unedited. + +Blah blah blah. + +=head2 EXPORT + +None by default. + + + +=head1 SEE ALSO + +Mention other useful documentation such as the documentation of +related modules or operating system documentation (such as man pages +in UNIX), or any relevant external documentation such as RFCs or +standards. + +If you have a mailing list set up for your module, mention it here. + +If you have a web site set up for your module, mention it here. + +=head1 AUTHOR + +Marius Gavrilescu, Emarius@E + +=head1 COPYRIGHT AND LICENSE + +Copyright (C) 2013 by Marius Gavrilescu + +This library is free software; you can redistribute it and/or modify +it under the same terms as Perl itself, either Perl version 5.18.1 or, +at your option, any later version of Perl 5 you may have available. + + +=cut diff --git a/lib/Gruntmaster/Page/Index.pm b/lib/Gruntmaster/Page/Index.pm new file mode 100644 index 0000000..5cf282d --- /dev/null +++ b/lib/Gruntmaster/Page/Index.pm @@ -0,0 +1,33 @@ +package Gruntmaster::Page::Index; + +use 5.014000; +use strict; +use warnings; +use parent qw/Exporter/; +our @EXPORT_OK = qw/generate/; +our $VERSION = '0.001'; + +use constant TITLE => 'Gruntmaster 6000'; + +use Fcntl qw/:flock/; +use HTML::Template::Compiled; +use IO::File; +use Gruntmaster::Page qw/header footer/; + +my %templates = ( + en => <<'HTML', +HTML +); + +$templates{$_} = header($_, TITLE) . $templates{$_} for keys %templates; +$templates{$_} .= footer $_ for keys %templates; + +sub generate{ + my $template = $templates{$_[1]}; + my $htc = HTML::Template::Compiled->new(scalarref => \$template); + IO::File->new('>meta.yml')->close unless -f 'meta.yml'; + flock my $metafh = IO::File->new('output +} + +1 diff --git a/lib/Gruntmaster/Page/Log.pm b/lib/Gruntmaster/Page/Log.pm new file mode 100644 index 0000000..b12d779 --- /dev/null +++ b/lib/Gruntmaster/Page/Log.pm @@ -0,0 +1,60 @@ +package Gruntmaster::Page::Log; + +use 5.014000; +use strict; +use warnings; +use parent qw/Exporter/; +our @EXPORT_OK = qw/generate/; +our $VERSION = '0.001'; + +use constant TITLE => 'Job log'; + +use Fcntl qw/:flock/; +use HTML::Template::Compiled; +use IO::File; +use POSIX qw/strftime/; +use YAML::Any qw/LoadFile/; +use Gruntmaster::Page qw/header footer/; + +my %templates = ( + en => <<'HTML', + + + +
IDProblemDateSizeUserResult +
+ + + data-private> + + +
+HTML +); + +$templates{$_} = header($_, TITLE) . $templates{$_} for keys %templates; +$templates{$_} .= footer $_ for keys %templates; + +sub generate{ + my $template = $templates{$_[1]}; + my $htc = HTML::Template::Compiled->new(scalarref => \$template); + IO::File->new('>log/meta.yml')->close unless -f 'log/meta.yml'; + flock my $metafh = IO::File->new('{id} <=> $a->{id} } map { + my $meta = LoadFile "log/$_/meta.yml"; + +{ id => $_, + date => strftime ('%c' => localtime $meta->{date}), + user => $meta->{user}, + result => $meta->{result}, + name => $meta->{name}, + problem => $meta->{problem}, + filename => $meta->{files}{prog}{name}, + (defined $meta->{private} ? (private => $meta->{private}) : ()), + size => sprintf ("%.2f KiB", (-s "log/$_/in/" . $meta->{files}{prog}{name}) / 1024), + result_text => $meta->{result_text}} } 1 .. $meta->{last}; + $htc->param(log => \@log); + $htc->output +} + +1 diff --git a/lib/Gruntmaster/Page/Log/Entry.pm b/lib/Gruntmaster/Page/Log/Entry.pm new file mode 100644 index 0000000..08230bf --- /dev/null +++ b/lib/Gruntmaster/Page/Log/Entry.pm @@ -0,0 +1,53 @@ +package Gruntmaster::Page::Log::Entry; + +use 5.014000; +use strict; +use warnings; +use parent qw/Exporter/; +our @EXPORT_OK = qw/generate/; +our $VERSION = '0.001'; + +use constant TITLE => 'Job '; + +use Fcntl qw/:flock/; +use HTML::Template::Compiled; +use IO::File; +use POSIX qw/strftime/; +use YAML::Any qw/LoadFile/; +use Gruntmaster::Page qw/header footer/; + +my %templates = ( + en => <<'HTML', + + + +
Test numberResultTime +
+ +
+HTML +); + +$templates{$_} = header($_, TITLE) . $templates{$_} for keys %templates; +$templates{$_} .= footer $_ for keys %templates; + +sub generate{ + my ($path, $lang) = @_; + $path = ($path =~ m,log/(.*)/index,)[0]; + my $template = $templates{$lang}; + + my $htc = HTML::Template::Compiled->new(scalarref => \$template); + flock my $metafh = IO::File->new("{time} = sprintf "%.4fs", $_->{time}; + $_ + } @{$meta->{results}}; + + $htc->param(id => $path); + $htc->param(tests => \@tests); + $htc->output +} + +1 diff --git a/lib/Gruntmaster/Page/Pb.pm b/lib/Gruntmaster/Page/Pb.pm new file mode 100644 index 0000000..efe7d26 --- /dev/null +++ b/lib/Gruntmaster/Page/Pb.pm @@ -0,0 +1,43 @@ +package Gruntmaster::Page::Pb; + +use 5.014000; +use strict; +use warnings; +use parent qw/Exporter/; +our @EXPORT_OK = qw/generate/; +our $VERSION = '0.001'; + +use constant TITLE => 'Problems'; + +use Fcntl qw/:flock/; +use HTML::Template::Compiled; +use IO::File; +use POSIX qw/strftime/; +use YAML::Any qw/LoadFile/; +use Gruntmaster::Page qw/header footer/; + +my %templates = ( + en => <<'HTML', +
    +
  • +
+HTML +); + +$templates{$_} = header($_, TITLE) . $templates{$_} for keys %templates; +$templates{$_} .= footer $_ for keys %templates; + +sub generate{ + my $template = $templates{$_[1]}; + my $htc = HTML::Template::Compiled->new(scalarref => \$template); + IO::File->new('>pb/meta.yml')->close unless -f 'pb/meta.yml'; + flock my $metafh = IO::File->new('{name} cmp $a->{name} } map { + my $meta = LoadFile $_; + my $id = (m,^pb/(.*)/meta.yml$,)[0]; + +{ id => $id, name => $meta->{name} } } ; + $htc->param(problems => \@problems); + $htc->output +} + +1 diff --git a/lib/Gruntmaster/Page/Pb/Entry.pm b/lib/Gruntmaster/Page/Pb/Entry.pm new file mode 100644 index 0000000..0f91c01 --- /dev/null +++ b/lib/Gruntmaster/Page/Pb/Entry.pm @@ -0,0 +1,57 @@ +package Gruntmaster::Page::Pb::Entry; + +use 5.014000; +use strict; +use warnings; +use parent qw/Exporter/; +our @EXPORT_OK = qw/generate/; +our $VERSION = '0.001'; + +use Fcntl qw/:flock/; +use HTML::Template::Compiled; +use IO::File; +use POSIX qw/strftime/; +use YAML::Any qw/LoadFile/; +use File::Basename qw/fileparse/; +use File::Slurp qw/slurp/; +use Gruntmaster::Page qw/header footer/; + +use constant FORMATS => [qw/CPP/]; +use constant TITLE => ''; + +my %templates = ( + en => <<'HTML', + + +

Submit solution

+
+ + + + + + +HTML +); + +$templates{$_} = header($_, TITLE) . $templates{$_} for keys %templates; +$templates{$_} .= footer $_ for keys %templates; + +sub generate{ + my ($path, $lang) = @_; + $path = ($path =~ m,pb/(.*)/index,)[0]; + my $template = $templates{$_[1]}; + my $htc = HTML::Template::Compiled->new(scalarref => \$template); + flock my $metafh = IO::File->new("param(formats => FORMATS); + $htc->param(id => $path); + $htc->param(name => $meta->{name}); + $htc->param(statement => scalar slurp "pb/$path/statement.$lang"); + $htc->output +} + +1 diff --git a/lib/Gruntmaster/Page/Submit.pm b/lib/Gruntmaster/Page/Submit.pm new file mode 100644 index 0000000..e6f44de --- /dev/null +++ b/lib/Gruntmaster/Page/Submit.pm @@ -0,0 +1,56 @@ +package Gruntmaster::Page::Submit; + +use 5.014000; +use strict; +use warnings; +use parent qw/Exporter/; +our @EXPORT_OK = qw/generate/; +our $VERSION = '0.001'; + +use constant FORMATS => [qw/CPP/]; +use constant TITLE => 'Submit job'; + +use Fcntl qw/:flock/; +use HTML::Template::Compiled; +use IO::File; +use YAML::Any qw/LoadFile/; +use Gruntmaster::Page qw/header footer/; + +my %templates = ( + en => <<'HTML', + +

+ +

+ +

+ + +HTML +); + +$templates{$_} = header($_, TITLE) . $templates{$_} for keys %templates; +$templates{$_} .= footer $_ for keys %templates; + +sub generate{ + my $template = $templates{$_[1]}; + my $htc = HTML::Template::Compiled->new(scalarref => \$template); + IO::File->new('>meta.yml')->close unless -f 'meta.yml'; + flock my $metafh = IO::File->new(' $id, name => $meta->{name} } } ; + $htc->param(problems => \@problems); + $htc->param(formats => FORMATS); + $htc->output +} + +1 diff --git a/t/Gruntmaster-Page.t b/t/Gruntmaster-Page.t new file mode 100644 index 0000000..284698d --- /dev/null +++ b/t/Gruntmaster-Page.t @@ -0,0 +1,18 @@ +# Before 'make install' is performed this script should be runnable with +# 'make test'. After 'make install' it should work as 'perl Gruntmaster-Page.t' + +######################### + +# change 'tests => 1' to 'tests => last_test_to_print'; + +use strict; +use warnings; + +use Test::More tests => 1; +BEGIN { use_ok('Gruntmaster::Page') }; + +######################### + +# Insert your test code below, the Test::More module is use()ed here so read +# its man page ( perldoc Test::More ) for help writing this test script. + -- 2.39.2