at/edit_job.cgi

   1 #!/usr/local/bin/perl
   2 # edit_job.cgi
   3 # Display a command for deletion
   4
   5 require './at-lib.pl';
   6 &ReadParse();
   7 @jobs = &list_atjobs();
   8 ($job) = grep { $_->{'id'} eq $in{'id'} } @jobs;
   9 $job || &error($text{'edit_ejob'});
  10 &can_edit_user(\%access, $job->{'user'}) || &error($text{'edit_ecannot'});
  11
  12 &ui_print_header(undef, $text{'edit_title'}, "");
  13
  14 print &ui_form_start("delete_job.cgi");
  15 print &ui_hidden("id", $in{'id'});
  16 print &ui_table_start($text{'edit_header'}, "width=100%", 4);
  17
  18 # Run as user
  19 @uinfo = getpwnam($job->{'user'});
  20 $uinfo[6] =~ s/,.*$//g;
  21 print &ui_table_row($text{'index_user'},
  22         &html_escape($job->{'user'}).
  23         ($uinfo[6] ? " (".&html_escape($uinfo[6]).")" : ""), 3);
  24
  25 # When to run
  26 print &ui_table_row($text{'index_exec'}, &make_date($job->{'date'}));
  27
  28 # When created
  29 print &ui_table_row($text{'index_created'}, &make_date($job->{'created'}));
  30
  31 if ($in{'full'}) {
  32         # Full command
  33         print &ui_table_row($text{'edit_cmd'},
  34                 "<pre>".&html_escape(
  35                     join("\n", &wrap_lines($job->{'cmd'}, 80)))."</pre>", 3);
  36         }
  37 else {
  38         # Just the short command
  39         print &ui_table_row($text{'edit_shortcmd'},
  40                 "<pre>".&html_escape(
  41                     join("\n", &wrap_lines($job->{'realcmd'}, 80)))."</pre>".
  42                 "<a href='edit_job.cgi?full=1&id=".&urlize($in{'id'})."'>".
  43                 $text{'edit_showfull'}."</a>", 3);
  44         }
  45
  46 print &ui_table_end();
  47 print &ui_form_end([ [ "run", $text{'edit_run'} ],
  48                      [ undef, $text{'edit_delete'} ] ]);
  49
  50 print "</table></td></tr></table></form>\n";
  51 &ui_print_footer("", $text{'index_return'});
  52