]>
iEval git - gruntmaster-page.git/blob - lib/Gruntmaster/Page/Generic.pm
1 package Gruntmaster
::Page
::Generic
;
6 our $VERSION = '5999.000_001';
8 use Gruntmaster
::Page
::Base
;
9 use JSON qw
/encode_json decode_json/;
11 use Sub
::Name qw
/subname/;
13 use constant PAGE_SIZE
=> 10;
16 my ($key, $value) = @_;
18 subname
$key => $value if ref $value eq 'CODE';
23 my ($pkg, $id, $title) = @_;
24 my $fn = $pkg =~ s
,::,/,gr
;
25 return if $INC{"$fn.pm"};
27 Gruntmaster
::Page
::Base
->import_to($pkg, $id, $title);
32 my ($thing, $lang, $env) = @_;
35 #debug $env => "Contest is $ct";
36 $thing{makers
} //= sub { db
(shift)->resultset($thing{rsname
}) };
37 my $rs = $thing{makers
}->($env);
38 $rs = $rs->search(undef, {order_by
=> 'me.id'}) unless $rs->is_ordered;
39 if (my $page = $env->{'gruntmaster.page'}) {
40 my $pages = int ($rs->count / PAGE_SIZE
);
41 $params{default_page
} = $page == -1;
42 $pages = 1 if $pages < 1;
43 $page = $pages if $page == -1;
44 @params{'page', 'pages'} = ($page, $pages);
45 $rs = $rs->search(undef, {offset
=> ($page - 1) * PAGE_SIZE
, ($page == $pages ?
() : (rows
=> PAGE_SIZE
))});
47 $rs = $rs->search(undef, {
48 exists $thing{prefetch
} ?
(prefetch
=> $thing{prefetch
}) : (),
49 exists $thing{columns
} ?
(columns
=> $thing{columns
}) : (),
51 my @thing = map +{rs
=> $_, $_->get_columns}, $rs->all;
52 @thing = map { $thing{mangle
}->($env); $_ } @thing if exists $thing{mangle
};
53 @thing = grep { $thing{choose
}->() } @thing if exists $thing{choose
};
54 @thing = sort { $thing{sortby
}->() } @thing if exists $thing{sortby
};
55 $thing{group
} //= sub { $thing{id
} };
57 my $group = $thing{group
}->();
58 $params{$group} //= [];
59 push $params{$group}, $_
61 wantarray ?
%params : \
%params
65 my ($thing, $lang, $env, $id) = @_;
67 debug
$env => "Rsname is $thing{rsname} and id is $id";
68 my %params = map {+ rs
=> $_, $_->get_columns } db
($env)->resultset($thing{rsname
})->find($id);
70 $thing{mangle
}->($env) if exists $thing{mangle
};
71 wantarray ?
%params : \
%params
74 sub headers
($) { ['Content-Type' => 'application/json', 'Cache-Control' => 'max-age=' . $_[0]->max_age] }
78 my $ucid = ucfirst $thing{id
};
79 my $pkg = "Gruntmaster::Page::$ucid";
81 putsym
"${pkg}::_generate", sub { $_[1]->param(list \
%thing, @_[2..$#_]) } if makepkg
$pkg, @thing{qw
/id title/};
82 putsym
"${pkg}::Entry::_generate", sub { $_[1]->param(entry \
%thing, @_[2..$#_]) } if makepkg
"${pkg}::Entry", "$thing{id}_entry", $thing{entry_title
} // '<tmpl_var name>';
83 putsym
"${pkg}::Read::generate", sub { [200, headers
shift, [encode_json list \
%thing, @_]] } if makepkg
"${pkg}::Read";
84 putsym
"${pkg}::Entry::Read::generate", sub { [200, headers
shift, [encode_json entry \
%thing, @_]] } if makepkg
"${pkg}::Entry::Read";
99 local *{"params"} = sub { @thing{qw
/id rsname title entry_title/} = @_ };
100 local *{"choose"} = sub { $thing{choose
} = shift };
101 local *{"sortby"} = sub { $thing{sortby
} = shift };
102 local *{"mangle"} = sub { $thing{mangle
} = shift };
103 local *{"group"} = sub { $thing{group
} = shift };
104 local *{"makers"} = sub { $thing{makers
} = shift };
105 local *{"prefetch"} = sub { $thing{prefetch
} = \
@_ };
106 local *{"columns"} = sub { $thing{columns
} = \
@_ };
113 ##################################################
116 params qw
/us User Users/;
117 choose
{ $_->{name
} =~ /\w/ };
118 sortby
{ lc $a->{name
} cmp lc $b->{name
} };
122 params qw
/pb Problem Problems/;
127 return $db->problems->search({owner
=> $env->{'gruntmaster.user'}}) if exists $env->{'gruntmaster.user'};
128 return $db->problems->search({'contest_problems.contest' => $env->{'gruntmaster.contest'}}, {join => 'contest_problems'}) if exists $env->{'gruntmaster.contest'};
129 $db->problems->search({-or => ['contest_problems.contest' => undef, 'contest.stop' => {'<=', time}], 'me.private' => 0}, {join => {'contest_problems' => 'contest'}, distinct
=> 1});
131 sortby
{ $a->{name
} cmp $b->{name
}};
132 group
{ $_->{level
} };
135 $_->{owner_name
} = $_->{rs
}->owner->name;
136 $_->{cansubmit
} = $env->{'gruntmaster.contest'} ?
time < db
($env)->contest($env->{'gruntmaster.contest'})->stop : 1;
138 db
($env)->opens->create({
139 contest
=> $env->{'gruntmaster.contest'},
141 owner
=> $env->{REMOTE_USER
},
144 } if $env->{'gruntmaster.contest'} && time >= db
($env)->contest($env->{'gruntmaster.contest'})->start;
145 say "Error when creating open: $@";
150 params qw
/ct Contest Contests/;
152 sortby
{ $b->{start
} <=> $a->{start
} };
153 group
{ time < $_->{start
} ?
'pending' : time > $_->{stop
} ?
'finished' : 'running' };
154 mangle
{ $_->{started
} = time >= $_->{start
}; $_->{owner_name
} = $_->{rs
}->owner->name };
158 params qw
/log Job/, 'Job log', 'Job <tmpl_var id>';
159 prefetch
'owner', 'problem';
163 return $db->jobs->search({'me.owner' => $env->{'gruntmaster.user'}}) if exists $env->{'gruntmaster.user'};
164 return $db->jobs->search({problem
=> $env->{'gruntmaster.problem'}}) if exists $env->{'gruntmaster.problem'};
165 $db->jobs->search({contest
=> $env->{'gruntmaster.contest'}})
167 sortby
{ $b->{id
} <=> $a->{id
}};
170 $_->{results
} &&= decode_json
$_->{results
};
171 $_->{owner_name
} = $_->{rs
}->owner->name;
172 $_->{problem_name
} = $_->{rs
}->problem->name;
173 $_->{size
} = length $_->{source
};
178 putsym
'Gruntmaster::Page::Pb::Entry::vary', sub { 'Authorization' };
179 putsym
'Gruntmaster::Page::Pb::Entry::max_age', sub { 600 };
180 putsym
'Gruntmaster::Page::Log::max_age', sub { 10 };
This page took 0.067933 seconds and 4 git commands to generate.