open(TL,"$path_to_lang/$thislang/imageproperties.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;
use Image::Size;
$path_to_domain=~s!/$!!;
if($param1){
	($file,$wid,$hei)=split(/&/,$param1);
		$FILE=$file;
	$file=~s!(http://.+?/)!$path_to_domain/!;$dom=$1;
	if($file!~/_th\./){
		($w, $h) = imgsize("$file");	
		if($w != $wid && $h != $hei){
			$dis="";
			$note=qq~$ini_text1<input type=hidden id=linkto value="$FILE"><input type=hidden id=linktoWid value="$w"><input type=hidden id=linktoHei value="$h">~;
		}else{
			$dis="disabled";
		}
	}else{
		$file=~s!_th!!;
		($w, $h) = imgsize("$file");
		if(-e $file){
			$FILE=~s!_th!!;
			$dis="";
			$note=qq~$ini_text2<input type=hidden id=linkto value="$FILE"><input type=hidden id=linktoWid value="$w"><input type=hidden id=linktoHei value="$h">~;
		}else{$dis="disabled"}
	}
}else{$dis="disabled"}
print "Content-type: text/html\n\n";
open(I,"$htm/imageproperties.txt");
while(<I>){
s/\$(\w+)/${$1}/eg;
print
}
1;