~;
my %Mode = (
'show' => \&showprofile,
'shows' => \&showprofile,
'lostpassword' => \&lostpasswordform,
'lostpass' => \&lostpasswordform,
'sendpassword' => \&sendpassword,
'modify' => \&modify,
'process' => \&savemodify,
);
if($Mode{$action}) {
$Mode{$action}->();
} else {
&error("查看资料&请勿非正常访问本程序!");
}
print header(-charset=>gb2312 , -expires=>"$EXP_MODE" , -cache=>"$CACHE_MODES");
&output($boardname,\$output);
exit;
sub lostpasswordform {
require "dolostpasswordform.pl";
}
sub sendpassword {
require "dosendpassword.pl";
}
sub savemodify {
require "dosavemodify.pl";
}
sub modify {
require "domodify.pl";
}
sub showprofile {
$inmember =~ s/\_/ /isg;
my $filetoopens = "$lbdir" . "data/onlinedata.cgi";
$filetoopens = &lockfilename($filetoopens);
if (!(-e "$filetoopens.lck")) {
&whosonline("$inmembername\t个人资料\tnone\t查看$inmember的个人资料\t");
}
&getmember("$inmember","no");
if ("$userregistered" eq "no") { &error("查看资料&没有此用户名!"); }
$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; $mgraphic0 ="none.gif" if ($mgraphic0 eq ""); $membergraphic = $mgraphic0; } #显示默认等级
$emailaddress = &encodeemail($emailaddress);
if ($showemail eq "no") { $emailaddress = "保密"; }
elsif ($showemail eq "popo") { $emailaddress = qq~ $emailaddress~; }
elsif ($showemail eq "msn") { $emailaddress = qq~ $emailaddress~; }
else { $emailaddress = qq~$emailaddress~; }
if (($oicqnumber) && ($oicqnumber =~ /[0-9]/)) { $qqlogo = qq~~;} else { $oicqnumber = "没有"; $qqlogo ="";}
if ($icqnumber eq "") { $icqnumber = "没有"; $icqlogo = ""; } else { $icqlogo = qq~~; }
if ((($membercode eq "ad")&&($membertitle eq "Member"))||(($membercode eq "ad")&&($membertitle eq "member"))) { $membertitle = "论坛坛主"; }
if ((($membercode eq "mo")&&($membertitle eq "Member"))||(($membercode eq "mo")&&($membertitle eq "member"))) { $membertitle = "论坛版主";}
if ((($membercode eq "cmo")&&($membertitle eq "Member"))||(($membercode eq "mo")&&($membertitle eq "member"))) { $membertitle = "分类区版主";}
if ((($membercode eq "smo")&&($membertitle eq "Member"))||(($membercode eq "smo")&&($membertitle eq "member"))) { $membertitle = "总版主";}
if ((($membercode eq "amo")&&($membertitle eq "Member"))||(($membercode eq "amo")&&($membertitle eq "member"))) { $membertitle = "论坛副版主";}
$mtitle = $motitle if (($membercode eq "mo")&&($motitle ne ""));
$mtitle = $adtitle if (($membercode eq "ad")&&($adtitle ne ""));
$mtitle = $cmotitle if (($membercode eq "cmo")&&($cmotitle ne ""));
$mtitle = $smotitle if (($membercode eq "smo")&&($smotitle ne ""));
$mtitle = $amotitle if (($membercode eq "amo")&&($amotitle ne ""));
if ($membercode eq "banned") { $membertitle = "禁止发言"; }
if ($membertitle eq "member" || $membertitle eq "Member" || $membertitle eq "") { $membertitle = "没有"; }
if (($homepage eq "http://") || ($homepage eq "")) { $homepage = "没有"; } else { $homepage = qq~$homepage~; }
$lastgone = $joineddate if($lastgone eq "");
$joineddate = &longdate($joineddate + ($timedifferencevalue*3600) + ($timezone*3600));
$lastgone = &dateformat($lastgone + ($timedifferencevalue*3600) + ($timezone*3600));
($postdate, $posturl, $posttopic) = split(/\%%%/,$lastpostdate);
$posttopic =~ s/^*#!&*//;
if ($postdate ne "没有发表过") {
$postdate = &longdate($postdate + ($timedifferencevalue*3600) + ($timezone*3600));
$lastpostdetails = qq~$posttopic ($postdate)~;
} else {
$lastpostdetails = "没有发表过";
}
if ($avatars eq "on") {
if (($personalavatar)&&($personalwidth)&&($personalheight)) { #自定义头像存在
$personalavatar =~ s/\$imagesurl/${imagesurl}/o;
if (($personalavatar =~ /\.swf$/i)&&($flashavatar eq "yes")) {
$personalavatar=uri_escape($personalavatar);
$useravatar = qq( );
} else {
$personalavatar=uri_escape($personalavatar);
$useravatar = qq( );
}
}
elsif (($useravatar ne "noavatar") && ($useravatar)) {
$useravatar=uri_escape($useravatar);
$useravatar = qq( );
}
else {$useravatar="没有"; }
}
$xnuseravatar = "没有";
if ($userface ne '') {
my ($currequip,$x,$loadface)=split(/\|/,$userface);
$xnuseravatar = qq~~;
}
$interests = "没有" if ($interests eq "");
$location = "没有" if ($location eq "");
### 3Yuan
if ($membercode eq "banned")
{
$membertitle = "监狱改造";
$xnuseravatar = "
我要探监";
}
### 3-end
if ($signaturehtml) {$signature = $signaturehtml ;}
elsif ($signatureorigin) { if ($idmbcodestate eq 'on') { require "dosignlbcode.pl"; $signature = &signlbcode($signatureorigin); } $signature =~ s/\n/\ /isg;}
else {$signature = "没有";}
if ($sex eq "f") {
$sex = "美女 ";
}
elsif ($sex eq "m") {
$sex = "帅哥 ";
}
else { $sex = "保密"; }
$numberofreplys = 0 if ($numberofreplys eq "");
$meili = 0 if ($meili eq "");
$postdel = 0 if ($postdel eq "");
$jhmp = "无门无派" if ($jhmp eq "");
if ($rating !~ /^[0-9\-]+$/) {$rating = 0;}
if ($rating eq "") {$rating =0;}
$mymoney = 0 if ($mymoney eq "");
$education = "未输入" if ($education eq "");
$marry = "未输入" if ($marry eq "");
$work = "未输入" if ($work eq "");
$born = "未输入" if (($born eq "")||($born eq "//"));
$userflag = "blank" if ($userflag eq "");
$blank="未输入";
$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="津巴布韦";
$blank="未输入";
$usersx = "blank" if ($usersx eq "");
if ($usersx eq "sx1") {$showsx = "子鼠 ";}
elsif ($usersx eq "sx2") {$showsx = "丑牛 ";}
elsif ($usersx eq "sx3") {$showsx = "寅虎 ";}
elsif ($usersx eq "sx4") {$showsx = "卯兔 ";}
elsif ($usersx eq "sx5") {$showsx = "辰龙 ";}
elsif ($usersx eq "sx6") {$showsx = "巳蛇 ";}
elsif ($usersx eq "sx7") {$showsx = "午马 ";}
elsif ($usersx eq "sx8") {$showsx = "未羊 ";}
elsif ($usersx eq "sx9") {$showsx = "申猴 ";}
elsif ($usersx eq "sx10") {$showsx = "酉鸡 ";}
elsif ($usersx eq "sx11") {$showsx = "戌狗 ";}
elsif ($usersx eq "sx12") {$showsx = "亥猪 ";}
else {$showsx = "未输入";}
$userxz = "blank" if ($userxz eq "");
if ($userxz eq "z1") {$showxz = "白羊 ";}
elsif ($userxz eq "z2") {$showxz = "金牛 ";}
elsif ($userxz eq "z3") {$showxz = "双子 ";}
elsif ($userxz eq "z4") {$showxz = "巨蟹 ";}
elsif ($userxz eq "z5") {$showxz = "狮子 ";}
elsif ($userxz eq "z6") {$showxz = "处女 ";}
elsif ($userxz eq "z7") {$showxz = "天秤 ";}
elsif ($userxz eq "z8") {$showxz = "天蝎 ";}
elsif ($userxz eq "z9") {$showxz = "射手 ";}
elsif ($userxz eq "z10") {$showxz = "魔羯 ";}
elsif ($userxz eq "z11") {$showxz = "水瓶 ";}
elsif ($userxz eq "z12") {$showxz = "双鱼 ";}
else {$showxz = "未输入";}
$jingyan = $numberofposts * $ttojy + $numberofreplys * $rtojy + $visitno * $ltojy + $addjy - $postdel * $deljingyan + $jhcount * $addjhjy;
$meili = $numberofposts * $addml + $numberofreplys * $replyml + $visitno * $loginml + $meili - $postdel * $delml + $jhcount * $addjhml;
$mymoney = $numberofposts * $addmoney + $numberofreplys * $replymoney + $visitno * $loginmoney + $mymoney - $postdel * $delmoney + $jhcount * $addjhhb;
$moneyname ="雷傲元" if ($moneyname eq "");
my $onlinetimehour = int($onlinetime/3600);
my $onlinetimemin = int(($onlinetime%3600)/60);
my $onlinetimesec = int(($onlinetime%3600)%60);
$onlinetimehour = "0$onlinetimehour" if ($onlinetimehour <10);
$onlinetimemin = "0$onlinetimemin" if ($onlinetimemin <10);
$onlinetimesec = "0$onlinetimesec" if ($onlinetimesec <10);
if (-e "${lbdir}soccer.cgi")
{
my ($mywin, $mydraw, $mylose, $myplay, $myget) = split(/:/, $soccerdata);
$mywin = 0 if ($mywin eq "");
$mydraw = 0 if ($mydraw eq "");
$mylose = 0 if ($mylose eq "");
$myplay = 0 if ($myplay eq "");
$myget = 0 if ($myget eq "");
my $soccerwinrate = 0;
$soccerwinrate = sprintf("%.2f", $mywin * 100 / ($mywin + $mydraw + $mylose)) if (($mywin + $mydraw + $mylose) > 0);
$soccerinfo = qq~
博彩战绩: 胜: $mywin 平: $mydraw 负: $mylose 胜率: $soccerwinrate% 历史投注: $myplay $moneyname 历史收益: $myget $moneyname |
~ if (($mywin + $mydraw + $mylose) > 0);
}
my ($mystatus, $mysaves, $mysavetime, $myloan, $myloantime, $myloanrating, $bankadd1, $bankadd2, $bankadd3, $bankadd4, $bankadd5) = split(/,/, $ebankdata);
if ($mystatus) {
$mysaves .= " $moneyname";
if ($myloan) {
$myloan .= " $moneyname";
} else {
$myloan = "没贷款";
}
} else {
$mysaves = "没开户";
$myloan = "没贷款";
}
$inmember = uri_escape($inmember);
$onlinetimehour = int($onlinetime/3600);
$onlinetimemin = int(($onlinetime%3600)/60);
$onlinetimesec = int(($onlinetime%3600)%60);
$onlinetimehour = "0$onlinetimehour" if ($onlinetimehour <10);
$onlinetimemin = "0$onlinetimemin" if ($onlinetimemin <10);
$onlinetimesec = "0$onlinetimesec" if ($onlinetimesec <10);
if ($onlinetimehour >= 1000) { my $onlinetime1 = $onlinetimehour; $onlinetime = int($onlinetime1/24); $onlinetime1 = $onlinetime1 - $onlinetime * 24; $onlinetime = "$onlinetime天$onlinetime1时$onlinetimemin分$onlinetimesec秒"; }
else { $onlinetime = "$onlinetimehour 时 $onlinetimemin 分 $onlinetimesec 秒"; }
$output .= qq~
"$membername" 的个人资料 |
$xnuseravatar |
用户名: |
$membername |
性别: |
$sex |
注册时间: |
$joineddate |
出生年月: |
$born |
生肖: |
$showsx |
星座: |
$showxz |
婚姻状况: |
$marry |
学历: |
$education |
职业: |
$work |
威望: |
$rating |
魅力: |
$meili |
经验: |
$jingyan |
当前级别: |
$mtitle |
当前头衔: |
$membertitle |
江湖门派: |
$jhmp |
总共发表: |
$numberofposts 篇 |
总共回复: |
$numberofreplys 篇 |
贴子被删除: |
$postdel 篇 |
邮件地址: |
$emailaddress |
QQ 号码: |
$qqlogo $oicqnumber |
ICQ 号码: |
$icqlogo $icqnumber |
国家: |
$$userflag |
来自: |
$location |
主页地址: |
$homepage |
现金: |
$mymoney $moneyname |
存款: |
$mysaves |
贷款: |
$myloan |
在线时间: |
$onlinetime |
访问次数: |
$visitno 次 |
最后访问: |
$lastgone |
$soccerinfo
把$membername加为我的好友 |
发送一个短消息给$membername |
查找$membername发表的所有帖子 |
|
最后发表: |
$lastpostdetails |
自我简介: |
$interests |
签名: |
$signature |
个性图片: |
$useravatar |
|