if($demo_note){
print "Content-type: text/html\n\n";\
print "DISABLED FOR DEMO";
}else{

if($type eq "pipe"){$typ="|"}
elsif($type eq "tab"){$typ="\t"}
elsif($type eq "csv"){$typ="\",\""}
else{$typ=$type}
#push(@names,$type);
$names=join("$typ",@names);
if($type eq "csv"){$names=qq~"$names"~}
$nfile=$user_root."/form_".$nom.".txt";
if(!-e $nfile && $type ne "pairs"){
	open(N,">$nfile");
	print N "$names";
	close(N);
	if($^O !~ /mswin32/i){chmod(0644,"$nfile")}
	$not=1;
}else{
	open(N,"$nfile");
	$NAMES=<N>;
	$NAMES=~s/^"//;$NAMES=~s/"$//;
	@NAMES=split(/\Q$typ\E/,$NAMES);
}
if($NAMES){
	foreach $N (@NAMES){
		$v=$VALUES{$N};
			if($v =~/\w+/ && $N ne "submission_redirect"){
				push(@values,$v);
			}
	}
}else{
	foreach $N (@names){
		$v=$VALUES{$N};
			if($v =~/\w+/ && $N ne "submission_redirect"){
				push(@values,$v);
			}
	}
}
$values=join("$typ",@values);
if($type eq "csv"){$values=qq~"$values"~}
	if($type eq "pairs"){
		$values='';
		foreach $n (@names){
			$values.=$n." => ".$VALUES{$n}."\n";
		}
	$names='';
	}
if(!$not){
	if($mailto){
		$vfile=$user_root."/form_".$nom."_master.txt";
	}else{
		$vfile=$user_root."/form_".$nom.".csv";
	}
&flock($vfile);
open(V,">>$vfile");
print V "$values\n";
print V "$u\n";
print V "$uu\n";
close(V);
&unflock($vfile);
}else{
open(TL,"$path_to_lang/$thislang/record_submission.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;
$alert=qq~alert("$js1")~;
}
}#else demo
1;