+ PUBLISH genpage => $contest ? "ct/$contest/pb/index.html" : 'pb/index.html';
+ PUBLISH genpage => $contest ? "ct/$contest/pb/$id.html" : "pb/$id.html";
+}
+
+sub cmd_set{
+ my $file;
+ GetOptions ( 'file!' => \$file );
+ my ($id, %values) = @ARGV;
+ %values = map { $_ => scalar read_file $values{$_} } keys %values if $file;
+ edit_problem $id => %values;
+ PUBLISH genpage => 'pb/index.html';
+ PUBLISH genpage => "pb/$id.html";