&check_cookie;
&check_login;
open(TL,"$path_to_lang/$thislang/style_script.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;
@buttons=split(/\|/,$buttons);
for (@buttons){$$_=1}
$height=220;
$file=$param1;
			if($classes){
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)}}
}
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)}}
}
}
@STYLES=sort(@STYLES);
for(@STYLES){
	$_=~s/\s//g;chomp();
	$_x=$_;$_x=~s/^\.//;
	$STYLES.=qq~<option value="$_x">$_\n~;
}

if($STYLES ne ''){$STYLER=1}
if($STYLES){
	$STYLES=qq~<select name=allclass onchange=rules(this.options[this.selectedIndex].value)>
	<option value="">$option1<!-- =Style Classes -->
	$STYLES
	</select>~;
	}
if($STYLES){
	$STYLES=qq~
	<tr><td align=center><fieldset><legend>$text1<!-- =Select Class --></legend>
	<div style="margin:5px">$STYLES</div>
	<div id=rule>&nbsp;</div></fieldset></td></tr>~;
}
			}#if classes
			if($inline){
$rulesallowed=1;
$ruleset=$path_to_library."/data/rulesets.txt";
open(R,"$ruleset");
while(<R>){
chomp();
push(@rules,$_);
}
@rules=sort(@rules);
for(@rules){
if($_=~/\w+/){
$DIVS.=qq~<div><input type=checkbox name="$_"> $_</div>~;
}}
if($DIVS ne ""){$STYLER=2}
if($DIVS){
	$DIVS=qq~
	<tr><td><fieldset><legend>$text2<!-- =Select Inline Rules --></legend>	
	<div id=rule_div style="width:245px;height:100px;overflow:auto;border:2px inset;background-color:window;margin:5px 0px">
	$DIVS
	</div></td></tr>
	~;
}
			}#if inline
			if($freehand){
$FREEHAND = qq~
	<tr><td align=center><fieldset><legend>$text3<!-- =Add Inline Rule To List --></legend>
	<div style="margin:5px"><table border=0 cellpadding=0 cellspacing=0><tr><td><input size=40 name=add_rule_field value="" style="border:2px inset" onfocus=document.getElementById("add_rule_but").disabled=false class=fa></td></tr><tr><td align=center>
<input type=button value='$text4' class=WRX_BUTTON style='width:$button11Width' id=add_rule_but disabled onclick=move(document.getElementById("add_rule_field").value)></td></tr></table>
	</div></fieldset></td></tr>
	~;
	}#if freehand
if($FREEHAND ne ''){$STYLER=3}
if($STYLES eq "" && $DIVS eq ""){$disabled="disabled";
												$STYLES=qq~
												<tr><td colspan=3 align=center><strong>$text5<!-- No Style Classes/Rules Are Available --></strong></td></tr>
												<tr><td colspan=3 align=center>&nbsp;</td></tr>~;
												}
if($STYLER){$STYLER= qq~<span id=styling_but>
<table border=0 cellpadding=0 cellspacing=0><tr><td>$text6<!-- =Apply Class/Style To Link --></td><td style="padding-left:10px"><input type=button value='$button1' class=WRX_BUTTON style='width:$button3Width' onclick=display_style()></td></tr></table></span>~}

if($action =~ /^get_style/){
$style_inc=$htm."/stylewizard.txt";
open(TL,"$path_to_lang/$thislang/stylewizard.txt");
@LaNg=<TL>;
#foreach $i (@LaNg){chomp($i);($ni,$vi)=split(/=/,$i,2);$$ni=$vi}
&exec_lang;

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