#!/usr/local/bin/perl -w
##!c:\Perl\bin\perl -w

require './server_conf.pl';
require './cgilib.pl';

&init_form();

print 'Content-Type: text/html';
print "\r\n\r\n";

open IN, 'main.html';

#if($form{'l'}){
#	$initLayers = $form{'l'};
#}
#else{
#	$initLayers = "";
#}
#$initLayers =~ s/</&lt;/g;
#$initLayers =~ s/>/&gt;/g;

$query =~ s/</&lt;/g;
$query =~ s/>/&gt;/g;

while(<IN>){
#	s/\/\*\*accessParam\*\*\//accessParam\=\"l=$initLayers\"\;/g;
	s/\/\*\*accessParam\*\*\//accessParam\=\"$query\"\;/g;
	print ;
}

close IN;



