open(TL,"$path_to_lang/$thislang/style_script.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;

$file=$param1;
$file=~s!$url_to_domain!$path_to_domain!;
@SCRIPTS=();
open(F,"$file");
while(<F>){
if(m!</script!i){$son=0}
if(m!<script!i){$son=1}
if($son==1){
if(m!function(.+?)\(.+allow!){if("@SCRIPTS" !~/$1/){push(@SCRIPTS,$1)}}
}
if(m!<script.+?src="(http.+?)"!i){push(@SRC,$1)}
}
foreach $src (@SRC){
$src=~s!http://.+?/!$path_to_domain/!;
open(S,"$src");
while(<S>){
if(m!function(.+?)\(.+allow!){if("@SCRIPTS" !~/$1/){push(@SCRIPTS,$1)}}
}
}
$SCRIPTS = qq~<select name=func onchange=view_fun(this.options[this.selectedIndex].value)>
<option>Select Function~;
@SCRIPTS=sort(@SCRIPTS);
foreach (@SCRIPTS){
s/ //g;
$SCRIPTS .= qq~<option value="$_">$_~;
}
$SCRIPTS .= qq~</select>~;
if($#SCRIPTS>-1){
&get_style;
$CONTENT = qq~<tr><td><fieldset><legend>$text7<!-- =Apply Styles --></legend>
<div style="padding:5px">
<table border=0 cellpadding=2 cellspacing=0>
$STYLES
$DIVS
$FREEHAND
</table></div>
</fieldset></td></tr>~;
}else{
$SCRIPTS=qq~$com_get_scripts~;
}
if($action =~ /get_script/){
$script_inc=$htm."/scriptwizard.txt";
open(TL,"$path_to_lang/$thislang/scriptwizard.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,"$script_inc");
while(<S>){
s/\$(\w+)/${$1}/eg;
print
}
1;
}else{
$SCRIPTS1=$SCRIPTS;$SCRIPTS1=~s!view_fun!view_fun_onsubmit!;
$SCRIPTS2=$SCRIPTS;$SCRIPTS2=~s!view_fun!view_fun_onfocusA!;
$SCRIPTS3=$SCRIPTS;$SCRIPTS3=~s!view_fun!view_fun_onblurA!;
$SCRIPTS4=$SCRIPTS;$SCRIPTS4=~s!view_fun!view_fun_onchangeA!;
$SCRIPTS5=$SCRIPTS;$SCRIPTS5=~s!view_fun!view_fun_onfocusB!;
$SCRIPTS6=$SCRIPTS;$SCRIPTS6=~s!view_fun!view_fun_onblurB!;
$SCRIPTS7=$SCRIPTS;$SCRIPTS7=~s!view_fun!view_fun_onchangeB!;
$SCRIPTS8=$SCRIPTS;$SCRIPTS8=~s!view_fun!view_fun_onclickA!;
$SCRIPTS9=$SCRIPTS;$SCRIPTS9=~s!view_fun!view_fun_onclickB!;
$SCRIPTS0=$SCRIPTS;$SCRIPTS0=~s!view_fun!view_fun_onclickC!;
$SCRIPTS11=$SCRIPTS;$SCRIPTS11=~s!view_fun!view_fun_onchangeC!;
}
1;