2007-10-11 19:12:59 +00:00
|
|
|
#!/usr/bin/perl
|
2007-10-11 19:17:47 +00:00
|
|
|
|
2007-10-10 21:48:12 +00:00
|
|
|
use CGI qw(:standard);
|
|
|
|
use CGI::Session;
|
|
|
|
use DBI;
|
|
|
|
use XML::Simple qw(:strict);
|
2007-10-12 11:04:34 +00:00
|
|
|
use Digest::SHA qw(sha256_hex);
|
|
|
|
use Encode qw(decode_utf8);
|
2007-10-11 17:06:08 +00:00
|
|
|
|
2007-10-15 00:25:23 +00:00
|
|
|
# change this as you install it somewhere else
|
2007-10-11 18:43:51 +00:00
|
|
|
$gnutube_root = '/var/www/gnutube';
|
2007-10-11 17:06:08 +00:00
|
|
|
|
2007-10-11 19:09:37 +00:00
|
|
|
use lib qw(/var/www/gnutube);
|
2007-10-10 21:48:12 +00:00
|
|
|
|
|
|
|
#set global variables
|
|
|
|
$database = 'gnutube';
|
|
|
|
$dbhost = 'localhost';
|
|
|
|
$dbuser = 'root';
|
|
|
|
$dbpass = '';
|
2007-10-24 12:56:56 +00:00
|
|
|
$domain = 'http://localhost';
|
2007-10-10 21:48:12 +00:00
|
|
|
$session_name = 'sid';
|
2007-10-24 12:56:56 +00:00
|
|
|
$XMLDecl = qq{<?xml version="1.0" encoding="UTF-8" ?><?xml-stylesheet type="text/xsl" href="/xsl/xhtml.xsl" ?>};
|
2007-10-12 11:04:34 +00:00
|
|
|
$locale = "en-US";
|
2007-10-24 12:56:56 +00:00
|
|
|
$stylesheet = "/style/gnutube.css";
|
2007-10-12 11:18:13 +00:00
|
|
|
$xmlns_dc = "http://purl.org/dc/elements/1.1/";
|
|
|
|
$xmlns_cc = "http://web.resource.org/cc/";
|
|
|
|
$xmlns_rdf = "http://www.w3.org/1999/02/22-rdf-syntax-ns#";
|
2007-10-12 11:04:34 +00:00
|
|
|
|
2007-10-10 21:48:12 +00:00
|
|
|
1;
|