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

diff --git a/lib/Gruntmaster/Daemon.pm b/lib/Gruntmaster/Daemon.pm
index 35103a5..a8b7b20 100644
--- a/lib/Gruntmaster/Daemon.pm
+++ b/lib/Gruntmaster/Daemon.pm
@@ -20,6 +20,15 @@ use Log::Log4perl qw/get_logger/;
 use LWP::UserAgent;
 
 use constant PAGE_SIZE => 10;
+use constant FORMAT_EXTENSION => {
+	C => 'c',
+	CPP => 'cpp',
+	MONO => 'cs',
+	JAVA => 'java',
+	PASCAL => 'pas',
+	PERL => 'pl',
+	PYTHON => 'py',
+};
 
 ##################################################
 
@@ -73,7 +82,7 @@ sub process{
 		$meta->{tests} = decode_json $jobr->problem->tests if $meta->{runner} eq 'File';
 
 		$meta->{files}{ver} = {
-			name => 'ver.cpp',
+			name => 'ver.' . FORMAT_EXTENSION->{$jobr->problem->verformat},
 			format => $jobr->problem->verformat,
 			content => $jobr->problem->versource,
 		} if $jobr->problem->verformat;