- my (@running, @pending, @finished);
- for (<ct/*/meta.yml>) {
- my $meta = LoadFile $_;
- my $id = (m,^ct/(.*)/meta.yml$,)[0];
- my $ct = { id => $id,
- name => $meta->{name},
- start => strftime ('%c', localtime $meta->{start}),
- end => strftime ('%c', localtime $meta->{end}),
- owner => $meta->{owner}};
+ my (@running, @pending, @finished);
+ for (contests) {
+ my $ct = { id => $_,
+ name => contest_name,
+ start => strftime ('%c', localtime contest_start),
+ end => strftime ('%c', localtime contest_end),
+ owner => contest_owner };