- sub (/ct/ + ?:owner~) { response ct => 'Contests', {ct => contest_list(%_)}, 300 },
+ sub (/ct/ + ?:owner~) {
+ my $cts = contest_list(%_);
+ my $first_event = min
+ map ({ $_->{start} } grep { !$_->{started} } @$cts),
+ map ({ $_->{stop} } grep { $_->{started} && !$_->{finished}} @$cts);
+ response ct => 'Contests', {ct => $cts}, 300, $first_event ? ($first_event - time) : ();
+ },