📄 profile.cgi
字号:
$output =~ s/用户资料/密码已经寄出/g;
$output .= qq~
<tr>
<td bgcolor=$miscbacktwo valign=middle align=center><font color=$fontcolormisc><b>你好，$inmembername</b></font></td></tr>
<tr>
<td bgcolor=$miscbackone align=center><font color=$fontcolormisc>
您的密码已经成功的通过指定的邮件地址发送给您了。
</td></tr></table></td></tr></table>
~;
} # end user registered.
else {
print header(-charset=>gb2312);
&error("请求密码&不是注册用户！");
}
} # end routine.
################ show profile subroutine
sub showprofile
{
$inmember =~ s/\_/ /isg;
my $filetoopens = "${lbdir}data/onlinedata.cgi";
$filetoopens = &lockfilename($filetoopens);
&whosonline("$inmembername\t个人资料\tnone\t查看<b>$inmember</b>的个人资料\t") unless (-e "${filetoopens}.lck");
my $mytimeadd = $timedifferencevalue;
&getmembernolock($inmember);
&error("查看资料&没有此用户名！") if ($userregistered eq "no");
$allnumberofposts = $numberofreplys + $numberofposts;
if ($allnumberofposts >= $mpostmarkmax) {$mtitle = $mtitlemax; $membergraphic = $mgraphicmax;}
elsif ($allnumberofposts >= $mpostmark19) {$mtitle = $mtitle19; $membergraphic = $mgraphic19;}
elsif ($allnumberofposts >= $mpostmark18) {$mtitle = $mtitle18; $membergraphic = $mgraphic18;}
elsif ($allnumberofposts >= $mpostmark17) {$mtitle = $mtitle17; $membergraphic = $mgraphic17;}
elsif ($allnumberofposts >= $mpostmark16) {$mtitle = $mtitle16; $membergraphic = $mgraphic16;}
elsif ($allnumberofposts >= $mpostmark15) {$mtitle = $mtitle15; $membergraphic = $mgraphic15;}
elsif ($allnumberofposts >= $mpostmark14) {$mtitle = $mtitle14; $membergraphic = $mgraphic14;}
elsif ($allnumberofposts >= $mpostmark13) {$mtitle = $mtitle13; $membergraphic = $mgraphic13;}
elsif ($allnumberofposts >= $mpostmark12) {$mtitle = $mtitle12; $membergraphic = $mgraphic12;}
elsif ($allnumberofposts >= $mpostmark11) {$mtitle = $mtitle11; $membergraphic = $mgraphic11;}
elsif ($allnumberofposts >= $mpostmark10) {$mtitle = $mtitle10; $membergraphic = $mgraphic10;}
elsif ($allnumberofposts >= $mpostmark9) {$mtitle = $mtitle9; $membergraphic = $mgraphic9;}
elsif ($allnumberofposts >= $mpostmark8) {$mtitle = $mtitle8; $membergraphic = $mgraphic8;}
elsif ($allnumberofposts >= $mpostmark7) {$mtitle = $mtitle7; $membergraphic = $mgraphic7;}
elsif ($allnumberofposts >= $mpostmark6) {$mtitle = $mtitle6; $membergraphic = $mgraphic6;}
elsif ($allnumberofposts >= $mpostmark5) {$mtitle = $mtitle5; $membergraphic = $mgraphic5;}
elsif ($allnumberofposts >= $mpostmark4) {$mtitle = $mtitle4; $membergraphic = $mgraphic4;}
elsif ($allnumberofposts >= $mpostmark3) {$mtitle = $mtitle3; $membergraphic = $mgraphic3;}
elsif ($allnumberofposts >= $mpostmark2) {$mtitle = $mtitle2; $membergraphic = $mgraphic2;}
elsif ($allnumberofposts >= $mpostmark1) {$mtitle = $mtitle1; $membergraphic = $mgraphic1;}
else {$mtitle = $mtitle0; $membergraphic = "";}
if ($showemail eq "no")
{
$emailaddress = "保密";
}
elsif ($showemail eq "msn")
{
$emailaddress = qq~<img src=$imagesurl/images/msn.gif border=0 width=16 height=16 align=absmiddle> <a href=mailto:$emailaddress>$emailaddress</a>~;
}
else
{
$emailaddress = qq~<a href=mailto:$emailaddress>$emailaddress</a>~;
}
if ($oicqnumber eq "")
{
$oicqnumber = "没有";
$aollogo ="";
}
else
{
$aollogo = qq~<a href=http://search.tencent.com/cgi-bin/friend/user_show_info?ln=$oicqnumber title="查看 QQ：$oicqnumber 的资料" target=_blank><img src=$imagesurl/images/oicq.gif border=0 width=16 height=16></a> ~;
}
if ($icqnumber eq "")
{
$icqnumber = "没有";
$icqlogo = "";
}
else
{
$icqlogo = qq~<a href=misc.cgi?action=icq&UIN=$icqnumber title="给 ICQ:$icqnumber 发个消息" target=_blank><img src=$imagesurl/images/icq.gif border=0 width=16 height=16></a> ~;
}
if ($membercode eq "ad" && ($membertitle eq "Member" || $membertitle eq "member"))
{
$membertitle = "论坛坛主";
}
elsif ($membercode eq "smo" && ($membertitle eq "Member" || $membertitle eq "member"))
{
$membertitle = "总版主";
}
elsif ($membercode eq "cmo" && ($membertitle eq "Member" || $membertitle eq "member"))
{
$membertitle = "分类区版主";
}
elsif ($membercode eq "mo" && ($membertitle eq "Member" || $membertitle eq "member"))
{
$membertitle = "论坛版主";
}
$mtitle = $motitle if ($membercode eq "mo" && $motitle ne "");
$mtitle = $cmotitle if ($membercode eq "cmo" && $cmotitle ne "");
$mtitle = $smotitle if ($membercode eq "smo" && $smotitle ne "");
$mtitle = $adtitle if ($membercode eq "ad" && $adtitle ne "");
$membertitle = "禁止发言" if ($membercode eq "banned");
$membertitle = "没有" if ($membertitle eq "member" || $membertitle eq "Member" || $membertitle eq "");
$homepage = $homepage eq "http://" || $homepage eq "" ? "没有" : qq~<a href=$homepage target=_blank>$homepage</a>~;
$lastgone = $joineddate if ($lastgone eq "");
$joineddate = &longdate($joineddate + $mytimeadd * 3600 + $timezone * 3600);
$lastgone = &dateformat($lastgone + $mytimeadd * 3600 + $timezone * 3600);
($postdate, $posturl, $posttopic) = split(/\%%%/, $lastpostdate);
$posttopic =~ s/^＊＃！＆＊//;
$posttopic = $posttopic eq "" ? "是发在保密论坛的, 不给看:)" : qq~<a href=$posturl>$posttopic</a>~;
if ($postdate ne "没有发表过")
{
$postdate = &longdate($postdate + $mytimeadd * 3600 + $timezone * 3600);
$lastpostdetails = qq~$posttopic<br> ($postdate)~;
}
else
{
$lastpostdetails = "没有发表过";
}
if ($avatars eq "on")
{
if ($personalavatar && $personalwidth && $personalheight)
{
$personalavatar =~ s/\$imagesurl/$imagesurl/o;
$personalavatar = uri_escape($personalavatar) if ($uri_escape ne "no");
$useravatar = $personalavatar =~ /\.swf$/i && $flashavatar eq "yes" ? qq~<br> <param name=play value=true><param name=loop value=true><param name=quality value=high><embed src=$personalavatar quality=high width=$personalwidth height=$personalheight pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash"></embed>~ : qq~<br> <img src=$personalavatar border=0 width=$personalwidth height=$personalheight>~;
}
elsif ($useravatar ne "noavatar" && $useravatar)
{
$useravatar = uri_escape($useravatar) if ($uri_escape ne "no");
$useravatar = qq~<br> <img src=$imagesurl/avatars/$useravatar.gif border=0>~;
}
else
{
$useravatar = "<img src=$imagesurl/avatars/noavatar.gif border=0>";
}
}
$interests = "没有" if ($interests eq "");
$location = "没有" if ($location eq "");
if ($signaturehtml)
{
$signature = $signaturehtml;
}
elsif ($signatureorigin)
{
$signature = &signlbcode($signatureorigin) if ($idmbcodestate eq "on");
$signature =~ s/\n/\<br\>/isg;
}
else
{
$signature = "没有";
}
if ($sex eq "f")
{
$sex = "美女";
}
elsif ($sex eq "m")
{
$sex = "帅哥";
}
else
{
$sex = "保密";
}
$jhmp = "无门无派" if ($jhmp eq "");
$numberofposts = 0 if ($numberofposts eq "");
$numberofreplys = 0 if ($numberofreplys eq "");
$postdel = 0 if ($postdel eq "");
$rating = 0 if ($rating !~ /^[0-9\-]+$/);
$mymoney = 0 if ($mymoney eq "");
$born = "未输入" if ($born eq "" || $born eq "//");
$userflag = "blank" if ($userflag eq "");
$China = "中国"; $Angola = "安哥拉"; $Antigua = "安提瓜"; $Argentina = "阿根廷"; $Armenia = "亚美尼亚"; $Australia = "澳大利亚"; $Austria = "奥地利"; $Bahamas = "巴哈马"; $Bahrain = "巴林"; $Bangladesh = "孟加拉"; $Barbados = "巴巴多斯"; $Belgium = "比利时"; $Bermuda = "百慕大"; $Bolivia = "玻利维亚"; $Brazil = "巴西"; $Brunei = "文莱"; $Canada = "加拿大"; $Chile = "智利"; $Colombia = "哥伦比亚"; $Croatia = "克罗地亚"; $Cuba = "古巴"; $Cyprus = "塞浦路斯"; $Czech_Republic = "捷克"; $Denmark = "丹麦"; $Dominican_Republic = "多米尼加"; $Ecuador = "厄瓜多尔"; $Egypt = "埃及"; $Estonia = "爱沙尼亚"; $Finland = "芬兰"; $France = "法国"; $Germany = "德国"; $Great_Britain = "英国"; $Greece = "希腊"; $Guatemala = "危地马拉"; $Honduras = "洪都拉斯"; $Hungary = "匈牙利"; $Iceland = "冰岛"; $India = "印度"; $Indonesia = "印度尼西亚"; $Iran = "伊朗"; $Iraq = "伊拉克"; $Ireland = "爱尔兰"; $Israel = "以色列"; $Italy = "意大利"; $Jamaica = "牙买加"; $Japan = "日本"; $Jordan = "约旦"; $Kazakstan = "哈萨克"; $Kenya = "肯尼亚"; $Kuwait = "科威特"; $Latvia = "拉脱维亚"; $Lebanon = "黎巴嫩"; $Lithuania = "立陶宛"; $Malaysia = "马来西亚"; $Malawi = "马拉维"; $Malta = "马耳他"; $Mauritius = "毛里求斯"; $Morocco = "摩洛哥"; $Mozambique = "莫桑比克"; $Netherlands = "荷兰"; $New_Zealand = "新西兰"; $Nicaragua = "尼加拉瓜"; $Nigeria = "尼日利亚"; $Norway = "挪威"; $Pakistan = "巴基斯坦"; $Panama = "巴拿马"; $Paraguay = "巴拉圭"; $Peru = "秘鲁"; $Poland = "波兰"; $Portugal = "葡萄牙"; $Romania = "罗马尼亚"; $Russia = "俄罗斯"; $Saudi_Arabia = "沙特阿拉伯"; $Singapore = "新加坡"; $Slovakia = "斯洛伐克"; $Slovenia = "斯洛文尼亚"; $Solomon_Islands = "所罗门"; $Somalia = "索马里"; $South_Africa = "南非"; $South_Korea = "韩国"; $Spain = "西班牙"; $Sri_Lanka = "印度"; $Surinam = "苏里南"; $Sweden = "瑞典"; $Switzerland = "瑞士"; $Thailand = "泰国"; $Trinidad_Tobago = "多巴哥"; $Turkey = "土耳其"; $Ukraine = "乌克兰"; $United_Arab_Emirates = "阿拉伯联合酋长国"; $United_States = "美国"; $Uruguay = "乌拉圭"; $Venezuela = "委内瑞拉"; $Yugoslavia = "南斯拉夫"; $Zambia = "赞比亚"; $Zimbabwe = "津巴布韦";
if ($usersx eq "sx1") {$showsx = qq~<img src=$imagesurl/sx/sx1.gif alt="子鼠" align=absmiddle>~;}
elsif ($usersx eq "sx2") {$showsx = qq~<img src=$imagesurl/sx/sx2.gif alt="丑牛" align=absmiddle>~;}
elsif ($usersx eq "sx3") {$showsx = qq~<img src=$imagesurl/sx/sx3.gif alt="寅虎" align=absmiddle>~;}
elsif ($usersx eq "sx4") {$showsx = qq~<img src=$imagesurl/sx/sx4.gif alt="卯兔" align=absmiddle>~;}
elsif ($usersx eq "sx5") {$showsx = qq~<img src=$imagesurl/sx/sx5.gif alt="辰龙" align=absmiddle>~;}
elsif ($usersx eq "sx6") {$showsx = qq~<img src=$imagesurl/sx/sx6.gif alt="巳蛇" align=absmiddle>~;}
elsif ($usersx eq "sx7") {$showsx = qq~<img src=$imagesurl/sx/sx7.gif alt="午马" align=absmiddle>~;}
elsif ($usersx eq "sx8") {$showsx = qq~<img src=$imagesurl/sx/sx8.gif alt="未羊" align=absmiddle>~;}
elsif ($usersx eq "sx9") {$showsx = qq~<img src=$imagesurl/sx/sx9.gif alt="申猴" align=absmiddle>~;}
elsif ($usersx eq "sx10") {$showsx = qq~<img src=$imagesurl/sx/sx10.gif alt="酉鸡" align=absmiddle>~;}
elsif ($usersx eq "sx11") {$showsx = qq~<img src=$imagesurl/sx/sx11.gif alt="戌狗" align=absmiddle>~;}
elsif ($usersx eq "sx12") {$showsx = qq~<img src=$imagesurl/sx/sx12.gif alt="亥猪" align=absmiddle>~;}
else {$showsx = "";}
if ($userxz eq "z1") {$showxz = qq~<img height=15 src=$imagesurl/star/z1.gif width=15 alt="白羊座" align=absmiddle>~;}
elsif ($userxz eq "z2") {$showxz = qq~<img height=15 src=$imagesurl/star/z2.gif width=15 alt="金牛座" align=absmiddle>~;}
elsif ($userxz eq "z3") {$showxz = qq~<img height=15 src=$imagesurl/star/z3.gif width=15 alt="双子座" align=absmiddle>~;}
elsif ($userxz eq "z4") {$showxz = qq~<img height=15 src=$imagesurl/star/z4.gif width=15 alt="巨蟹座" align=absmiddle>~;}
elsif ($userxz eq "z5") {$showxz = qq~<img height=15 src=$imagesurl/star/z5.gif width=15 alt="狮子座" align=absmiddle>~;}
elsif ($userxz eq "z6") {$showxz = qq~<img height=15 src=$imagesurl/star/z6.gif width=15 alt="处女座" align=absmiddle>~;}
elsif ($userxz eq "z7") {$showxz = qq~<img height=15 src=$imagesurl/star/z7.gif width=15 alt="天秤座" align=absmiddle>~;}
elsif ($userxz eq "z8") {$showxz = qq~<img height=15 src=$imagesurl/star/z8.gif width=15 alt="天蝎座" align=absmiddle>~;}
elsif ($userxz eq "z9") {$showxz = qq~<img height=15 src=$imagesurl/star/z9.gif width=15 alt="射手座" align=absmiddle>~;}
elsif ($userxz eq "z10") {$showxz = qq~<img height=15 src=$imagesurl/star/z10.gif width=15 alt="魔羯座" align=absmiddle>~;}
elsif ($userxz eq "z11") {$showxz = qq~<img height=15 src=$imagesurl/star/z11.gif width=15 alt="水瓶座" align=absmiddle>~;}
elsif ($userxz eq "z12") {$showxz = qq~<img height=15 src=$imagesurl/star/z12.gif width=15 alt="双鱼座" align=absmiddle>~;}
else {$showxz = "";}
if ($dofilter eq "no" || $dofilter eq "all")
{
my $temp = &postwordfilter("$signature\t$interests\t$homepage\t$location\t$membertitle");
($signature, $interests, $homepage, $location, $membertitle) = split(/\t/, $temp);
}
$signature =~ s/<br>/<br> /ig;
$interests =~ s/<br>/<br> /ig;
$onlinetime = 0 if ($onlinetime < 0);
my $onlinetimeday = int($onlinetime / 86400);
$onlinetime -= $onlinetimeday * 86400;
my $onlinetimehour = int($onlinetime / 3600);
$onlinetime -= $onlinetimehour * 3600;
my $onlinetimemin = int($onlinetime / 60);
$onlinetime -= $onlinetimemin * 60;
my $onlinetimesec = $onlinetime;
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -