lib/Gruntmaster/Page/Ct.pm

   1 package Gruntmaster::Page::Ct;
   2
   3 use 5.014000;
   4 use strict;
   5 use warnings;
   6 use Gruntmaster::Page::Base ct => 'Contests';
   7 our @ISA = qw/Gruntmaster::Page::Base/;
   8 our $VERSION = '0.001';
   9
  10 use constant TEMPLATES => {
  11         en => <<'HTML',
  12 <tmpl_if running>
  13 <h1>Running contests</h1>
  14 <table border class="table table-bordered table-striped">
  15 <thead>
  16 <tr><th>Name<th>Start date<th>End date<th>Owner
  17 <tbody>
  18 <tmpl_loop running><tr><td><a href="<tmpl_var id>"><tmpl_var name></a>
  19 <td><tmpl_var start>
  20 <td><tmpl_var end>
  21 <td><tmpl_var owner>
  22 </tmpl_loop>
  23 </table>
  24 </tmpl_if>
  25
  26 <tmpl_if pending>
  27 <h1>Pending contests</h1>
  28 <table border class="table table-bordered table-striped">
  29 <thead>
  30 <tr><th>Name<th>Start date<th>End date<th>Owner
  31 <tbody>
  32 <tmpl_loop pending><tr><td><a href="<tmpl_var id>"><tmpl_var name></a>
  33 <td><tmpl_var start>
  34 <td><tmpl_var end>
  35 <td><tmpl_var owner>
  36 </tmpl_loop>
  37 </table>
  38 </tmpl_if>
  39
  40 <tmpl_if finished>
  41 <h1>Finished contests</h1>
  42 <table border class="table table-bordered table-striped">
  43 <thead>
  44 <tr><th>Name<th>Start date<th>End date<th>Owner
  45 <tbody>
  46 <tmpl_loop finished><tr><td><a href="<tmpl_var id>"><tmpl_var name></a>
  47 <td><tmpl_var start>
  48 <td><tmpl_var end>
  49 <td><tmpl_var owner>
  50 </tmpl_loop>
  51 </table>
  52 </tmpl_if>
  53 HTML
  54 };
  55
  56 sub _generate{
  57         my ($self, $htc, $lang, $env) = @_;
  58         debug $env => "language is '$lang'";
  59
  60         my (@running, @pending, @finished);
  61         for (contests) {
  62                 my $ct = { id => $_,
  63                                    name => contest_name,
  64                                    start => strftime ('%c', localtime contest_start),
  65                                    end => strftime ('%c', localtime contest_end),
  66                                    owner => contest_owner };
  67
  68                 my $time = time;
  69                 push @pending, $ct if time < contest_start;
  70                 push @running, $ct if time >= contest_start && time < contest_end;
  71                 push @finished, $ct if time > contest_end;
  72         }
  73
  74         $htc->param(running => \@running) if @running;
  75         $htc->param(pending => \@pending) if @pending;
  76         $htc->param(finished => \@finished) if @finished;
  77 }
  78
  79 1