#####################################################
#  LEO SuperCool BBS / LeoBBS X / 雷傲極酷超級論壇  #
#####################################################
# 基於山鷹(糊)、花無缺製作的 LB5000 XP 2.30 免費版  #
#   新版程式製作 & 版權所有: 雷傲科技 (C)(R)2004    #
#####################################################
#      主頁地址： http://www.LeoBBS.com/            #
#      論壇地址： http://bbs.LeoBBS.com/            #
#####################################################

if ($inmembername eq "訪客") {
    print "<script language='javascript'>document.location = 'loginout.cgi?forum=$inforum'</script>";
    exit;
}
if ((($userregistered ne "no")&&($allowedentry{$inforum} eq "yes"))||($membercode eq "ad")||($membercode eq 'smo')||($inmembmod eq "yes")||(($userregistered ne "no") && ($forumpassword eq $forumpass))) {
    $allowforumcookie = cookie(-name => "forumsallowed$inforum", -value => "$forumpass", -path => "$cookiepath/", -expires => "0");

    print header(-cookie=>[$allowforumcookie] , -expires=>"$EXP_MODE" , -cache=>"$CACHE_MODES");

    print qq ~<script>location.href="$thisprog?forum=$inforum";</script>~;
    exit;
}
&error("進入論壇&你不准許\進入該論壇！");
1;
