#!/usr/bin/perl use CGI qw(:standard); use CGI::Session; use DBI; use XML::Simple qw(:strict); use Digest::SHA qw(sha256_hex); use LWPx::ParanoidAgent; use Net::OpenID::Consumer; # change this as you install it somewhere else $root = '/var/www/yolanda'; use lib qw(/var/www/yolanda); #set global variables $database = 'yolanda'; $dbhost = 'localhost'; $dbuser = 'root'; $dbpass = ''; $domain = 'http://localhost'; $session_name = 'sid'; $XMLDecl = qq{}; $locale = "en-US"; $stylesheet = "/style/default.css"; $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#"; 1;