tcpwrappers/cgi_args.pl

   1
   2 do 'tcpwrappers-lib.pl';
   3
   4 sub cgi_args
   5 {
   6 my ($cgi) = @_;
   7 if ($cgi eq 'edit_rule.cgi') {
   8         my @rules = &list_rules($config{'hosts_allow'});
   9         my $type = 'allow';
  10         if (!@rules) {
  11                 @rules = &list_rules($config{'hosts_deny'});
  12                 $type = 'deny';
  13                 }
  14         return @rules ? 'edit_rule.cgi?'.$type.'=1'.
  15                         '&id='.$rules[0]->{'id'} : 'new=1&allow=1';
  16         }
  17 return undef;
  18 }