#!/bin/perl
use lib "/cgf/work/rosecker/perl5";
use CGI;
use CGI::Session;
use OWN::Mysqlconnect;
use strict;
my $dbh = Mysqlconnect::connect ();
my $cgi = new CGI;
my $sid = $cgi->param('p');
if (defined $sid) {
my $session = new CGI::Session("driver:MySQL", $sid, {Handle=>$dbh});
my $id = $session->id();
my $name = $session->param("name");
print "Content-Type: text/html\n\n";
print "$name
";
print "in if";
}
else {
my $x = new CGI::Session("driver:MySQL", undef, {Handle=>$dbh});
$x->expire('+1m');
my $i = $x->id();
$x->param('name', 'tina');
print "Content-Type: text/html\n\n";
print "$x
";
print "in else";
}