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";
if($$V ne ''){push(@COLORS,$$V);}
}}
$COLORS=join('","',@COLORS);
open(CON,"$path_to_config");
while(<CON>){
	if(/\$default_colors/){$_=qq~\$default_colors='"$COLORS"'\n~;}
	$SAVE.=$_;
}
open(CON,">$path_to_config");
print CON "$SAVE";
print "Content-type: text/html\n\n";
print qq~<script language=javascript>alert("$ini_default_colors1")</script>~;
1;