2007-10-11 16:25:56 +00:00
|
|
|
#!/usr/bin/perl
|
2007-10-10 21:48:12 +00:00
|
|
|
use CGI qw(:standard);
|
|
|
|
|
use CGI::Session;
|
|
|
|
|
use DBI;
|
|
|
|
|
use XML::Simple qw(:strict);
|
2007-10-11 14:59:55 +00:00
|
|
|
use Digest::SHA;
|
2007-10-11 17:06:08 +00:00
|
|
|
|
|
|
|
|
$gnutube_root = '/var/www/perl';
|
|
|
|
|
|
|
|
|
|
use lib qw($gnutube_root);
|
2007-10-11 14:59:55 +00:00
|
|
|
#use Digest::SHA qw(sha256_hex);
|
2007-10-10 21:48:12 +00:00
|
|
|
|
|
|
|
|
#set global variables
|
|
|
|
|
$database = 'gnutube';
|
|
|
|
|
$dbhost = 'localhost';
|
|
|
|
|
$dbuser = 'root';
|
|
|
|
|
$dbpass = '';
|
|
|
|
|
$session_name = 'sid';
|
|
|
|
|
1;
|
