#!/usr/local/bin/perl
#
#

print "Content-type: text/html\n\n";

open( TEMPLATE, "</export/home/depts/hesweb/faker-config-template.htm" );
( @template ) = <TEMPLATE>;
close( TEMPLATE );

open( CONFIG, "/export/home/depts/hesweb/faker-config" );
( @config ) = <CONFIG>;
close( CONFIG );

open( CONTENT, "/export/home/depts/hesweb/faker-config-template-content" );
( @content ) = <CONTENT>;
close( CONTENT );

open( WAIT, "/export/home/depts/hesweb/faker-config-waittilredirect" );
( $waittilredirect, @NULL ) = <WAIT>;
close( WAIT );

$waittilredirect =~ s/\n//;

&MAIN("");

#########################################################
# This marks the beginning of the main code		#
#########################################################
sub MAIN {
	open( STDERR, ">/dev/nul" );

	$url = $ENV{ 'SCRIPT_NAME' } . $ENV{ 'PATH_INFO' };
	foreach( @config ) {
		s/\n//;
		next, if( !$_ || $_ =~ /^#/ );

		my( $key, $value ) = split( /\|/ );
		if( $url =~ /^$key/ ) {
			if( $key =~ /\*$/ ) {
				$url =~ s/^$key.*/$value/;
			}
			else {
				$url =~ s/^$key/$value/;
			}
			last;
		}
	}

	# html content
	local( $metakey ) = "<!--meta-->";
	$meta = "<META HTTP-EQUIV=Refresh CONTENT=\"$waittilredirect;url=". $url ."\">";

	local( $urlkey ) = "<!--url-->";
	local( $waittilredirectkey ) = "<!--waittilredirect-->";
	local( $contentkey ) = "<!--content-->";
	local( $content ) = "";
	foreach( @content ) {
		s/$urlkey/$url/g;
		s/$waittilredirectkey/$waittilredirect/g;

		$content .= $_;
	}

	foreach( @template ) {
		s/$contentkey/$content/;
		s/$metakey/$meta/;

		print;
	}
}

sub print_env {
######## ENV %array #####################################
	print "<FONT SIZE=4><B>\n";
	print "Enviorment strings:<BR>\n";
	print "</FONT></B>\n";
	print "<UL>\n";

        while( ( $key, $value ) = each %ENV ) {
		print "<LI>$key = $value<BR>\n";
	}  

	print "</UL>\n";
}