sub process_skel {
my ($tree, %args) = @_;
+ $tree->fid('logo')->replace_with(literal scalar read_file "mclogo.svg");
$tree->content_handler(
title => $args{title},
content => literal $args{meat});
level => ucfirst $args{level},
author => $args{author},
owner => $args{owner_name} || $args{owner});
+ if ($args{limits}) {
+ my @limits = (@{$args{limits}}, {format => 'Other', timeout => $args{timeout} });
+ @limits = map { sprintf '%s (%s)', @{$_}{qw/timeout format/} } @limits;
+ $tree->look_down(smap => 'timeout')->replace_content(join ', ', @limits);
+ }
if ($args{contest_stop}) {
$tree->fid('solution')->detach;
$tree->fid('solution_modal')->detach;