]>
iEval git - gruntmaster-data.git/blob - redis-to-postgres
4 use Gruntmaster
::OldData
;
6 use JSON qw
/encode_json/;
8 my $db = Gruntmaster
::Data
->connect('dbi:Pg:');
16 university
=> user_university
,
18 user_lastjob
() ?
(lastjob
=> user_lastjob
) : ()
25 my $meta = problem_meta
;
26 $db->problems->create({
28 author
=> problem_author
,
29 generator
=> problem_generator
() // $meta->{generator
},
30 judge
=> problem_judge
() // $meta->{judge
},
31 level
=> problem_level
,
33 olimit
=> problem_olimit
() // $meta->{olimit
},
34 owner
=> problem_owner
,
35 private
=> (problem_private
() ?
1 : 0),
36 runner
=> problem_runner
() // $meta->{runner
},
37 statement
=> problem_statement
,
38 testcnt
=> problem_testcnt
() // $meta->{testcnt
},
39 timeout
=> problem_timeout
() // $meta->{timeout
},
40 (problem_runner
() // $meta->{runner
}) eq 'File' ?
(tests
=> encode_json
$meta->{tests
}) : (),
41 exists $meta->{files
} ?
(versource
=> $meta->{files
}{ver
}{content
}, verformat
=> $meta->{files
}{ver
}{format
}) : ()
46 $db->contests->create({
49 start
=> contest_start
,
51 owner
=> contest_owner
,
53 local $Gruntmaster::OldData
::contest
= $_;
55 $db->contest_problems->create({
56 contest
=> $Gruntmaster::OldData
::contest
,
62 my $meta = job_inmeta
;
64 contest
=> $Gruntmaster::OldData
::contest
,
67 defined job_errors
() ?
(errors
=> job_errors
) : (),
68 extension
=> job_extension
,
69 format
=> $meta->{files
}{prog
}{format
},
70 job_private
() ?
(private
=> job_private
) : (),
71 problem
=> job_problem
,
73 result_text
=> job_result_text
,
74 results
=> encode_json job_results
,
75 source
=> $meta->{files
}{prog
}{content
},
84 my $meta = job_inmeta
;
88 defined job_errors
() ?
(errors
=> job_errors
) : (),
89 extension
=> job_extension
,
90 format
=> $meta->{files
}{prog
}{format
},
91 job_private
() ?
(private
=> job_private
) : (),
92 problem
=> job_problem
,
94 result_text
=> job_result_text
,
95 results
=> encode_json job_results
,
96 source
=> $meta->{files
}{prog
}{content
},
102 @jobs = map { $_->{owner
} = $_->{owner
} eq 'S7012MY' ?
'Petru' : $_->{owner
}; $_} @jobs;
103 $db->jobs->create($_) for sort {$a->{date
} <=> $b->{date
}} @jobs;
This page took 0.057681 seconds and 5 git commands to generate.