open(TL,"$path_to_lang/$thislang/admin_tab.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;
&check_login;
if(!$Admin_Login){error("Admin not logged in");}

foreach $c (@C){
if($c=~/\w+/){
$c=~s|^C||;
$V="V$c";
push(@RULES,$$V);
}}
@RULES=sort(@RULES);
$RULES=join("\n",@RULES);
$ruleset=$path_to_data."/rulesets.txt";
open(RU,">$ruleset");
print RU "$RULES";
print "Content-type: text/html\n\n";
print qq~<script language=javascript>alert("$ini_styles1")</script>~;
1;