#!/usr/bin/perl  -I/opt/htdocs/clients/erf/

#use strict;
use CGI qw/:standard -debug/;
use CGI::Cookie;
use CGI::Carp qw(fatalsToBrowser);
use DBI;
use POSIX;
use Digest::MD5 qw(md5 md5_hex md5_base64);

use VB::Pagehandler;
use VB::Utilities;

use vars qw( $program $DEBUG );

$program= "$0";
$DEBUG=0;

my $utils=new VB::Utilities;

print STDERR "Started: ".$utils->getnow()."\n" if $DEBUG;

my $cgi=new CGI;
my $dbh=DBI->connect('dbi:mysql:database=erf','ben','f987owl');
$dbh->{LongReadLen}=1024*64; # 64k blob

my $pagehandler=new VB::Pagehandler($dbh,$cgi);

my $path=$ENV{PATH_INFO};
if ( !defined $path )
{
	if ( @ARGV == 1 )
	{
		$path=shift @ARGV;
	}
}

print STDERR "Path ".( defined $path ? $path : 'undef' )."\n" if $DEBUG;

$pagehandler->process($path);

END
{
	$dbh->disconnect if $dbh;
	print STDERR "Finished: ".$utils->getnow()."\n" if $DEBUG;
}