firewall/install_check.pl

   1 # install_check.pl
   2
   3 do 'firewall-lib.pl';
   4
   5 # is_installed(mode)
   6 # For mode 1, returns 2 if the server is installed and configured for use by
   7 # Webmin, 1 if installed but not configured, or 0 otherwise.
   8 # For mode 0, returns 1 if installed, 0 if not
   9 sub is_installed
  10 {
  11 return 0 if (&missing_firewall_commands());
  12 local $out = `iptables -n -t filter -L OUTPUT 2>&1`;
  13 return 0 if ($?);
  14 if ($_[0]) {
  15         if (!$config{'direct'} &&
  16             (defined(&check_iptables) && &check_iptables() ||
  17              !-s $iptables_save_file)) {
  18                 return 1;
  19                 }
  20         return 2;
  21         }
  22 return 1;
  23 }
  24