bacula-backup/bootup.cgi

   1 #!/usr/local/bin/perl
   2 # Start or stop Bacula at boot
   3
   4 require './bacula-backup-lib.pl';
   5 &ReadParse();
   6 &foreign_require("init", "init-lib.pl");
   7
   8 if ($in{'boot'}) {
   9         foreach $p (@bacula_inits) {
  10                 &init::enable_at_boot($p);
  11                 }
  12         &webmin_log("bootup");
  13         }
  14 else {
  15         foreach $p (@bacula_inits) {
  16                 &init::disable_at_boot($p);
  17                 }
  18         &webmin_log("bootdown");
  19         }
  20 &redirect("");
  21