use 5.014000;
use warnings;
-our $VERSION = '5999.000_014';
+our $VERSION = '5999.000_015';
use Gruntmaster::App '-command';
use Gruntmaster::Data;
use File::Slurp qw/read_file/;
+use constant PAGES => {
+ contests => '/ct/',
+ jobs => '/log/',
+ problems => '/pb/',
+ users => '/us/',
+};
+
sub opt_spec {
['file!', 'Use the contents of a file as value']
}
my ($id, %values) = @$args;
%values = map { $_ => scalar read_file $values{$_} } keys %values if $opt->{file};
db->update($self->app->table, \%values, {id => $id});
+ purge PAGES->{$self->app->table}.$_ for '', $id;
}
1;