----------------------------------------------------------------------------------------------------------

open(TL,"$path_to_lang/$thislang/default.txt"); while(){push(@LaNg,$_)} &exec_lang; $param1=~m`/(\w+)\.gif$`; $hlp=$1; if($hlp =~ /fonts|adjust|fixed/){$hlp="fonts"} if($param1 ne "setup"){ open(H,"$path_to_lang/$thislang/help/$hlp.txt"); while(){s/\$(\w+)/${$1}/eg;$HLP.=$_} print "Content-type: text/html\n\n"; print qq~----------------------------------------------------------------------------------------------------------

$com_button_support

$com_button_setup

$HLP

~; }else{ open(H,"$path_to_lang/$thislang/help/setup.txt"); while(){s/\$(\w+)/${$1}/eg;$HLP.=$_} print "Content-type: text/html\n\n"; print qq~

$HLP

~; }