&check_cookie;
&check_login;
open(TL,"$path_to_lang/$thislang/text_wiz.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;
@buttons=split(/\|/,$buttons);
for (@buttons){$$_=1}
$height=220;
$file=$param1;

if($file=~m!$url_to_domain!){$file=~s!$url_to_domain!$path_to_domain!;}else{$file=$path_to_domain.$file}
$cb="{";$cbx="}";
open(F,"$file");
while(<F>){
if(m!</style!i){$son=0}
if(m!<style!i){$son=1}
if($son==1){
if(m!(^\..+)$cb!){if("@STYLES" !~/$1/){push(@STYLES,$1)}}
if(m!a(^\..+):.+$cb!i){if("@STYLES" !~/$1/){push(@STYLES,$1)}}
$page.=$_;
}
if(m!<link.+?href="(http.+?)"!i){push(@LINKS,$1)}
}

foreach $link (@LINKS){
$link=~s!https*://.+?/!$path_to_domain/!;
open(L,"$link");
while(<L>){
if(m!(^\..+)$cb!){if("@STYLES" !~/$1/){push(@STYLES,$1)}}
if(m!^a(\..+):.+$cb!i){if("@STYLES" !~/$1/){push(@STYLES,$1)}}
$page.=$_;
}
}
@STYLES=sort(@STYLES);
for(@STYLES){
	$_=~s/\s//g;chomp();
	$_x=$_;$_x=~s/^\.//;
	$CLASSES.=qq~<div ondblclick=get_class("$_") onclick=hi(this.id) id="CLASS_$_x">$_x</div>~;
}
while($page=~m`(\..+?$cb.+?$cbx)`sig){;push(@CLASSES,$1)}
while($csspage=~m`(\..+?$cb.+?$cbx)`sig){;push(@CLASSES,$1)}
foreach $c (@CLASSES){
	$theclasses.=qq~$c
	~;
}

$text_inc=$htm."/text_wiz.txt";
@font_sizes=split(/\:/,$font_sizes);
for (@font_sizes){
	$_=~s/\s//g;chomp();
	if($_==1){$_="$size1"}
	if($_==2){$_="$size2"}
	if($_==3){$_="$size3"}
	if($_==4){$_="$size4"}
	if($_==5){$_="$size5"}
	if($_==6){$_="$size6"}
	if($_==7){$_="$size7"}
	if($_<8){
	$ADJUST.=qq~<div onclick=hi(this.id) id="ADJUST_$_">$_</div>~;
	}
}
@font_pixels=split(/\:/,$font_pixels);
for (@font_pixels){
	$_=~s/\s//g;chomp();
	$_x=$_;$_x=~s/^\.//;
	$FIXED.=qq~<div onclick=hi(this.id) id="FIXED_$_x px">$_ px</div>~;
}

@font_faces=split(/\:/,$font_faces);
@font_faces=sort(@font_faces);
for (@font_faces){
	chomp();
	($fa,$fb)=split(/&/);
	$FONTS.=qq~<div onclick=hi(this.id) id="FONTS_$fb">$fa</div>~;
}



print "Content-type: text/html\n\n";
open(S,"$text_inc");
while(<S>){
s/\$(\w+)/${$1}/eg;
print
}
1;