bandwidth/turnoff.cgi

   1 #!/usr/local/bin/perl
   2 # Remove firewall rules and syslog entry
   3
   4 require './bandwidth-lib.pl';
   5 &ReadParse();
   6 $access{'setup'} || &error($text{'turnoff_ecannot'});
   7
   8 # Remove firewall rules
   9 $err = &delete_rules();
  10 &error($err) if ($err);
  11
  12 if ($syslog_module eq "syslog") {
  13         # Remove syslog entry
  14         $conf = &syslog::get_config();
  15         $sysconf = &find_sysconf($conf);
  16         if ($sysconf) {
  17                 &lock_file($syslog::config{'syslog_conf'});
  18                 &syslog::delete_log($sysconf);
  19                 &unlock_file($syslog::config{'syslog_conf'});
  20                 $err = &syslog::restart_syslog();
  21                 &error($err) if ($err);
  22                 }
  23         }
  24 else {
  25         # Remove syslog-ng entries
  26         $conf = &syslog_ng::get_config();
  27         ($dest, $filter, $log) = &find_sysconf_ng($conf);
  28         &lock_file($syslog_ng::config{'syslogng_conf'});
  29         if ($dest) {
  30                 &syslog_ng::save_directive($conf, undef, $dest, undef, 0);
  31                 }
  32         if ($filter) {
  33                 &syslog_ng::save_directive($conf, undef, $filter, undef, 0);
  34                 }
  35         if ($log) {
  36                 &syslog_ng::save_directive($conf, undef, $log, undef, 0);
  37                 }
  38         &unlock_file($syslog_ng::config{'syslogng_conf'});
  39         }
  40
  41 # Remove rotation cron job
  42 $job = &find_cron_job();
  43 if ($job) {
  44         &lock_file(&cron::cron_file($job));
  45         &cron::delete_cron_job($job);
  46         &unlock_file(&cron::cron_file($job));
  47         }
  48
  49 &webmin_log("turnoff");
  50 &redirect("");
  51