loginout.cgi

一个linux论坛

    if ($defaulttopicshow ne "")       { $inthreadages  = $defaulttopicshow; }
    if ($query->cookie("threadages"))  { $inthreadages  = $query->cookie("threadages"); }
    if ($query->cookie("viewMode") ne "")  { $checked ="checked"; $checked1 =""; } else { $checked1 ="checked"; $checked =""; }
    if ($query->cookie("tanchumsg") eq "") { $tcchecked ="checked"; $tcchecked1 =""; } else { $tcchecked1 ="checked"; $tcchecked =""; }
    if (($query->cookie("onlineview") == 1)||($query->cookie("onlineview") eq "")) { $online ="checked"; $online1 =""; } else { $online1 ="checked"; $online =""; }
    if (($query->cookie("advpost") == 1)||($query->cookie("advpost") eq "")) { $aadvpost ="checked"; $aadvpost1 =""; } else { $aadvpost1 ="checked"; $aadvpost =""; }
    $nodisp = $query->cookie("nodisp");
    ($nodispavatar, $nodispsign, $nodispphoto)  = split(/\|/,$nodisp);
    if ($nodispavatar eq "yes"){ $checked2 ="checked" ; }

    if ($boarddispsign eq "no") { $checked3 ="checked disabled"; }
    elsif ($boarddispsign eq "noselect" && $nodispsign eq "")    { $checked3 ="checked"; }
    elsif ($boarddispsign eq "noselect" && $nodispsign eq "yes") { $checked3 ="checked"; }
    elsif ($boarddispsign eq "noselect" && $nodispsign eq "no")  { $checked3 ="" ;       }
    elsif ($boarddispsign eq "yes" && $nodispsign eq "")         { $checked3 ="";        }
    elsif ($boarddispsign eq "yes" && $nodispsign eq "yes")      { $checked3 ="checked"; }	
    elsif ($boarddispsign eq "yes" && $nodispsign eq "no")       { $checked3 ="";        }	

    if ($nodispphoto eq "yes") { $checked4 ="checked"; }

    print header(-charset=>gb2312);

    my $filetoopens = "$lbdir" . "data/onlinedata.cgi";
    $filetoopens = &lockfilename($filetoopens);
    if (!(-e "$filetoopens.lck")) {
	&whosonline("$inmembername\t论坛登录\tnone\t登录论坛\t");
    }

    opendir (DIR, "${lbdir}data/skin");
    @skindata = readdir(DIR);
    closedir (DIR);
    my $myskin="";
    @skindata = grep(/\.cgi$/,@skindata);
    $topiccount = @skindata;
    @skindata=sort @skindata;
    for (my $i=0;$i<$topiccount;$i++){
        $skindata[$i]=~s /\.cgi//isg;
        $myskin.=qq~<option value="$skindata[$i]">[ $skindata[$i] ]</option>~;
    }
    if ($canhidden ne "no") {
        $userhidden = qq~<tr><td bgcolor=$miscbackone valign=top width=30%><font face="$font" color=$fontcolormisc><b>论坛隐身</b> 请选择你的登录显示方式，可以适当保密你的隐私。</font></td>
    <td bgcolor=$miscbackone valign=middle><font class='misc'>
                <input type="radio" name="hidden" value="0" checked id=1> <label for=1>正常登录，显示在在线会员列表中</label><br>
                <input type="radio" name="hidden" value="1" id=2> <label for=2>隐身登录，不要把我显示在在线列表中</label><br>
                </font>
                </td></tr>
    ~;
    }
    else { $userhidden = ""; }
    
    $output .= qq~
    <tr>
    <td bgcolor=$miscbacktwo valign=middle colspan=2 align=center>
    <form action="$thisprog" name="login" method="post" onSubmit="submitonce(this)">
    <input type=hidden name="action" value="login">
    <input type=hidden name="forum" value="$inforum">
    <font face="$font" color=$fontcolormisc><b>请输入您的用户名、密码登录</b></font></td></tr>
    <tr>
    <td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>请输入您的用户名</font></td>
    <td bgcolor=$miscbackone valign=middle><input type=text name="inmembername" value="$inmembername"> &nbsp; <font color=$fontcolormisc><span onclick="javascript:location.href='register.cgi?forum=$inforum'" style="cursor:hand">您没有注册？</span></td></tr>
    <tr>
    <td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>请输入您的密码</font></td>
    <td bgcolor=$miscbackone valign=middle><input type=password name="inpassword" value="$inpassword"> &nbsp; <font face="$font" color=$fontcolormisc><a href="profile.cgi?action=lostpass" style="cursor:help">忘记密码？</a></font></td></tr>
    <tr>
    <td bgcolor=$miscbacktwo colspan=2 valign=middle><font face="$font" color=$fontcolormisc><b>论坛登录选项</b></font></td></tr>
    $userhidden
    <tr>
    <td bgcolor=$miscbackone valign=top width=30%><font face="$font" color=$fontcolormisc><b>Cookie 选项</b><BR> 请选择你的 Cookie 保存时间，下次访问可以方便输入。</font></td>
    <td bgcolor=$miscbackone valign=middle><font class='misc'>
                <input type="radio" name="CookieDate" value="-1d" checked id=3> <label for=3>不保存，关闭浏览器就失效</label><br>
                <input type="radio" name="CookieDate" value="+1d" id=4> <label for=4>保存一天</label><br>
                <input type="radio" name="CookieDate" value="+30d" id=5> <label for=5>保存一月</label><br>
                <input type="radio" name="CookieDate" value="+20y" id=6> <label for=6>永久保存</label><br>
                </font>
                </td></tr>
