<html><head><meta name="color-scheme" content="light dark"></head><body><pre style="word-wrap: break-word; white-space: pre-wrap;">#! /usr/bin/perl -wT
use strict;
use CGI;
use Fcntl " :flock ";

my $CGIquery = new CGI;

print $CGIquery -&gt; header( "text/html" );

my $con = param( "con" );
my $content = "con";

if ( $con eq "" ) {
	$content = open( INDEXDEF, "&lt;index.html" ) || die( "error:  open INDEXDEF failed\n" );
#	flock ( INDEXDEF, LOCK_EX );
	seek( INDEXDEF, 0, 0 );
	while( &lt;INDEXDEF&gt; )
	{
		print $_;
	}
#	flock ( INDEXDEF, LOCK_UN );
	close( INDEXDEF ) || die( "error:  close INDEXDEF failed\n" );
}

elsif ( $con eq "index" ) {
	$content = open( INDEX, "&lt;index.html" ) || die( "error:  open INDEX failed\n" );
#	flock ( INDEX, LOCK_EX );
	seek( INDEX, 0, 0 );
	while( &lt;INDEX&gt; )
	{
		print $_;
	}
#	flock ( INDEX, LOCK_UN );
	close( INDEX ) || die( "error:  close INDEX failed\n" );
}

elsif ( $con eq "index2" ) {
	$content = open( INDEX2, "&lt;index2.html" ) || die( "error:  open INDEX2 failed\n" );
#	flock ( INDEX2, LOCK_EX );
	seek( INDEX2, 0, 0 );
	while( &lt;INDEX2&gt; )
	{
		print $_;
	}
#	flock ( INDEX2, LOCK_UN );
	close( INDEX2 ) || die( "error:  close INDEX2 failed\n" );
}

elsif ( $con eq "main" ) {
	$content = open( MAIN, "&lt;main.html" ) || die( "error:  open MAIN failed\n" );
#	flock ( MAIN, LOCK_EX );
	seek( MAIN, 0, 0 );
	while( &lt;MAIN&gt; )
	{
		print $_;
	}
#	flock ( MAIN, LOCK_UN );
	close( MAIN ) || die( "error:  close MAIN failed\n" );
}

elsif ( $con eq "banner" ) {
	$content = open( BANNER, "&lt;banner.html" ) || die( "error:  open BANNER failed\n" );
#	flock ( BANNER, LOCK_EX );
	seek( BANNER, 0, 0 );
	while( &lt;BANNER&gt; )
	{
		print $_;
	}
#	flock ( BANNER, LOCK_UN );
	close( BANNER ) || die( "error:  close BANNER failed\n" );
}

elsif ( $con eq "bot" ) {
	$content = open( BOT, "&lt;bot.html" ) || die( "error:  open BOT failed\n" );
#	flock ( BOT, LOCK_EX );
	seek( BOT, 0, 0 );
	while( &lt;BOT&gt; )
	{
		print $_;
	}
#	flock ( BOT, LOCK_UN );
	close( BOT ) || die( "error:  close BOT failed\n" );
}

elsif ( $con eq "aboutus" ) {
	$content = open( ABOUTUS, "&lt;aboutus.html" ) || die( "error:  open ABOUTUS failed\n" );
#	flock ( ABOUTUS, LOCK_EX );
	seek( ABOUTUS, 0, 0 );
	while( &lt;ABOUTUS&gt; )
	{
		print $_;
	}
#	flock ( ABOUTUS, LOCK_UN );
	close( ABOUTUS ) || die( "error:  close ABOUTUS failed\n" );
}

elsif ( $con eq "photos" ) {
	$content = open( PHOTOS, "&lt;photos.html" ) || die( "error:  open PHOTOS failed\n" );
#	flock ( PHOTOS, LOCK_EX );
	seek( PHOTOS, 0, 0 );
	while( &lt;PHOTOS&gt; )
	{
		print $_;
	}
#	flock ( PHOTOS, LOCK_UN );
	close( PHOTOS ) || die( "error:  close PHOTOS failed\n" );
}

elsif ( $con eq "lyrics" ) {
	$content = open( LYRICS, "&lt;lyrics.html" ) || die( "error:  open LYRICS failed\n" );
#	flock ( LYRICS, LOCK_EX );
	seek( LYRICS, 0, 0 );
	while( &lt;LYRICS&gt; )
	{
		print $_;
	}
#	flock ( LYRICS, LOCK_UN );
	close( LYRICS ) || die( "error:  close LYRICS failed\n" );
}

elsif ( $con eq "bios" ) {
	$content = open( BIOS, "&lt;bios.html" ) || die( "error:  open BIOS failed\n" );
#	flock ( BIOS, LOCK_EX );
	seek( BIOS, 0, 0 );
	while( &lt;BIOS&gt; )
	{
		print $_;
	}
#	flock ( BIOS, LOCK_UN );
	close( BIOS ) || die( "error:  close BIOS failed\n" );
}

elsif ( $con eq "contactus" ) {
	$content = open( CONTACTUS, "&lt;contactus.html" ) || die( "error:  open CONTACTUS failed\n" );
#	flock ( CONTACTUS, LOCK_EX );
	seek( CONTACTUS, 0, 0 );
	while( &lt;CONTACTUS&gt; )
	{
		print $_;
	}
#	flock ( CONTACTUS, LOCK_UN );
	close( CONTACTUS ) || die( "error:  close CONTACTUS failed\n" );
}

else {
	print "error:  content failed\n";
}

print &lt;&lt;"EndOfHTML";
$content
EndOfHTML
</pre></body></html>