Jetzt bekomme ich diese Fehlermeldung
Quote[Thu Aug 24 18:48:52 2006] session.cgi: (in cleanup) Can't connect to data source , no database driver specified and DBI_DSN env var not set at module/CGI/Session/Driver/DBI.pm line 23 [Thu Aug 24 18:48:52 2006] session.cgi: (in cleanup) Can't call method "commit" on unblessed reference at module/CGI/Session/Driver/DBI.pm line 127 during global destruction.
Mein Code
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
use CGI::Carp "fatalsToBrowser";
use CGI qw(:all);
use warnings;
use DBI;
use lib './module';
use strict;
use CGI::Session;
use vars qw($dbms $dbname $dbuser $dbpasswd $session $sid $dbh $lg_name);
require "data/dbinfo.cgi";
my $cgi = new CGI;
my $dbh = DBI->connect( "$dbms:$dbname","$dbuser","$dbpasswd", {PrintError => 0, RaiseError => 1}) || die
"Verbindung zur Datenbank fehlgeschlagen: $DBI::errstr";
$sid = $cgi->cookie('YAMBE_SESSID') || $cgi->param('YAMBE_SESSID') || undef;
$session = new CGI::Session("driver:mysql", $sid, {Handle=>$dbh});
$session->expire('3');
$session->param("USER", $lg_name || 'gast');
my $cookie = $cgi->cookie(YAMBE_SESSID => $session->id );
print $cgi->header(-cookie=>$cookie);
Tom