#!/usr/bin/perl # Generated by www.softidiom.com. use FindBin qw($Bin); eval { my $siteName = "orto"; 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::index; require SoftIdiom::Library::Document; my $document = SoftIdiom::Library::Document->new({SiteRoot => $siteRoot}); $document->pushTheme("SISite::Themes::ortodoks"); $document->setHTTPResponseHeader("Cache-Control","Public"); $document->setHTTPResponseHeader("-charset","windows-1252"); my $page = {}; $page->{SIP}{document} = $document; new PageComponents::index($page); $page->initComplete(); my $pageOutput = $page->get_output(); $| = 1; print $document->getResponseHeaderAsString(); print "\r\n\r\n \r\n \n\n\r\n Home\r"; print $document->getRunTimeHeadersAsString(); print "\n \r\n \r\n \r\n "; print $pageOutput; print "\r\n"; $document->close(); }; if ($@) { print "Content-type: text/html\n\n"; print "

Error trapped -


" , $@, ""; }