X-Git-Url: http://git.ieval.ro/?p=gruntmaster-daemon.git;a=blobdiff_plain;f=lib%2FGruntmaster%2FDaemon.pm;h=35103a5e57dcf7e25ff5b2f7bff496b64f22df95;hp=4712ed05e7559d54a329f157a98358e54d54bd44;hb=214632a8941ecaf2e7c0addf99210b9d571bb6fa;hpb=be3e5b329715f729ad21f9462e6419d087ba8bcb

diff --git a/lib/Gruntmaster/Daemon.pm b/lib/Gruntmaster/Daemon.pm
index 4712ed0..35103a5 100644
--- a/lib/Gruntmaster/Daemon.pm
+++ b/lib/Gruntmaster/Daemon.pm
@@ -44,6 +44,7 @@ sub safe_can {
 }
 
 sub purge {
+	get_logger->trace("Purging $_[0]");
 	for my $host (@purge_hosts) {
 		my $req = HTTP::Request->new(PURGE => "http://$host$_[0]");
 		$ua->request($req)
@@ -71,7 +72,7 @@ sub process{
 		};
 		$meta->{tests} = decode_json $jobr->problem->tests if $meta->{runner} eq 'File';
 
-		$meta->{ver} = {
+		$meta->{files}{ver} = {
 			name => 'ver.cpp',
 			format => $jobr->problem->verformat,
 			content => $jobr->problem->versource,
@@ -128,7 +129,7 @@ sub process{
 		$errors ? (errors => $errors) : ()
 	});
 
-	my $log = $jobr->contest ? 'ct/' . $jobr->contest . '/log' : 'log';
+	my $log = $jobr->contest ? 'ct/' . $jobr->contest->id . '/log' : 'log';
 	my $page = ($job + PAGE_SIZE - 1) / PAGE_SIZE;
 
 	purge "/$log/$job";