##################################################
-sub purge;
-
my $db;
sub safe_can_nodie {
problem => $jobr->problem,
owner => $jobr->owner,
job => $jobr->id,
- solved => $solved});
-
- purge '/log/';
- purge "/log/$job";
- purge '/st/' . $jobr->contest if $jobr->contest;
- purge '/us/';
- purge '/us/' . $jobr->owner;
+ solved => $solved}) if !$jobr->problem->private;
}
sub got_job{