#!/usr/bin/perl
%formdata = &parseForm();
print "content-type:text/html\n\n";
#compose config file location
$scriptstring1 = "<SCRIPT LANGUAGE=javascript SRC=../CONFIG/".$formdata{"LID"}."/config.js></SCRIPT>";
$scriptstring2 = "<SCRIPT LANGUAGE=javascript SRC=../ext_iframe/functions.js></SCRIPT>";
    #open the news file and copy all lines to array...
    open (FILE, "drfnews.html");
    foreach $line (<FILE>)
    {
	if ($line =~ m/<!--SCRIPT_LINES-->/) 
	{ 
		print $scriptstring1."<BR>".$scriptstring2."<BR>\n";
	}
	elsif ($line =~ m/INSERT_LICENSEE_ID_/)
    	{
		$line =~ s/INSERT_LICENSEE_ID_/$formdata{"LID"}/g;
		print $line;
    	}
	else 
	{ 
		print $line; 
	}
    }
    close (FILE);
exit;
#****** this subroutine parses the form for data ***************************
# returns the hash containing the values...
#***************************************************************************
sub parseForm{
    if ($ENV{'REQUEST_METHOD'} eq 'GET') {
	@pairs = split (/&/, $ENV{'QUERY_STRING'});
    } elsif ($ENV{'REQUEST_METHOD'} eq 'POST')	
    {
	read (STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
	@pairs = split(/&/, $buffer);
	if ($ENV{'QUERY_STRING'}) {
	    @getpairs = split(/&/, $ENV{'QUERY_STRING'});
	    push (@pairs,@getpairs);
	}
    } else
    {
	#could not use the given method (not get or post)
	# put error code text in here... 
    }
    foreach $pair (@pairs) {
	($key, $value) = split (/=/, $pair);
	$key =~ tr/+/ /;
	$key =~ s/%([a-fA-F0-0][a-fA-F0-9])
	    /pack("C", hex($1))/eg;
	$value =~ tr/+/ /;
	$value =~ s/%([a-fA-F0-0][a-fA-F0-9])
	    /pack("C", hex($1))/eg;
	$value =~s/<!--(.|\n)*-->//g;
	if ($formdata{$key}) {
	    $formdata{$key}.=", $value";
	} else {
	    $formdata{$key} = $value; 
	}
    }
    return %formdata;
}