&check_login;
if(!$Admin_Login){error("Admin not logged in");}

foreach $c (@C){
$c=~s|^C||;
$T="T$c";$V="V$c";
$font=qq~$$T&$$V~;
push(@FONTS,$font);
}
@FONTS=sort(@FONTS);
$FACES=join(":",@FONTS);
open(CON,"$path_to_config");
while(<CON>){
	if(/\$font_faces/){$_=qq~\$font_faces='$FACES'\n~;}
	$SAVE.=$_;
}
open(CON,">$path_to_config");
print CON "$SAVE";
print "Content-type: text/html\n\n";
print qq~<script language=javascript>alert("Font Changes Were Saved")</script>~;
1;