📄 profile.cgi
字号:
$mtitle = $motitle if (($membercode eq "mo")&&($motitle ne ""));
$mtitle = $adtitle if (($membercode eq "ad")&&($adtitle ne ""));
if ($membercode eq "banned") { $membertitle = "禁止发言"; }
if ($membertitle eq "member" || $membertitle eq "Member") { $membertitle = "没有"; }
if ($homepage eq "http://") { $homepage = "没有"; } else { $homepage = qq~<a href="$homepage" target="_blank">$homepage</a>~; }
$joineddate = &longdate($joineddate + ($timedifferencevalue*3600) + ($timezone*3600));
## Sort last post, and where
($postdate, $posturl, $posttopic) = split(/\%%%/,$lastpostdate);
if ($postdate ne "没有发表过") {
$postdate = &longdate($postdate + ($timedifferencevalue*3600) + ($timezone*3600));
$lastpostdetails = qq~<a href="$posturl">$posttopic</a> ($postdate)~;
}
else {
$lastpostdetails = "没有发表过";
}
if ($avatars eq "on") {
if (($personalavatar)&&($personalwidth)&&($personalheight)) { #自定义头像存在
$useravatar = qq(<br> <img src="$personalavatar" border=0 width=$personalwidth height=$personalheight>);
}
elsif (($useravatar ne "noavatar") && ($useravatar)) {
$useravatar = qq(<br> <img src="$imagesurl/avatars/$useravatar.gif" border=0 width=32 height=32>);
}
else {$useravatar="没有"; }
}
$interests = "没有" if ($interests eq "");
$location = "没有" if ($location eq "");
if ($signature) {
$signature = &signikoncode($signature);
}
else {$signature = "没有";}
$output .= qq~
<tr>
<td bgcolor=$miscbacktwo valign=middle colspan=2 align=center><font face="$font" color=$fontcolormisc>"<b><font color=$fonthighlight>$inmember</b></font>" 的个人资料</td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle width=30%><font face="$font" color=$fontcolormisc><b>注册时间：</b></font></td>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>$joineddate</font></td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc><b>当前头衔：</b></font></td>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>$membertitle</font></td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc><b>当前级别：</b></font></td>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>$mtitle</font></td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc><b>最后发表：</b></font></td>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>$lastpostdetails</font></td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc><b>总共发表：</b></font></td>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>$numberofposts</font></td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc><b>邮件地址：</b></font></td>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>$emailaddress</font></td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc><b>主页地址：</b></font></td>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>$homepage</font></td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc><b>OICQ号码：</b></font></td>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>$aolname</font> $aollogo</td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc><b>ICQ 号码：</b></font></td>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>$icqnumber</font> $icqlogo</td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc><b>来自：</b></font></td>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>$location</font></td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc><b>签名：</b></font></td>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>$signature</font></td></tr>
<tr>
<td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc><b>个性图片：</b></font></td>
<td bgcolor=$miscbackone valign=middle>$useravatar</td></tr>
</table></td></tr></table>
~;
# <td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc><b>简介：</b></font></td>
# <td bgcolor=$miscbackone valign=middle><font face="$font" color=$fontcolormisc>$interests</font></td></tr>
# <tr>
} # end showprofile
############################## start profile modification
sub modify {
$helpurl = &helpfiles("遗忘密码");
$helpurl = qq~$helpurl<img src="$imagesurl/images/help_b.gif" border=0></a>~;
&getmember("$inmembername");
if ("$userregistered" eq "no") { &error("修改资料&没有此用户名！"); }
if ("$inpassword" ne "$password") { &error("修改资料&密码错误！请重新登陆后修改！"); }
if (("$passwordverification" eq "yes") && ("$emailfunctions" ne "off")) {
$newpassneeded = "<br><B>如果您修改了邮件地址，一个新的密码将通过邮件发给您。</B>";
undef $newpasswordaddon;
}
else {
$newpasswordaddon = qq~
<tr>
<td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc><b>密码：</b><br>请输入修改密码，区分大小写</td>
<td bgcolor=$miscbackone><input type=password name="newpassword1"> $helpurl</td>
</tr><tr>
<td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc><b>密码：</b><br>再输一遍，以便确定！</td>
<td bgcolor=$miscbackone><input type=password name="newpassword2"> $helpurl</td>
</tr><tr>
<td bgcolor=$miscbacktwo valign=middle colspan=2 align=center>
<font color=$fonthighlight><b>如果你不想修改密码，请保持上面空白！</b></font></td></tr>
~;
}
### Avatar stuff
&whosonline("$inmembername|个人资料|none|修改<b>$inmembername</b>的个人资料|");
if ($avatars eq "on") {
$dirtoopen = "$imagesdir" . "avatars";
opendir (DIR, "$dirtoopen") or die "个性图片目录错误：$dirtoopen";
@dirdata = readdir(DIR);
closedir (DIR);
@images = grep(/gif/,@dirdata);
foreach (@images) {
$totleavator=@images -1;
$cleanavatar = $_;
$cleanavatar =~ s/.gif$//i;
# Skip, if it's an admin/moderator only avatar
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)) {
$selecthtml .= qq~<option value="noavatar" selected>noavatar</option>\n~;
$currentface = "$cleanavatar";
}
else {
$selecthtml .= qq~<option value="$cleanavatar">$cleanavatar</option>\n~;
}
} # end foreach
$avatarhtml = qq~
<script language="javascript">
function showimage()
{
//alert("$imagesurl/avatars/"+document.creator.useravatar.options[document.creator.useravatar.selectedIndex].value+".gif");
document.images.useravatars.src="$imagesurl/avatars/"+document.creator.useravatar.options[document.creator.useravatar.selectedIndex].value+".gif";
}
</script>
<tr>
<td bgcolor=$miscbackone valign=top><font face="$font" color=$fontcolormisc><b>个性图片：</b><br>您可以选择一个个性图片，当你发表时将显示在您的名字下方。<BR>如果你填写了下面的自定义头像部分，那么你的头像以自定义的为准。否则，请你留空自定义头像的所有栏目！<BR>
<br><br><b>关于自定义头像</b>：<br>你也可以在这里给出你自定义头像的 URL 地址，头像的高度和宽度(像素)。 如果不想要自定义头像，请将相应栏目栏目全部留空！<BR><BR>
<br><b>如果你不想要任何的头像，那么请首先在菜单上选“不要头像”，然后留空所有自定义头像的部分！</b><BR><br>
<td bgcolor=$miscbackone valign=top>总头像个数： $totleavator 个<BR>
<select name="useravatar" size=1 onChange="showimage()">
$selecthtml
</select>
<img src="$imagesurl/avatars/$currentface.gif" name="useravatars" width="32" height="32" border=0 hspace=15><br><br><br>
<br>图像位置： <input type="text" name="newpersonalavatar" size="26" value="$personalavatar"> 输入完整的 URL 路径。<br>
<br>图像宽度： <input type="text" name="newpersonalwidth" size="2" maxlength=2 value="$personalwidth"> 必须是 20 -- $maxposticonwidth 之间的一个整数。<br>
<br>图像高度： <input type="text" name="newpersonalheight" size="2" maxlength=2 value="$personalheight"> 必须是 20 -- $maxposticonheight 之间的一个整数。<br></td>
</td>
</tr>
~;
} # end avatar if
$signature =~ s/\[br\]/\n/isg;
$signature =~ s/</</g;
$signature =~ s/>/>/g;
$signature =~ s/\&/\&/isg;
$signature =~ s/"\;/\"/g;
$interests =~ s/\<br>/\n/isg;
$output .= qq~
<tr>
<td bgcolor=$miscbacktwo valign=middle colspan=2 align=center>
<form action="$thisprog" method=post name="creator">
<input type=hidden name="action" value="process">
<input type=hidden name="oldpassword" value="$inpassword">
<font face="$font" color=$fontcolormisc><b>修改 <font color=$fonthighlight>$inmembername</b></font> 的个人资料</td></tr>
$newpasswordaddon
<tr>
<td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc><b>邮件地址：</b><br>请输入有效的邮件地址，这将保证您在论坛中的私人资料。$newpassneeded</td>
<td bgcolor=$miscbackone><input type=text name="newemailaddress" value="$emailaddress"></td>
</tr><tr>
<td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc><b>显示邮件地址</b><br>
您是否希望在您发表文章之后显示您的邮件？</td>
<td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc><input name=\"newshowemail\" type=\"radio\" value=\"yes\" checked> 是  \; <input name=\"newshowemail\" type=\"radio\" value=\"no\"> 否</font></td>
</tr><tr>
<td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc><b>主页地址：</b><br>如果您有主页，请输入主页地址。此项可选</td>
<td bgcolor=$miscbackone><input type=text name="newhomepage" value="$homepage"></td>
</tr><tr>
<td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc><b>OICQ 号：</b><br>如果您有 OICQ，请输入号码。此项可选</td>
<td bgcolor=$miscbackone><input type=text name="newaolname" value="$aolname"></td>
</tr><tr>
<td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc><b>ICQ 号：</b><br>如果您有 ICQ，请输入号码。此项可选</td>
<td bgcolor=$miscbackone><input type=text name="newicqnumber" value="$icqnumber"></td>
</tr><tr>
<td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc><b>来自：</b><br>请输入您所在的地方。此项可选</td>
<td bgcolor=$miscbackone><input type=text name="newlocation" value="$location" maxlength="14"> 不能超过14个字符（7个汉字）</td>
</tr><tr>
~;
$timedifference = 0 if ($timedifference eq '');
$tempoutput = "<select name=\"timedifference\"><option value=\"-23\">- 23<option value=\"-22\">- 22<option value=\"-21\">- 21<option value=\"-20\">- 20<option value=\"-19\">- 19<option value=\"-18\">- 18<option value=\"-17\">- 17<option value=\"-16\">- 16<option value=\"-15\">- 15<option value=\"-14\">- 14<option value=\"-13\">- 13<option value=\"-12\">- 12<option value=\"-11\">- 11<option value=\"-10\">- 10<option value=\"-9\">- 9<option value=\"-8\">- 8<option value=\"-7\">- 7<option value=\"-6\">- 6<option value=\"-5\">- 5<option value=\"-4\">- 4<option value=\"-3\">- 3<option value=\"-2\">- 2<option value=\"-1\">- 1<option value=\"0\">0<option value=\"1\">+ 1<option value=\"2\">+ 2<option value=\"3\">+ 3<option value=\"4\">+ 4<option value=\"5\">+ 5<option value=\"6\">+ 6<option value=\"7\">+ 7<option value=\"8\">+ 8<option value=\"9\">+ 9<option value=\"10\">+ 10<option value=\"11\">+ 11<option value=\"12\">+ 12<option value=\"13\">+ 13<option value=\"14\">+ 14<option value=\"15\">+ 15<option value=\"16\">+ 16<option value=\"17\">+ 17<option value=\"18\">+ 18<option value=\"19\">+ 19<option value=\"20\">+ 20<option value=\"21\">+ 21<option value=\"22\">+ 22<option value=\"23\">+ 23</select>";
$tempoutput =~ s/value=\"$timedifference\"/value=\"$timedifference\" selected/;
$output .= qq~
<td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc><b>时差：</b><br>
服务器所在时区：$basetimes<br>如果您所在的位置和服务器有时差，请输入。<br>以后您看到所有的时间将按照您所在的地区时间显示。</td>
<td bgcolor=$miscbackone>$tempoutput</td>
</tr><tr>
<td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc><b>签名：</b><br>请输入您的签名，不能超过 5 行。
<br><br>不能使用 HTML 标签<br>可以使用 <a href="javascript:openScript('misc.cgi?action=ikoncode',300,350)">ib2000 标签</a><BR>
<li>贴图标签: <b>$signpicstates</b><li>音乐标签: <b>$signsoundstates</b><li>文字大小: <b>$signfontsizestates</b>
</td>
<td bgcolor=$miscbackone><textarea name="newsignature" cols="60" rows="5">$signature</textarea></td>
</tr>
$avatarhtml
<tr>
<td colspan=2 bgcolor=$miscbacktwo align=center><input type=submit value="提 交" name=submit></td>
<input type=hidden name="membername" value="$inmembername"></form></tr></table></td></tr></table>
~;
# <td bgcolor=$miscbackone><font face="$font" color=$fontcolormisc><b>简介：</b><br>您可以输入您的个人简介。此项可选</td>
# <td bgcolor=$miscbackone><textarea name="newinterests" cols="40" rows="5">$interests</textarea></td>
# </tr><tr>
} # end modify routine
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -