&check_cookie;
&check_login;
open(TL,"$path_to_lang/$thislang/properties.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;
$url1=$param1;
$param1 =~ m!([^/:\\]*)$!; $file_name = $1;
$param1=~s!https*://.+?/!$path_to_domain/!;
($size,$mod)=(stat("$param1"))[7,9];
$size=~s`(\d+)(\d{3})$`$1,$2`;
$size=~s`(\d+)(\d{3}),(\d{3})$`$1,$2,$3`;
($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($mod);
++$mon;
if($mon<10){$mon="0".$mon}
if($mday<10){$mday="0".$mday}
$year+=1900;
$mod=qq~$mon/$mday/$year $hour:$min~;
$mode = sprintf "%o", (stat("$param1"))[2] & 07777;
($own,$grp,$wrld)=split(//,$mode);
if($buttons =~ /properties/){$height=360;$mods=""}else{$height=215;$mods="none";$support=0}
if ($^O eq 'MSWin32' && $mods ne "none"){$note="$ini_text1<!-- Your server does not support permission change -->s"}else{$note="&nbsp;"}
if ($^O eq 'MSWin32'){$support=0}else{$support=1}
if(-B $param1 && $param1 !~ /\.pdf|swf|doc$/){&get_size;$x=qq~$ini_text2</td><td style="padding-left:12px">$ini_text3: $wid </td><td style="padding-left:15px">$ini_text4: $hei </td><td style="padding-left:12px"><input type=button value="$ini_button1" class=WRX_BUTTON style="width:$button1Width" onclick=preview()>~;$height+=10}else{
$wid=0;$hei=0;
}
if(($url1 =~ /$url_to_common/ && $url_to_common ne '') || $^O eq 'MSWin32'){$readonly="disabled"}
print "Content-type: text/html\n\n";
open(OH,"$htm/properties.txt");
while(<OH>){
s/\$(\w+)/${$1}/eg;
print
}
1;

sub get_size{
use Image::Size;
($wid, $hei) = imgsize("$param1");
}