added basic login/logout

git-svn-id: http://yolanda.mister-muffin.de/svn@10 7eef14d0-6ed0-489d-bf55-20463b2d70db
This commit is contained in:
josch 2007-10-10 10:27:05 +00:00
parent b44ba64a23
commit 1615c28881
4 changed files with 32 additions and 6 deletions

View file

@ -6,3 +6,5 @@ $database = 'gnutube';
$host = 'localhost';
$user = 'root';
$pass = '';
$session_name = 'sid';
1;

View file

@ -1,14 +1,10 @@
#!/usr/bin/perl
require "/var/www/perl/include.pl";
require "/var/www/perl/functions.pl";
#create or resume session
CGI::Session->name("SID");
CGI::Session->name($session_name);
my $session = new CGI::Session;
#store session param
$session->param('auth', 'true');
#read xml
$page = XMLin('/var/www/perl/index.xml', ForceArray => 1, KeyAttr => {} );

26
trunk/login.pl Normal file
View file

@ -0,0 +1,26 @@
require "/var/www/perl/include.pl";
CGI::Session->name($session_name);
my $session = new CGI::Session;
#fill %querystring with everything that was passed via GET
@parts = split( /\&/, $ENV{ "QUERY_STRING" } );
foreach $part (@parts) {
( $name, $value ) = split( /\=/, $part );
$queryString{ $name } = $value;
}
if($queryString{ "action" }) {
if($queryString{ "action" } eq "login") {
$session->param('auth', 'true');
print $session->header();
print "logged in";
} elsif($queryString{ "action" } eq "logout") {
$session->param('auth', 'false');
print $session->header();
print "logged out";
}
} else {
print $session->header();
print "incorrect query string";
}

View file

@ -65,7 +65,9 @@
<div class="header2">
<a href="about:blank"><xsl:value-of select="$locale_strings/str[@id='register']" /></a>
<xsl:value-of select="$locale_strings/str[@id='separator']" />
<a href="about:blank"><xsl:value-of select="$locale_strings/str[@id='login']" /></a>
<a href="login.pl?action=login"><xsl:value-of select="$locale_strings/str[@id='login']" /></a>
<xsl:value-of select="$locale_strings/str[@id='separator']" />
<a href="login.pl?action=logout"><xsl:value-of select="$locale_strings/str[@id='logout']" /></a>
<xsl:value-of select="$locale_strings/str[@id='separator']" />
<img class="openid-icon" src="./images/openid-icon.png" alt="open id logo" />
<a href="about:blank"><xsl:value-of select="$locale_strings/str[@id='login_openid']" /></a>