bacula-backup/save_sync.cgi

   1 #!/usr/local/bin/perl
   2 # Turn syncing on or off
   3
   4 require './bacula-backup-lib.pl';
   5 &foreign_require("cron", "cron-lib.pl");
   6 &ReadParse();
   7 &error_setup($text{'sync_err'});
   8
   9 $job = $oldjob = &find_cron_job();
  10 if ($in{'sched'}) {
  11         $job ||= { 'command' => $cron_cmd,
  12                    'user' => 'root',
  13                    'active' => 1 };
  14         &lock_file(&cron::cron_file($job));
  15         &cron::parse_times_input($job, \%in);
  16         &cron::create_wrapper($cron_cmd, $module_name, "sync.pl");
  17         if ($oldjob) {
  18                 &cron::change_cron_job($job);
  19                 }
  20         else {
  21                 &cron::create_cron_job($job);
  22                 }
  23         &unlock_file(&cron::cron_file($job));
  24         }
  25 elsif ($job) {
  26         &lock_file(&cron::cron_file($job));
  27         &cron::delete_cron_job($job);
  28         &unlock_file(&cron::cron_file($job));
  29         }
  30 &webmin_log("sync");
  31 &redirect("");
  32