#!/usr/bin/perl -W
#
#
use CGI::Session;
use CGI::Session::MySQL;
use CGI qw(:standard);
use CGI::Carp qw(fatalsToBrowser);
use DBI;

use strict;

my $config = {	DSN			=> 'DBI:mysql:dc151fc_session',
				MySQLunm	=> 'xxxx',
				MySQLpwd	=> 'xxxx',
				cartURL		=> 'http://xxxx.com/cgi-bin/cart.pl?cmd='};

my $DEBUG = 1;

my $cgi;
my $session;
my $cart;
$cgi = new CGI;
my $dbh = &createDBconnection( $config->{DSN}, $config->{MySQLunm}, $config->{MySQLpwd} );
$session = new CGI::Session("driver:MySQL", $cgi, {Handle=>$dbh});
my $cookie = $cgi->cookie(-name=>'CGISESSID', -value=>$session->id, -expires=>'+1d');
print $cgi->header(-cookie=>$cookie);