#!/usr/bin/perl -T

use CGI::Carp qw(fatalsToBrowser);

use FindBin qw($RealBin);
my $safepath;

{
	use autodie;
	
	my $fh_cgiout;
	my $memory;
	
	BEGIN {
		open $fh_cgiout, '>&', \*STDOUT;
		close STDOUT;
		open STDOUT, '>', \$memory;
	}
	
	END {
		close STDOUT;
		
		open my $fh, '>>', 'dupot.log';
		print $fh "-----\n";
		my $prefix = sprintf "DEBUG %5d %s: ", $$, scalar localtime;
		print {$fh} ($memory =~ s/^/$prefix/gmr);
		close $fh;
		
		open STDOUT, '>&', $fh_cgiout;
		print $memory;
	}
}

BEGIN {
    if ($RealBin =~ m!^(/home/xxx/yyy/(test|uk)/www)!) {
        $safepath = "$1/../lib";
    } else {
        die "Illegal use of software - visit www.way-finder.uk to use this site";
    }
}
use lib "$safepath";