#!/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