usermin/change_access.cgi

   1 #!/usr/local/bin/perl
   2 # change_access.cgi
   3 # Update IP allow and deny parameters
   4
   5 require './usermin-lib.pl';
   6 $access{'access'} || &error($text{'acl_ecannot'});
   7 use Socket;
   8 &ReadParse();
   9 &error_setup($text{'access_err'});
  10
  11 @hosts = split(/\s+/, $in{"ip"});
  12 &lock_file($usermin_miniserv_config);
  13 &get_usermin_miniserv_config(\%miniserv);
  14 delete($miniserv{"allow"});
  15 delete($miniserv{"deny"});
  16 if ($in{"access"} == 1) { $miniserv{"allow"} = join(' ', @hosts); }
  17 elsif ($in{"access"} == 2) { $miniserv{"deny"} = join(' ', @hosts); }
  18 $miniserv{'libwrap'} = $in{'libwrap'};
  19 $miniserv{'alwaysresolve'} = $in{'alwaysresolve'};
  20 &put_usermin_miniserv_config(\%miniserv);
  21 &unlock_file($usermin_miniserv_config);
  22 &restart_usermin_miniserv();
  23 &webmin_log("access", undef, undef, \%in);
  24 &redirect("");
  25