Add trace to purges

[gruntmaster-daemon.git] / lib / Gruntmaster / Daemon.pm

diff --git a/lib/Gruntmaster/Daemon.pm b/lib/Gruntmaster/Daemon.pm
index 4712ed05e7559d54a329f157a98358e54d54bd44..7b41f8cc4f9a8e58380a1d984d71fac4732d9c6b 100644 (file)
--- 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,