#!/usr/bin/perl
# Generated by www.softidiom.com.
use FindBin qw($Bin);
eval {
my $siteName = "tullib04"; my $siteRoot = $Bin; $siteRoot =~ s|\\|/|g; $siteRoot = "." if ($siteRoot eq "/" || $siteRoot eq ""); unless ($siteRoot =~ m|/$siteName$|i && -d $siteRoot."/SISite") { if (-d $siteRoot."/$siteName/SISite") { $siteRoot .= "/$siteName"; } elsif ($siteRoot =~ m|^(.+?/$siteName)/|i) { if (-d $1."/SISite") { $siteRoot = $1 }; } } unshift(@INC, $siteRoot, $siteRoot."/SISite", $siteRoot."/SISite/lib");
require PageComponents::referanse;
require SoftIdiom::Library::Document;
my $document = SoftIdiom::Library::Document->new({SiteRoot => $siteRoot});
$document->pushTheme("SISite::Themes::tulliballOK");
$document->setHTTPResponseHeader("Cache-Control","Public");
$document->setHTTPResponseHeader("-charset","windows-1252");
my $page = {};
$page->{SIP}{document} = $document;
new PageComponents::referanse($page);
$page->initComplete();
my $pageOutput = $page->get_output();
$| = 1;
print $document->getResponseHeaderAsString();
print "\r\n\r\n \r\n \n\n\r\n Information\r\n \r\n \r\n ";
print $document->getRunTimeHeadersAsString();
print "\r\n ";
print $pageOutput;
print "\r\n";
$document->close();
};
if ($@) {
print "Content-type: text/html\n\n";
print "Error trapped -
" , $@, "";
}