10 lines
155 B
Perl
10 lines
155 B
Perl
use CGI::Session;
|
|
use DBI;
|
|
use XML::Simple qw(:strict);
|
|
|
|
$database = 'gnutube';
|
|
$host = 'localhost';
|
|
$user = 'root';
|
|
$pass = '';
|
|
$session_name = 'sid';
|
|
1;
|