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

if($param1 eq "user_config"){
open(USERS,"$path_to_users");
while(<USERS>){
($x,$z)=split(/=/);
push(@users,$x);
}
@users=sort(@users);
for(@users){
if(!/admin/ && /\w+/){
$USERS.=qq~<option value="$_">$_~;
}}

$RETURN = qq~
<form name=user_config1 method=post action="$url_to_editor?admin_get_user" target=hole>
<table style="margin-top:20px;width:220px" align=center border=0 cellpadding=8 cellspacing=0>
<tr><td>
<fieldset class=fieldset><legend class=legend>$htm_user_config1<!-- =Create A New User --></legend>
<table border=0 cellpadding=8 cellspacing=0>
<tr><td align=center><input class=input style="width:150px" name=user_namex value=""><br>$htm_user_config2<!-- =New User Name --></td></tr>
<tr><td align=center><input class=input style="width:150px" name=passwordx value="" maxlength=8><br>$htm_user_config3<!-- =New User Password --></td></tr>
<tr><td align=center>
<input type=button value='$htm_user_config4' class=WRX_BUTTON style='width:$button3Width' onclick=create_new_user()>

</td></tr></table>
</fieldset>
</td></tr></table></form>
<form name=user_config2 method=post action="$url_to_editor?admin_get_user" target=hole>
<table style="margin-top:20px;width:220px" align=center border=0 cellpadding=8 cellspacing=0>
<tr><td align=center>
<fieldset class=fieldset><legend class=legend>$htm_user_config5<!-- =Change A User --></legend>
<table border=0 cellpadding=8 cellspacing=0>
<tr><td align=center><select name=selected_user style="width:150px"><option value=''>$htm_user_config6 $USERS</select><br>$htm_user_config6<!-- =Select User --></td></tr>
<tr><td align=center>
<input type=button value='$htm_user_config7' class=WRX_BUTTON style='width:$button2Width' onclick=if(document.user_config2.selected_user.selectedIndex!=0){document.user_config2.submit()}>

<br><br><br>
<input id=remove_butt  type=button value='$htm_user_config8' class=WRX_BUTTON style='width:$button2Width' onclick=if(document.user_config2.selected_user.selectedIndex!=0){remove_user(document.user_config2)} >

</td></tr></table>
</fieldset>
</td></tr></table></form>
~;
}#user_config

if($param1 eq "font_config"){
@FACES=split(/:/,$font_faces);
@FACES=sort(@FACES);
foreach $face (@FACES){
($t,$v)=split(/&/,$face);
++$i;
$FACES.=qq~<tr><td><input type=checkbox name=C$i value=1 checked></td>
	<td><input class=input value="$t" style="width:100px" name=T$i></td>
	<td><input class=input value="$v" style="width:350px" name=V$i></td></tr>~;

}

$RETURN=qq~
<form name=font_form method=post action="$url_to_editor?admin_write_fonts" target=hole>
<table align=center border=0 cellpadding=0 cellspacing=0><tr><td align=center>
<fieldset class=fieldset><legend class=legend>$htm_font_config2</legend>
<table id=font_table align=center border=0 cellpadding=4 cellspacing=0>
<tr><td>Use</td><td>$htm_font_config3<!-- =Group Name --></td><td>$htm_font_config4<!-- =List of Fonts to Apply to Group (Separate by commas) --></td></tr>
$FACES
<tr><td align=center colspan=3 style="padding:15px">
<input type=button value='$htm_font_config5' class=WRX_BUTTON style='width:$button4Width' id=move_butt  onclick=move_font()>

</td></tr>
<tr><td align=center colspan=3>
<input type=button value='$htm_font_config6' class=WRX_BUTTON style='width:$button4Width' onclick=document.font_form.submit()>

</td></tr>
</table></fieldset></td></tr></table></form>
~;
}#font_config

