CGI-Authen-Simple
1 match

 view release on metacpan or  search on metacpan

lib/CGI/Authen/Simple.pm  view on Meta::CPAN 

            $self->{'logged_in'} = 1;
            $self->{'profile'} = $profile;
        }
        else
        {
            $vars->{'login_failed'} = 1;
        }
    }

    if(!$self->logged_in)
    {
        my $template = Template->new();
        print $cgi->header;
        $template->process(\*DATA, $vars) or die $template->error();

        if($self->{'EXIT_ON_DISPLAY'})
        {
            exit;
        }
    }
}

1;

=back

=head1 TODO

 - template / CSS overrides
 - needs to work with any DB software (since it just takes a DBH, maybe use SQL::Abstract to generate a
   cross DB compatible query.

=head1 SEE ALSO

CGI::Cookie, CGI, Template

=head1 AUTHOR

Shane Allen E<lt>opiate@gmail.comE<gt>

=head1 ACKNOWLEDGEMENTS

=over

=item *
This core functionality of this module was developed during my employ at
HRsmart, Inc. L<http://www.hrsmart.com> and its public release was
graciously approved.

=back

=head1 COPYRIGHT

Copyright 2005, Shane Allen. All rights reserved.

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

=cut

__DATA__
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>

<head>
<title>[% HTML_TITLE %]</title>
<style type="text/css">
#container {
    width: 560px;
    margin: 10px;
    margin-left: auto;
    margin-right: auto;
    padding: 10px;
}

#banner {
    font-family: Georgia, "Times New Roman", Times, serif;
    font-size: 0.8em;
    padding: 5px;
    margin-bottom: 25px;
    border: 1px solid gray;
    background-color: rgb(223, 229, 235);
}

#content {
    font-family: Georgia, "Times New Roman", Times, serif;
    font-size: 0.8em;
    padding: 5px;
}

#footer {
    clear: both;
    padding: 5px;
    margin-top: 5px;
    border: 1px solid gray;
    background-color: rgb(213, 219, 225);
}

.error {
    font-family: Georgia, "Times New Roman", Times, serif;
    font-size: 9pt;
    font-weight: bold;
    color: red;
}

#idtable {
        border: 1px solid #666;
}

#idtable tbody tr td {
        padding: 3px 8px;
        font-size: 8pt;
        border: 0px solid black;
        border-left: 1px solid #c9c9c9;
        text-align: center;
}

</style>
</head>

<body>
<div id="container">



( run in 0.803 second using v1.01-cache-2.11-cpan-acf6aa7dc9e )