=pod

=head2 Chapter 6

=over to apache

 PerlModule Apache::GateKeeper

 <Location /OpenGate>
 PerlAccessHandler Apache::GateKeeper
 PerlSetVar Gate open
 </Location>

 <Location /ClosedGate>
 PerlAccessHandler Apache::GateKeeper
 PerlSetVar Gate closed
 </Location>

 PerlModule Apache::DayLimit
 <Location /weekends>
    PerlSetVar ReqDay saturday,sunday
    PerlAccessHandler Apache::DayLimit
 </Location>

 <Location /humpday>
    PerlSetVar ReqDay wednesday
    PerlAccessHandler Apache::DayLimit
 </Location>

 PerlModule Apache::SpeedLimit
 <Location /speedlimit>
   PerlAccessHandler Apache::SpeedLimit
   PerlSetVar        SpeedLimit   20
   PerlSetVar        SpeedSamples  5
   PerlSetVar        SpeedForgive 30
  </Location>

 PerlModule Apache::BlockAgent
 <Location /blockagent>
   PerlAccessHandler Apache::BlockAgent
   PerlSetVar BlockAgentFile conf/bad_agents.txt
 </Location>


 PerlModule Apache::AuthAny
 <Location /authany>
   AuthName Test
   AuthType Basic
   PerlAuthenHandler Apache::AuthAny
   require valid-user
 </Location>

 PerlModule Apache::AuthAnon
 <Location /authanon>
   AuthName Anonymous
   AuthType Basic
   PerlAuthenHandler Apache::AuthAnon
   require valid-user
 </Location>

 PerlModule Apache::AuthTieDBI Apache::AuthzTieDBI
 <Location /authtiedbi>
    AuthName "Registered Users"
    AuthType Basic
    PerlAuthenHandler Apache::AuthTieDBI

    PerlSetVar       TieDatabase  mysql:test_www
    PerlSetVar       TieTable     user_info:user_name:passwd

    #require valid-user

    PerlAuthzHandler   Apache::AuthzTieDBI
    require $user_name eq 'fred'
    require $level >=2 && $groups =~ /authors/;
 </Location>

 PerlModule Apache::AuthzGender
 <Location /authzgender>
   AuthName Gender
   AuthType Basic
   PerlAuthenHandler Apache::AuthAny
   require valid-user
   PerlAuthzHandler Apache::AuthzGender
   PerlSetVar Gender F
 </Location>

 PerlModule Apache::AuthzGender2
 <Location /authzgender2>
   AuthName Gender
   AuthType Basic
   PerlAuthenHandler Apache::AuthAny
   PerlAuthzHandler Apache::AuthzGender2
   require gender M 
 </Location>

 <Perl>
 use Config;
 use Apache::TicketTool ();
 my $domain = $Config{mydomain};
 my $hostname = Apache->server->server_hostname;
 my $port = Apache->server->port;

 $Location{"/ticket"} = {
   PerlAccessHandler => "Apache::TicketAccess",
   PerlSetVar => [
      [TicketDomain => $domain],
      [TicketSecret =>  "http://$hostname:$port/key.txt"],
   ],
   ErrorDocument => [403 => "http://$hostname:$port/ticketLogin"],
 };

 $Location{"/ticketLogin"} = {
   SetHandler  => "perl-script",
   PerlHandler => "Apache::TicketMaster",
   PerlSetVar  => [
      [TicketDomain   => $domain],
      [TicketSecret   =>  "http://$hostname:$port/key.txt"],
      [TicketDatabase => "mysql:test_www"],
      [TicketTable    => "user_info:user_name:passwd"],
      [TicketExpires  => 10],
   ],
  };

 </Perl>

=back