Login

#!/usr/bin/perl -w use strict; use CGI; use CGI::Session; use CGI::Session::Auth::DBI; use CGI::Carp; use DBI; # CGI object for headers, cookies, etc. my $cgi = new CGI; my $session = new CGI::Session(undef, $cgi, {Directory=>'/tmp'}); my $auth = new CGI::Session::Auth({ CGI => $cgi, Session => $session, DSN => 'DBI:PgPP:dbname=databasename', UserTable => 'users', DBUser => 'dbusername', DBPasswd => 'dbpassword', DBAttr => 'PrintError => 1, RaiseError => 1' }); $auth->authenticate(); # check if visitor has already logged in if ($auth->loggedIn) { &showSecretPage; } else { &showLoginPage; } sub showLoginPage { print $cgi->header; print < Login

EOF } sub showSecretPage { print $cgi->header; print "Sucess!"; }