#!/usr/bin/perl

use Jcode;
require 'commons/config.cgi';
require 'commons/functions.cgi';

*getCookieData = GetCookie();
$pv = $getCookieData{'pv'} + 1;

$script = &loadhtml("commons/mailform.js");
if($pv){
	flock(FH, LOCK_EX);
		open(FH,$config{"conversion_file"});
			$serial = <FH>;
		close(FH);
	flock(FH, LOCK_NB);
	$serial++;
	flock(FH, LOCK_EX);
		open(FH,">".$config{"conversion_file"});
			print FH $serial;
		close(FH);
	flock(FH, LOCK_NB);
}
print "Pragma: no-cache\n";
print "Cache-Control: no-cache\n";
print "Content-type: text/plain; charset=UTF-8\n";
print "Set-Cookie: scriptType=perl&pv=${pv}&application=mailform;\n\n";
print $script;
exit;
sub loadhtml{
	my($url) = @_;
	flock(FH, LOCK_EX);
		open(FH,"$url");
			@html = <FH>;
		close(FH);
	flock(FH, LOCK_NB);
	$html = join("",@html);
	return $html;
}