cron/move.cgi

   1 #!/usr/local/bin/perl
   2 # move.cgi
   3 # Move a cron job up or down
   4
   5 require './cron-lib.pl';
   6 &error_setup($text{'move_err'});
   7 &ReadParse();
   8
   9 @jobs = &list_cron_jobs();
  10 $job = $jobs[$in{'idx'}];
  11 if ($in{'up'}) {
  12         $swap = $jobs[$in{'idx'}-1];
  13         }
  14 else {
  15         $swap = $jobs[$in{'idx'}+1];
  16         }
  17 $access{'move'} && &can_edit_user(\%access, $job->{'user'}) ||
  18         &error(&text('save_ecannot', $job->{'user'}));
  19 &can_edit_user(\%access, $swap->{'user'}) ||
  20         &error(&text('save_ecannot', $swap->{'user'}));
  21 $job->{'file'} eq $swap->{'file'} &&
  22   ($job->{'type'} == 0 || $job->{'type'} == 3) &&
  23   ($swap->{'type'} == 0 || $swap->{'type'} == 3) || &error($text{'move_etype'});
  24 &lock_file($job->{'file'});
  25 &swap_cron_jobs($job, $swap);
  26 &unlock_file($job->{'file'});
  27 &webmin_log("move", "cron", $job->{'user'});
  28 &redirect("");
  29