</table></td></tr></table>
~; 
if ($advlogin == 1) { 
$advloginout = "true"; 
$advmode = qq~<td width=50%><INPUT id=advcheck name=advshow type=checkbox value=1 onclick=showadv() checked><span id="advance">关闭高级登录选项</a></span> </td><td width=50%><input type=submit value="登 录" name=submit></td>~;} 
else { 
$advloginout = "none"; 
$advmode = qq~<td width=50%><INPUT id=advcheck name=advshow type=checkbox value=1 onclick=showadv()><span id="advance">显示高级登录选项</a></span> </td><td width=50%><input type=submit value="登 录" name=submit></td>~;} 
$output .=qq~ 
<table cellpadding=0 cellspacing=0 border=0 width=$tablewidth bgcolor=$tablebordercolor align=center id=adv style="DISPLAY: $advloginout">
 <tr><td>
    <table cellpadding=4 cellspacing=1 border=0 width=100%>

<tr>
    <td bgcolor=$miscbackone valign=top width=30%><font face="$font" color=$fontcolormisc><b>在线列表</b> 请选择你的在线名单显示方式，可以加快论坛显示。</font></td>
    <td bgcolor=$miscbackone valign=middle><font class='misc'>
                <input type="radio" name="onlineview" value="1" $online id=9> <label for=9>显示详细名单</label><br>
                <input type="radio" name="onlineview" value="0" $online1 id=10> <label for=10>关闭详细名单</label><br>
                </font>
                </td></tr>
