NAME
   Sledge::Authorizer::BasicAuth - Basic Authentication module for Sledge

SYNOPSIS
     package Your::Authorizer;
     use base qw(Sledge::Authorizer::BasicAuth);
     use Your::Data::User;

     __PACKAGE__->error_template('/401.html');
     __PACKAGE__->realm('SECRET PAGE');

     sub authorize {
         my $self = shift;
         my $page = shift;

         return if $page->session->param('user');

         my ($login_id, $passwd) = $self->basic_auth($page) or return;

         my $user = Your::Data::User->search(login_id => $login_id, passwd => $passwd)->first;
         if ($user) {
             $page->session->param(user => $user);
         } else {
             $self->show_error_page($page);
         }
     }

DESCRIPTION
   Sledge::Authorizer::BasicAuth is Basic Authentication module for Sledge.

AUTHOR
   MATSUNO Tokuhiro <[email protected]>

   This library is free software; you can redistribute it and/or modify it
   under the same terms as Perl itself.

THANKS TO
   Tatsuhiko Miyagawa.

SEE ALSO
   Bundle::Sledge

You are viewing proxied material from ftp.icm.edu.pl. The copyright of proxied material belongs to its original authors. Any comments or complaints in relation to proxied material should be directed to the original authors of the content concerned. Please see the disclaimer for more details.