&check_cookie; &check_login; open(TL,"$path_to_lang/$thislang/changelog.txt"); while(){push(@LaNg,$_)} &exec_lang; @test=split(/\|/,$auths); open(LOG,"$path_to_changelog"); while(){ chomp(); ($p,$u,$d)=split(/&/); if(test($u)){ push(@LIST,$_); } } @LIST=sort(@LIST); $a="#CCCCCC"; $b="#F0F0F0";$x=$b; print "Content-type: text/html\n\n"; print qq~$ini_title
$ini_text1

~; foreach $L (@LIST){ if($x eq $a){$x=$b}else{$x=$a} ($p,$u,$d)=split(/&/,$L); print qq~~; } print qq~
$ini_text2$ini_text3$ini_text4
 
$p$u$d

$ini_text5~; 1;