<tr>
   <td bgcolor=$miscbackone valign=top width=30%><font face="$font" color=$fontcolormisc><b>默认发帖方式</b> 请选择你发帖时显示的方式。</font></td>
   <td bgcolor=$miscbackone valign=middle><font class='misc'>
               <input type="radio" name="advpost" value="1" $aadvpost id=18> <label for=18>高级模式</label><br>
               <input type="radio" name="advpost" value="0" $aadvpost1 id=19> <label for=19>简单模式</label><br>
               </font>
               </td></tr>      <tr>
    <td bgcolor=$miscbackone valign=top width=30%><font face="$font" color=$fontcolormisc><b>查看主题</b> 请选择你喜好查看主题的多少，可以加快论坛显示。</font></td>
    <td bgcolor=$miscbackone valign=middle><font class='misc'>
        <select name="threadages">
        <option value="all">查看所有的主题</option>
        <option value="1">查看一天内的主题</option>
        <option value="2">查看两天内的主题</option>
        <option value="7">查看一星期内的主题</option>
        <option value="15">查看半个月内的主题</option>
        <option value="30">查看一个月内的主题</option>
        <option value="61">查看两个月内的主题</option>
        <option value="182">查看半年内的主题</option>
        <option value="365">查看一年内的主题</option>
        </select>
                </font>
                </td></tr>
      <tr>
    <td bgcolor=$miscbackone valign=top width=30%><font face="$font" color=$fontcolormisc><b>查看贴子</b> 请选择你喜好的查看贴子方式，可以方便阅读。</font></td>
    <td bgcolor=$miscbackone valign=middle><font class='misc'>
                <input type="radio" name="viewMode" value="" $checked1 id=11> <label for=11>在原窗口中浏览</label><br>
                <input type="radio" name="viewMode" value="_blank" $checked id=12> <label for=12>在新窗口中浏览</label><br>
                </font>
                </td></tr>

      <tr>
    <td bgcolor=$miscbackone valign=top width=30%><font face="$font" color=$fontcolormisc><b>查看贴子内容</b> 请选择查看贴子内容时候是否显示用户头像、签名和贴图。</font></td>
    <td bgcolor=$miscbackone valign=middle><font class='misc'>
                <input type="checkbox" name="nodispavatar" value="yes" $checked2 id=13> <label for=13>不显示用户头像</label><br>
                <input type="checkbox" name="nodispsign"   value="yes" $checked3 id=14> <label for=14>不显示用户签名</label><br>
                <input type="checkbox" name="nodispphoto"  value="yes" $checked4 id=15> <label for=15>不显示用户贴图</label><br>
                </font>
                </td></tr>
		   <tr>
    <td bgcolor=$miscbackone valign=top width=30%><font face="$font" color=$fontcolormisc><b>有短消息是否弹出？</b> <BR>（如果管理员设置了不弹出则此选择无效）</font></td>
    <td bgcolor=$miscbackone valign=middle><font class='misc'>
                <input type="radio" class=1 name="tanchumsg" value="" $tcchecked id=16> <label for=16>弹出短消息窗口</label><br>
                <input type="radio" class=1 name="tanchumsg" value="no" $tcchecked1 id=17> <label for=17>不弹出短消息窗口</label><br>
                </font></td></tr>

<tr>
    <td bgcolor=$miscbackone valign=top width=30%><font face="$font" color=$fontcolormisc><b>页面自动刷新时间</b> <BR>请输入分论坛首页自动刷新的时间（不输入则按照分论坛的默认设置进行刷新或者不刷新）</font></td>
    <td bgcolor=$miscbackone valign=middle><font class='misc'>
每隔 <input type=text name="freshtime" value="$freshtime" maxlength="2" size="2"> 分钟自动刷新一次

</tr>
</table></td></tr>
<script>
function showadv(){
if (document.login.advshow.checked == true) {
		adv.style.display = "";
		advance.innerText="关闭高级登录选项"
	}else{
		adv.style.display = "none";
		advance.innerText="显示高级登录选项"
	}
}		
function submitonce(theform){
if (document.all||document.getElementById){
for (i=0;i<theform.length;i++){
var tempobj=theform.elements[i]
if(tempobj.type.toLowerCase()=="submit"||tempobj.type.toLowerCase()=="reset")
tempobj.disabled=true
}}}
</script>

</tr></table><img src="" width=0 height=4><BR>
<table cellpadding=0 cellspacing=0 border=0 width=$tablewidth align=center>
<tr>
$advmode</form></tr></table></td></tr></table>

~;
}

$output =~ s/option value=\"$inthreadages\"/option value=\"$inthreadages\" selected/;
&output( -Title => "$boardname - 登录/退出", -ToPrint => $output, -Version => $versionnumber );
exit;