profile.cgi

一个linux论坛

	$inmember = uri_escape($inmember) if ($uri_escape ne "no");
	$output .= qq~
<tr>
<td bgColor=$miscbackone valign=bottom colSpan=4>$useravatar　　<font color=$fontcolormisc>以下是　<b><font size=4 color=$fonthighlight>$membername</font></b>　的个人资料</font></td>
</tr>
<tr>
<td bgColor=$miscbacktwo valign=middle colSpan=4 height=5> </td>
</tr>
<tr>
<td bgColor=$miscbackone valign=middle colSpan=4><b><font size=4 color=$fontcolormisc>1. 基本信息</b></font></td>
</tr>
<tr>
<td bgColor=$miscbackone valign=middle width=15%><font color=$fontcolormisc><b>性别：</b></font></td>
<td bgColor=$miscbacktwo valign=middle width=35%><font color=$fontcolormisc>&nbsp;$sex</font></td>
<td bgColor=$miscbackone valign=middle width=15%><font color=$fontcolormisc><b>生肖/星座：</b></font></td>
<td bgColor=$miscbacktwo valign=middle width=35%><font color=$fontcolormisc>&nbsp;$born $showsx</font> $showxz</td>
</tr>
<tr>
<td bgColor=$miscbackone valign=middle><font color=$fontcolormisc><b>注册时间：</b></font></td>
<td bgColor=$miscbacktwo valign=middle><font color=$fontcolormisc>&nbsp;$joineddate</font></td>
<td bgColor=$miscbackone valign=middle><font color=$fontcolormisc><b>在线：</b></font></td>
<td bgColor=$miscbacktwo valign=middle><font color=$fontcolormisc>&nbsp;<b><i>$onlinetimeday</i></b> 天 <b><i>$onlinetimehour</i></b> 小时 <b><i>$onlinetimemin</i></b> 分 <b><i>$onlinetimesec</i></b> 秒</font></td>
</tr>
<tr>
<td bgColor=$miscbackone valign=middle><font color=$fontcolormisc><b>访问：</b></font></td>
<td bgColor=$miscbacktwo valign=middle><font color=$fontcolormisc>&nbsp;<b><i>$visitno</i></b> 次<br><br>&nbsp;最后访问: $lastgone</font></td>
<td bgColor=$miscbackone valign=middle><font color=$fontcolormisc><b>总共发表：</b></font></td>
<td bgColor=$miscbacktwo valign=middle><font color=$fontcolormisc>&nbsp;主题: <b><i>$numberofposts</i></b>　　　回复: <b><i>$numberofreplys</i></b>　　　被删除: <b><i>$postdel</i></b><br><br>&nbsp;最后发表: $lastpostdetails</font></td>
</tr>
<tr>
<td bgColor=$miscbackone valign=middle colSpan=4><b><font size=4 color=$fontcolormisc>2. 社区资料</b></font></td></tr>
<tr>
<td bgColor=$miscbackone valign=middle><font color=$fontcolormisc><b>头衔：</b></font></td>
<td bgColor=$miscbacktwo valign=middle><font color=$fontcolormisc>&nbsp;$membertitle</font></td>
<td bgColor=$miscbackone valign=middle><font color=$fontcolormisc><b>级别：</b></font></td>
<td bgColor=$miscbacktwo valign=middle><font color=$fontcolormisc>&nbsp;<a href=lookinfo.cgi?action=style target=_blank>$mtitle</a></font></td>
</tr>
<tr>
<td bgColor=$miscbackone valign=middle><font color=$fontcolormisc><b>威望：</b></font></td>
<td bgColor=$miscbacktwo valign=middle><font color=$fontcolormisc>&nbsp;<b>$rating</b></font></td>
<td bgColor=$miscbackone valign=middle><font color=$fontcolormisc><b>门派：</b></font></td>
<td bgColor=$miscbacktwo valign=middle><font color=$fontcolormisc>&nbsp;$jhmp</font></td>
</tr>
<tr>
<td bgColor=$miscbackone valign=middle colSpan=4><b><font size=4 color=$fontcolormisc>3. 联系资料</b></font></td>
</tr>
<tr>
<td bgColor=$miscbackone valign=middle><font color=$fontcolormisc><b>主页：</b></font></td>
<td bgColor=$miscbacktwo valign=middle><font color=$fontcolormisc>&nbsp;$homepage</font></td>
<td bgColor=$miscbackone valign=middle><font color=$fontcolormisc><b>信箱：</b></font></td>
<td bgColor=$miscbacktwo valign=middle><font color=$fontcolormisc>&nbsp;$emailaddress</font></td>
</tr>
<tr>
<td bgColor=$miscbackone valign=middle><font color=$fontcolormisc><b>QQ：</b></font></td>
<td bgColor=$miscbacktwo valign=middle><font color=$fontcolormisc>&nbsp;$aollogo$oicqnumber</font></td>
<td bgColor=$miscbackone valign=middle><font color=$fontcolormisc><b>ICQ：</b></font></td>
<td bgColor=$miscbacktwo valign=middle><font color=$fontcolormisc>&nbsp;$icqlogo$icqnumber</font></td>
</tr>
<tr>
<td bgColor=$miscbackone valign=middle><font color=$fontcolormisc><b>来自：</b></font></td>
<td bgColor=$miscbacktwo valign=middle><font color=$fontcolormisc>&nbsp;$location</font> <img src=$imagesurl/flags/$userflag.gif alt="$$userflag" width=21 height=14 align=absmiddle></td>
<td bgColor=$miscbacktwo valign=middle colSpan=2></td>
</tr>
<tr>
<td bgColor=$miscbackone valign=middle colSpan=4><b><font size=4 color=$fontcolormisc>4. 其他资料</b></font></td>
</tr>
<tr>
<td bgColor=$miscbackone valign=middle><font color=$fontcolormisc><b>自我简介：</b></font></td>
<td bgColor=$miscbacktwo valign=middle colSpan=3><font color=$fontcolormisc>&nbsp;$interests</font></td>
</tr>
<tr>
<td bgColor=$miscbackone valign=middle><font color=$fontcolormisc><b>签名：</b></font></td>
<td bgColor=$miscbacktwo valign=middle colSpan=3><font color=$fontcolormisc>&nbsp;$signature</font></td>
</tr>
<tr>
<td bgColor=$miscbacktwo valign=middle colSpan=4 align=right><font color=$fonthighlight><b>相关操作：</b></font> <span OnClick="openScript('friendlist.cgi?action=adduser&adduser=$inmember', 420, 320)" style="cursor: hand">把$membername加为我的好友</span> | <span OnClick="openScript('messanger.cgi?action=new&touser=$inmember', 420, 320)" style="cursor: hand">发送一个短消息给$membername</span> | <a href=search.cgi?action=startsearch&TYPE_OF_SEARCH=username_search&NAME_SEARCH=topictitle_search&FORUMS_TO_SEARCH=all&SEARCH_STRING=$inmember target=_blank>查找$membername发表的所有帖子</a></td>
</tr>
</table></td></tr></table>~;
	return;
}

	sub modify {
	    $helpurl = &helpfiles("遗忘密码");
	    $helpurl = qq~$helpurl<img src=$imagesurl/images/help_b.gif border=0></a>~;
#	&getmember("$inmembername");
	if ("$userregistered" eq "no") { print header(-charset=>gb2312);&error("修改资料&没有此用户名！"); }
	if ("$inpassword" ne "$password") {&error("修改资料&密码错误！请重新登录后修改！"); }
	if (("$passwordverification" eq "yes") && ("$emailfunctions" ne "off")) {
	    $newpassneeded = "<br><B>如果您修改了邮件地址，一个新的密码将通过邮件发给您。</B>";
	    undef $newpasswordaddon;
	}
	$newpasswordaddon = qq~
 	   <tr>
	   <td bgcolor=$miscbackone width=40%><font color=$fontcolormisc><b>密码：</b> 请输入修改密码，区分大小写<br>只能使用大小写字母和数字的组合,不得少于８位</td>
	   <td bgcolor=$miscbackone width=60%><input type=password name="newpassword1" maxlength=20>　$helpurl</td>
	   </tr><tr>
	   <td bgcolor=$miscbackone><font color=$fontcolormisc><b>密码： (至少8位)</b><br>再输一遍，以便确定！</td>
	   <td bgcolor=$miscbackone><input type=password name="newpassword2" maxlength=20>　$helpurl</td>
	   </tr><tr>
	   <td bgcolor=$miscbacktwo valign=middle colspan=2 align=center>
	   <font color=$fonthighlight><b>如果你不想修改密码，请保持上面空白！</b></font></td></tr>
	~;
    ### Avatar stuff
my $filetoopens = "$lbdir" . "data/onlinedata.cgi";
$filetoopens = &lockfilename($filetoopens);
if (!(-e "$filetoopens.lck")) {
        &whosonline("$inmembername\t个人资料\tnone\t修改<b>$inmembername</b>的个人资料\t");
}

if ($avatars eq "on") {

        if ($arrowavaupload eq "on") {
            $avaupload = qq~<br>上传头像： <input type="file" size=20 name="addme">　上传自定义头像。<br>~;
        }
        else { undef $avaupload; }


        open (FILE, "${lbdir}data/lbava.cgi");
        my @images = <FILE>;
        close (FILE);
        chomp @images;

        $selecthtml .= qq~<option value="noavatar" selected>不要头像</option>\n~;
        $currentface = "noavatar";
        foreach (@images) {
	$totleavator=@images -1;

            $cleanavatar =  $_;
            $cleanavatar =~ s/.gif$//i;

            if (($cleanavatar =~ /admin_/) && ($membercode eq "me")) { next; }

            if ($cleanavatar eq "$useravatar") {
	            $selecthtml .= qq~<option value="$cleanavatar" selected>$cleanavatar</option>\n~;
                $currentface = "$cleanavatar";
                }
                elsif (($cleanavatar eq "noavatar") && (!$useravatar)) {
                    }
	                else {
                        $selecthtml .= qq~<option value="$cleanavatar">$cleanavatar</option>\n~;
                        }
                    }
	    $personalavatar =~ s/\$imagesurl/${imagesurl}/o;
            $avatarhtml = qq~
            <script language="javascript">
            function showimage(){document.images.useravatars.src="$imagesurl/avatars/"+document.creator.useravatar.options[document.creator.useravatar.selectedIndex].value+".gif";}
            </script>

            <tr>
                <td bgcolor=$miscbackone valign=top><font color=$fontcolormisc><b>个性图片：</b><br>您可以选择一个个性图片，当你发表时将显示在您的名字下方。<BR>如果你填写了下面的自定义头像部分，那么你的头像以自定义的为准。否则，请你留空自定义头像的所有栏目！<BR>
                <br><br><b>关于自定义头像</b>：<br>你也可以在这里给出你自定义头像的 URL 地址，头像的高度和宽度(像素)。 如果不想要自定义头像，请将相应栏目栏目全部留空！<BR><BR>
                <br><b>如果你不想要任何的头像，那么请首先在菜单上选“noavatar”，然后留空所有自定义头像的部分！</b><BR><br>
                <td bgcolor=$miscbackone valign=top>总头像个数： $totleavator 个。　<a href=viewavatars.cgi target=_blank><B>按此查看</B></a>所有头像名称列表。<BR>
                    <select name="useravatar" size=1 onChange="showimage()">
                    $selecthtml
                    </select>
                    <img src=$imagesurl/avatars/$currentface.gif name="useravatars" width=32 height=32 hspace=15><br><br><br>
                $avaupload
                <br>图像位置： <input type="text" name="newpersonalavatar" size="26" value="$personalavatar">　输入完整的 URL 路径。<br>
                <br>图像宽度： <input type="text" name="newpersonalwidth" size="2" maxlength=3 value="$personalwidth">　必须是 20 -- $maxposticonwidth 之间的一个整数。<br>
                <br>图像高度： <input type="text" name="newpersonalheight" size="2" maxlength=3 value="$personalheight">　必须是 20 -- $maxposticonheight 之间的一个整数。<br></td>
                </td>
            </tr>
            ~;
} # end avatar if
$userflag = "blank" if ($userflag eq "");
$flaghtml = qq~
<script language="javascript">
function showflag(){document.images.userflags.src="$imagesurl/flags/"+document.creator.userflag.options[document.creator.userflag.selectedIndex].value+".gif";}
</script>
<tr><td bgcolor=$miscbackone valign=top><font face="$font" color=$fontcolormisc><b>所在国家:</b><br>请选择你所在的国家。</td>
<td bgcolor=$miscbackone>
<select name="userflag" size=1 onChange="showflag()">
<option value="blank">保密</option>
<option value="China">中国</option>
<option value="Angola">安哥拉</option>
<option value="Antigua">安提瓜</option>
<option value="Argentina">阿根廷</option>
<option value="Armenia">亚美尼亚</option>
<option value="Australia">澳大利亚</option>
<option value="Austria">奥地利</option>
<option value="Bahamas">巴哈马</option>
<option value="Bahrain">巴林</option>
<option value="Bangladesh">孟加拉</option>
<option value="Barbados">巴巴多斯</option>
<option value="Belgium">比利时</option>
<option value="Bermuda">百慕大</option>
<option value="Bolivia">玻利维亚</option>
<option value="Brazil">巴西</option>
<option value="Brunei">文莱</option>
<option value="Canada">加拿大</option>
<option value="Chile">智利</option>
<option value="Colombia">哥伦比亚</option>
<option value="Croatia">克罗地亚</option>
<option value="Cuba">古巴</option>
<option value="Cyprus">塞浦路斯</option>
<option value="Czech_Republic">捷克</option>
<option value="Denmark">丹麦</option>
<option value="Dominican_Republic">多米尼加</option>
<option value="Ecuador">厄瓜多尔</option>
<option value="Egypt">埃及</option>
<option value="Estonia">爱沙尼亚</option>
<option value="Finland">芬兰</option>
<option value="France">法国</option>
<option value="Germany">德国</option>
<option value="Great_Britain">英国</option>
<option value="Greece">希腊</option>
<option value="Guatemala">危地马拉</option>
<option value="Honduras">洪都拉斯</option>
<option value="Hungary">匈牙利</option>
<option value="Iceland">冰岛</option>
<option value="India">印度</option>
<option value="Indonesia">印度尼西亚</option>
<option value="Iran">伊朗</option>
<option value="Iraq">伊拉克</option>
<option value="Ireland">爱尔兰</option>
<option value="Israel">以色列</option>
<option value="Italy">意大利</option>
<option value="Jamaica">牙买加</option>
<option value="Japan">日本</option>
<option value="Jordan">约旦</option>
<option value="Kazakstan">哈萨克</option>
<option value="Kenya">肯尼亚</option>
<option value="Kuwait">科威特</option>
<option value="Latvia">拉脱维亚</option>
<option value="Lebanon">黎巴嫩</option>
<option value="Lithuania">立陶宛</option>
<option value="Malaysia">马来西亚</option>
<option value="Malawi">马拉维</option>
<option value="Malta">马耳他</option>
<option value="Mauritius">毛里求斯</option>
<option value="Morocco">摩洛哥</option>
<option value="Mozambique">莫桑比克</option>