if($param1 eq "site_config"){
$binaries=join(" ",@allowable_binary_extensions);
$asciis=join(" ",@allowable_ascii_extensions);
if($check_for_updates==1){$upchk="checked"}
if($tidy==1){$tidy1="checked"}else{$tidy0="checked"}
@Fldrs=split(/\|/,$disallow);
for(@Fldrs){$Fldrs.=qq~<option value="$_">$_~}
if($DOMAIN_LICENSE !~ /:/ || $DOMAIN_LICENSE =~ /trial/){
	$DM=qq~<input type=button value='$htm_site_config1' class=WRX_BUTTON style='width:$button2Width' onclick=gen_lic()>
	~;
}else{
	$DM=qq~<input class=input type=text name=LICENSE style="width:250px;" value="$DOMAIN_LICENSE">~;
}
$SRC=qq~src="$url_to_ikons/point_help.gif" width="14" height="14" border="0" alt=""~;
$path_to_lang=$path_to_library."/lang";
opendir(LANG,$path_to_lang);
@langs=readdir(LANG);
foreach $lang (@langs){
	$lang=$path_to_lang."/".$lang;
	if(-d $lang && $lang !~ /\.$/){
		@lan=split(/\//,$lang);
		$lan=pop(@lan);
		@wrds=split(/_/,$lan);
		foreach $w (@wrds){$w=ucfirst($w);push(@w,$w)}
		$W=join(" ",@w);
		if($lan eq $thislang){$x="selected"}else{$x=''}
		$LANGOPTS.=qq~<option value="$lan" $x>$W~;
		@w=();
	}
}

if($strip_urls){$strip_urls1="checked"}else{$strip_urls0="checked"}

if($image_magick_check){
($max_wid,$max_hei)=split(/x/,$max_img_size);
$MAX_IMG=qq~<tr><td>$htm_site_config21<!-- =Max Image Upload Size -->:</td><td><input class=input type=text name=max_wid style="width:30px;" value="$max_wid"> $com_text_width<!-- Width --> <input class=input type=text name=max_hei value="$max_hei" style="width:30px;margin-left:80px"> $com_text_height<!-- Height --></td><td><img onclick=help_max_img() class=href  $SRC></td></tr>
~;
}else{
$MAX_IMG=qq~<tr><td id=imc1><input class=WRX_BUTTON style='width:126px' type=button value="$com_check_imc" onclick=check_imc()></td><td id=imc2>$com_check_imc2 </td><td><img onclick=help_max_img() class=href  $SRC></td></tr>
~;
}
if(!$parent){$parent_tr="none"}
$RETURN=qq~
<form name=site_config method=post action="$url_to_editor?admin_write_config" target=hole>
<input type=hidden id=no_imc name=no_imc value="$no_imc">
<table width=100% height=90% border=0 cellpadding=0 cellspacing=0><tr><td align=center valign=top>
<table border=0 cellpadding=0 cellspacing=0><tr><td align=center>
<fieldset><legend class=legend>$htm_site_config2<!-- =Site Parameters --></legend>
<table style="margin:10px" border=0 cellpadding=5 cellspacing=0>


<tr><td>$htm_site_config3<!-- =Domain License -->:</td><td id=lic_td>$DM</td>
<td>&nbsp;</td></tr>

<tr><td>$htm_site_config4<!-- =Change Admin Password --></td><td colspan=2><input type=checkbox name=change_admin_password value=1  onclick=if(this.checked==true){document.getElementById("pw_tr").style.display=''}else{document.getElementById("pw_tr").style.display='none';document.getElementById("new_password").value='';document.getElementById("repeat_password").value=''}></td>
</tr>
<tr id=pw_tr style="display:none"><td colspan=2><table border=0 cellpadding=5 cellspacing=0>
<tr><td>$htm_site_config5<!-- =New Admin Password -->:</td><td><input class=input type=password name=new_password style="width:150px;" value="" MAXLENGTH=8> $htm_site_config5a</td></tr>
<tr><td>$htm_site_config6<!-- =Repeat New Password -->:</td><td><input class=input type=password name=repeat_password style="width:150px;" value="" MAXLENGTH=8> $htm_site_config5a</td></tr></table>
</td></tr>
<tr><td>$htm_site_config7<!-- =Default Email Address -->:</td><td><input class=input type=input name=default_email style="width:310px;" 
value="$account_email"> </td><td><img $SRC onclick=help_default_email() class=href ></td></tr>
<tr><td>$htm_site_config8<!-- =Support Email Address -->:</td><td><input class=input type=input name=support_email style="width:310px;" 
value="$support_email"> </td><td><img $SRC onclick=help_support_email() class=href ></td></tr>
<tr><td>$htm_site_config9<!-- =Default File Name -->:</td><td><input class=input type=input name=default_file_name style="width:310px;" 
value="$default_file_name"> </td><td><img onclick=help_default_file_name() class=href $SRC></td></tr>
<tr><td>$htm_site_config10<!-- =Allowed Ascii/Text Extensions -->:</td><td><input class=input type=text name=asciis style="width:310px;" value="$asciis"> </td><td><img onclick=help_ascii() class=href  $SRC></td></tr>
<tr><td>$htm_site_config11<!-- =Allowed Binary/Image Extensions -->:</td><td><input class=input type=text name=binaries style="width:310px;" value="$binaries"> </td><td><img onclick=help_binary() class=href $SRC></td></tr>
$MAX_IMG
<tr><td>$htm_site_config22<!-- =Strip URLs -->:</td><td><table border=0 cellpadding=0 cellspacing=0><tr><td><input type=radio name=strip_urls value="1" $strip_urls1></td><td>$com_yes</td>
<td style="padding-left:20px"><input type=radio name=strip_urls value="0" $strip_urls0></td><td>$com_no</td></tr></table>
 </td><td><img onclick=help_uri() class=href $SRC></td></tr>
<tr><td>$htm_site_config16<!-- =Editblock Border Color -->:</td><td><input class=input type=text name=ecolor style="width:310px;" value="$editblock_color"> </td><td><img onclick=help_ecolor() class=href $SRC></td></tr>
<tr><td>$htm_site_config17<!-- =Includeblock Border Color -->:</td><td><input class=input type=text name=icolor style="width:310px;" value="$includeblock_color"> </td><td><img onclick=help_icolor() class=href $SRC></td></tr>

<tr><td colspan=2>
<table border=0 cellpadding=0 cellspacing=0><tr><td valign=top>
<table width=100% border=0 cellpadding=0 cellspacing=0><tr><td style="padding-right:5px">$htm_site_config12<!-- =Common Folder -->:<BR> 
<input type=button value='$htm_site_config14' class=WRX_BUTTON style='width:$button0Width' onclick=locate("common")></td></tr></table>
</td><td><input class=input type=text name=common style="font-size:11px;width:400px;" value="$url_to_common"> </td></tr></table></td><td><img onclick=help_common() class=href $SRC></td></tr>
<tr valign=top><td colspan=2>
<table border=0 cellpadding=0 cellspacing=0><tr><td valign=top>
<table width=100% border=0 cellpadding=0 cellspacing=0><tr><td style="padding-right:5px">$htm_site_config13<!-- =Hidden Folders -->:<BR>
<input type=button value='$htm_site_config14' class=WRX_BUTTON style='width:$button0Width'  id=loc onclick=locate("forbid")><center>$htm_site_config15</center><!-- =Click folder to<br>remove frpm list--></td></tr></table></td><td>
<select class=input name=forbids size=4 multiple  style="font-size:11px;width:400px;" onchange=this.options.remove(this.selectedIndex)>$Fldrs</select></td></tr></table>
</td><td><img onclick=help_forbid() class=href $SRC></td></tr>
<tr style="display:$parent_tr"><td>$htm_site_config18<!-- =Check For Updates On Login -->:</td><td><input type=checkbox name=doupdates value="1" $upchk> </td><td><img onclick=help_updates() class=href $SRC></td></tr>
<tr><td>$htm_site_config23:</td><td><table border=0 cellpadding=0 cellspacing=0><tr><td><input type=radio name=tidy value="1" $tidy1></td><td>$com_yes</td>
<td style="padding-left:20px"><input type=radio name=tidy value="0" $tidy0></td><td>$com_no</td></tr></table></td><td><img onclick=help_tidy() class=href $SRC></td></tr>
<tr><td>$htm_site_config19<!-- =Default Language -->:</td><td><select name=thislang>NL</select> </td><td><img onclick=help_lang() class=href $SRC></td></tr>

<tr><td colspan=3 align=center style="padding-top:20px">
<input type=button value='$htm_site_config20' class=WRX_BUTTON style='width:$button5Width' onclick=save_site_config(document.site_config)>

</td></tr></table><br></fieldset></td></tr></table></td></tr></table></form>
~;
}#site_conf

if($param1 eq "default_colors"){
$default_colors =~ s/"//g;
@defaults=split(/,/,$default_colors);
$i=0;
$COLORS=qq~<tr><td></td><td></td><td></td></tr>~;
	for $dfc (@defaults){
		$COLORS.=qq~<tr><td><input type=checkbox name=C$i value=1 checked></td>
	<td><input id=in$i class=input value="$dfc" style="width:80px;margin:0px 10px" onchange=key_color(this,'D$i');convertColor(this,'D$i') onkeyup=key_color(this,'D$i') name=V$i></td><td><div id="D$i" style="margin:2px 0px;height:20px;width:200;border:1px dashed black;background-color:#$dfc">&nbsp;</div></td></tr>~;
++$i;
	}
$RETURN=qq~
<table width=100% align=center border=0 cellpadding=0 cellspacing=0><tr><td align=center>
<b><span style="font-size:12px">$htm_default_colors1<!-- =Site-Wide Colors --></span></b><br><br></td></tr>
<tr><td>$htm_default_colors2<!-- =ColorPad is used for setting colors throughout $brand. <P>When users click the "Apply" button in ColorPad the selected color is added to the user's personal history list of colors. That personal list is displayed in the "Defaults" view on ColorPad so the user can re-select the color. The user can "Clear" their personal list.<P>
You can add colors here that also will appear in the "Default" view with the user's personal history list. Colors listed here are available to all users and can not be cleared from the color list by the user. Colors listed here will appear at the top of the list in the "Default" view and the hexedecimal equivalent will be bolded -->.<p>

</td></tr></table>
<table align=center border=0 cellpadding=0 cellspacing=0><tr><td align=center>
<form name=color_form method=post action="$url_to_editor?admin_write_colors" target=hole>
<fieldset class=fieldset><legend class=legend>$htm_default_colors3<!-- =Default Color List --></legend>
<table id=color_table align=center border=0 cellpadding=0 cellspacing=0>
<tr><td>$htm_default_colors4</td><td style="padding-left:10px">$htm_default_colors5<!-- =Hex Equivalent --></td><td style="padding:10px 0px">$htm_default_colors6<!-- =Color --></td></tr>
$COLORS
<tr><td align=center colspan=3 style="padding:15px">
<input id=movec_butt type=button value='$htm_default_colors_button1' class=WRX_BUTTON style='width:$button2Width' onclick=move_color();document.getElementById("hexnote").style.display="">
<div id=hexnote style="display:none;padding:8px">Enter Hexidecimal Equivalent or RGB Triplet</div>
</td></tr>
<tr><td align=center colspan=3 style="padding:3px">
<input type=button value='$htm_default_colors_button2' class=WRX_BUTTON style='width:$button4Width' onclick=document.color_form.submit()>

</td></tr>
</table></fieldset></td></tr></table></form>
~;
}#default_colors

if($param1 eq "styles_rule"){
$ruleset=$path_to_data."/rulesets.txt";
open(R,"$ruleset");
@RULES=<R>;
@RULES=sort(@RULES);
foreach $rule (@RULES){
	if($rule =~ /\w+/){
++$i;
$RULES.=qq~<tr><td><input type=checkbox name=C$i value=1 checked></td>
	<td><input class=input value="$rule" style="width:350px" name=V$i></td></tr>~;
	}
}
$RETURN=qq~
<table width=100% align=center border=0 cellpadding=0 cellspacing=0><tr><td align=center>
<b><span style="font-size:12px">$htm_styles1<!-- =Styles --></span></b><br><br></td></tr>
<tr><td>$htm_styles2:<ul>
<li><b>$htm_styles3<!-- =Classes --></b><div style="padding:10px">$htm_styles4<!-- =Classes contained in a &lt;STYLE> tag on the page will be cataloged. Classes on a linked external style sheet will also be cataloged if the &lt;LINK tag's href contains a full "http" url (style sheets linked without "http" in the url will not be cataloged). <br><br>
For users that have this option, Classes will be listed by the class name in drop down menus for the user to select from. Upon selecting a class the user will be able to review the rules contained in the Class.<br><br>
Classes applied to elements are added before any inline STYLE= attribute in the element, allowing rules in a STYLE= attribute to override the same rule in a Class-->.</div>

<li><b>$htm_styles5<!-- =Inline RuleSets --></b><div style="padding:10px">$htm_styles6<!-- =$brand can read a list of style rulesets from a  RuleSet configuration file. Users that have this option will be able to select rules to use from this list of rulesets. Rules selected are applied to a SPAN tag or DIV tag, or to the currently working element in an inline STYLE= attribute. Rules added with this method overwrite any similar rule in a Class assigned to the same element -->.<br><br>
<table border=0 cellpadding=0 cellspacing=0><tr><td>
<input type=button value='$htm_styles_button1' class=WRX_BUTTON style='width:$button1Width' onclick=document.getElementById("rulex_table").style.display="">

</td><td> &nbsp; &nbsp;$htm_styles7<!-- =RuleSet config file -->.  </td></tr></table></div>
<li>$htm_styles8<!-- =<b>Freehand</b><br><br>Users with this option can add custom rules to an inline STYLE= attribute in a SPAN tag or DIV tag, or to the currently working element. Rules added with this method overwrite any similar rule in a Class assigned to the same element. Rules added to an element with this method are not added to the RuleSet config file -->.
</ul>
</td></tr></table>
<table style="display:none" id=rulex_table align=center border=0 cellpadding=0 cellspacing=0><tr><td align=center>
<form name=rule_form method=post action="$url_to_editor?admin_write_rules" target=hole>
<fieldset class=fieldset><legend class=legend>$htm_styles9<!-- =Style Rule Sets --></legend>
<table id=rule_table align=center border=0 cellpadding=4 cellspacing=0>
<tr><td>Use</td><td>$htm_styles10<!-- =Rule --></td></tr>
$RULES
<tr><td align=center colspan=2 style="padding:15px">
<input id=move_butt  type=button value='$htm_styles_button2' class=WRX_BUTTON style='width:$button2Width' onclick=move_rule()>
</td></tr>
<tr><td align=center colspan=3>
<input type=button value='$htm_default_colors_button2' class=WRX_BUTTON style='width:$button4Width' onclick=document.rule_form.submit()>

</td></tr>
</table></fieldset></td></tr></table></form>
~;
}#styles_rule

print "Content-type: text/html\n\n";
print qq~<html><head><script>
function here(){
top.document.getElementById("$param1").innerHTML=document.getElementById("page").innerHTML
top.document.getElementById("$param1").style.display=""
top.document.body.style.cursor="default"
top.redraw()
}
</script></head>
<body onload=here()>
<div id=page>
$RETURN
</div>
</body></html>~;
1;