$lang_=$path_to_lang;
opendir(LANG,$lang_);
@langs=readdir(LANG);
foreach $lang (@langs){
	$lang=$lang_."/".$lang;
	if(-d $lang && $lang !~ /\.$/){
	@lan=split(/\//,$lang);
	$lan=pop(@lan);
	@wrds=split(/_/,$lan);
	foreach $w (@wrds){$w=ucfirst($w);push(@w,$w)}
	$W=join(" ",@w);
	if($lan eq $thislang){$x="selected"}else{$x=''}
	$LANGOPTS.=qq~<option value="$lan" $x>$W~;
	@w=();
	}
}
if($demo_mode){
	$swapa=qq~onclick=swap("a");this.checked=false ~;
	$swapb=qq~onclick=swap("b");this.checked=false ~;
	$swapc=qq~onclick=swap("c");this.checked=false ~;
}

open(TL,"$path_to_lang/$thislang/modal.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;
print "Content-type: text/html\n\n";
open(OH,"$htm/modal.txt");
while(<OH>){
s/\$(\w+)/${$1}/eg;
print
}
1;