-sub cmd_show{
- local $_ = shift or goto &cmd_list;
- say "Date: " , strftime ('%c', localtime job_date);
- say "User: ", job_user;
- say "Problem: ", problem_name job_problem;
- say "Extension: ", job_extension;
- say "Size: ", sprintf "%.2fKB", job_filesize() / 1024;
- say "Private: ", (job_private() ? 'yes' : 'no');
- say "Result text: ", job_result_text;
- say "Daemon: ", job_daemon;
- say "Compile errors: ", job_errors;
+sub cmd_rm{
+ $db->job(shift)->delete
+}
+
+sub cmd_get{
+ my ($id, $col) = @_;
+ say $db->job($id)->get_column($col)
+}
+
+sub cmd_set{
+ my ($id, %values) = @_;
+ $db->job($id)->update(\%values)