📄 topic.cgi
字号:
$membergraphic = "<img src=$imagesurl/images/$admingraphic width=100 border=0>" if ($admingraphic ne "");
$mtitle = $adtitle if ($adtitle ne "");
if (($membertitle eq "Member")||($membertitle eq "member")) { $membertitle = "论坛坛主"; }
}
elsif ($membercode eq "mo") {
$posterfontcolor = "$teamnamecolor";
$glowing = $teamglow;
$membernameimg = "<img src=$imagesurl/images/teammo.gif alt=\"此人为版主$novisitdate\" width=16 align=absmiddle>";
$membergraphic = "<img src=$imagesurl/images/$modgraphic width=100 border=0>" if ($modgraphic ne "");
$mtitle = $motitle if ($motitle ne "");
if (($membertitle eq "Member")||($membertitle eq "member")) { $membertitle = "论坛版主"; }
}
elsif ($membercode eq "cmo") {
$posterfontcolor = "$cmonamecolor";
$glowing = $cmoglow;
$membernameimg = "<img src=$imagesurl/images/teamcmo.gif alt=\"此人为分类区版主$novisitdate\" width=16 align=absmiddle>";
$membergraphic = "<img src=$imagesurl/images/$cmodgraphic width=100 border=0>" if ($cmodgraphic ne "");
$mtitle = $cmotitle if ($cmotitle ne "");
if (($membertitle eq "Member")||($membertitle eq "member")) { $membertitle = "分类区版主"; }
}
elsif ($membercode eq "smo") {
$posterfontcolor = "$smonamecolor";
$glowing = $smoglow;
$membernameimg = "<img src=$imagesurl/images/teamsmo.gif alt=\"此人为总版主$novisitdate\" width=16 align=absmiddle>";
$membergraphic = "<img src=$imagesurl/images/$smodgraphic width=100 border=0>" if ($smodgraphic ne "");
$mtitle = $smotitle if ($smotitle ne "");
if (($membertitle eq "Member")||($membertitle eq "member")) { $membertitle = "总版主"; }
}
elsif ($membercode eq "rz") {
$posterfontcolor = "$rznamecolor";
$glowing = $rzglow;
$membernameimg = "<img src=$imagesurl/images/teamrz.gif alt=此人为认证用户 width=16 align=absmiddle>";
}
elsif ($membercode eq "banned") {
$posterfontcolor = "$posternamecolor";
$glowing = $banglow;
$membergraphic = "";
$jhmp= "";
$membertitle = "<b>已被禁止发言</b>";
$membernameimg ="";
}
elsif ($membercode eq "masked") {
$posterfontcolor = "$posternamecolor";
$glowing = $banglow;
$jhmp= "";
$membergraphic = "";
$membertitle = "<b>发言已被屏蔽</b>";
$membernameimg ="";
}
else { $posterfontcolor = "$posternamecolor"; $membernameimg =""; $glowing = $memglow; }
}
else { $posterfontcolor = "$posternamecolor"; $membernameimg =""; $glowing = $memglow; }
if ((($mymembercode eq "ad")||($mymembercode eq "mo")||($mymembercode eq "cmo")||($mymembercode eq 'smo')||($myinmembmod eq "yes"))&&($membercode ne "ad")&&($membercode ne "smo")&&($membercode ne "cmo")&&($membercode ne "mo")) { $rateuser = qq~ <a href="userrating.cgi?membername=$memberfilename&oldforum=$inforum&oldtopic=$intopic&oldpostno=$editpostnumber" title=给此用户投票><img src=$imagesurl/images/poll1.gif border=0 width=16 align=absmiddle>投票</a>~; }
else { $rateuser=""; }
if ($membertitle eq "member" || $membertitle eq "Member" || $membertitle eq "") { $membertitle=""; }
else {$membertitle="头衔: $membertitle" if (($membercode ne "banned")&&($membercode ne "masked"));}
$membertitle=" " if ($membertitle eq "");
$membertitle =~ s/</</g; $membertitle =~ s/>/>/g; $membertitle =~ s/"/"/g;
$post =~ s/(^|\>)\[这个(.+?)最后由(.+?)编辑\]/$1\<font color=$posternamecolor>\[这个$2最后由$3编辑\]\<\/font\>/isg;
$location = "保密" if ($location eq "");
# if ($addme eq "") { $addmeshow =""; } else { $addmeshow=$addme; $addme=""; }
$posticon =~ s/[\a\f\n\e\0\r]//isg;
if ($posticon ne "") {
if ($posticon =~/<br>/i){
$showsignature="yes25" if($showsignature eq "yes");
if ($showsignature =~/^yes[0-9]+$/) { $polltype = "checkbox"; } else { $polltype = "radio"; }
$posticon=~s/<br><br>/<BR>/isg;
$posticon=~s/<br>/\t/ig;
my @temppoll = split(/\t/, $posticon);
if ($#temppoll >= 1) {
$maxpolllength = 0;
($poll[1], $poll[2], $poll[3], $poll[4], $poll[5],$poll[6],$poll[7],$poll[8],$poll[9],$poll[10],$poll[11],$poll[12],$poll[13],$poll[14],$poll[15],$poll[16],$poll[17],$poll[18],$poll[19],$poll[20],$poll[21],$poll[22],$poll[23],$poll[24],$poll[25]) = split(/\t/, $posticon);
$j=0;
$pollinput ="";
for ($i=1;$i<=25;$i++){
if ($poll[$i] ne "") {
$j++;
$pollinput .= qq~<input type="$polltype" name="myChoice" value='$i'> $poll[$i]<br>~;
$maxpolllength = length($poll[$i]) if (length($poll[$i]) > $maxpolllength);
}
}
$maxpolllength = $maxpolllength*7+10;
$maxpolllength = 150 if ($maxpolllength < 150);
$maxpolllength = 510 if ($maxpolllength > 510);
if ($showsignature =~/^yes[0-9]+$/) { $showsignature=~s/^yes//; $maxcanpoll=qq~最多可投 $showsignature 项<br>~; }
$pollform =qq~<script>
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>
<form action="poll.cgi" method=post onSubmit="submitonce(this)">
<input type=hidden name=action value="poll"><input type=hidden name=forum value="$inforum"><input type=hidden name=threadname value="$intopic">
<table cellpadding=1 cellspacing=0 width=$maxpolllength bgcolor=$tablebordercolor><tr><td nowrap><table width=100% cellpadding=4 cellspacing=0 bgcolor="$postbackcolor">
<tr><td nowrap>$pollinput<tr><td align=center nowrap><HR size=1 width=85%>$maxcanpoll<input type=submit name=results value='参加投票'>
</td></form></tr></table></td></tr></table>~;
$showpoll = "";
$pollnull = "";
if (($mymembercode eq "ad")||($mymembercode eq 'smo')||($myinmembmod eq "yes")) { $adminview = 1; $maxpolllength = 550; $adminviewcolspan = 3; }
else { $adminview = 0; $maxpolllength = 510; $adminviewcolspan = 2; }
$poll =qq~ <table width=$maxpolllength>~;
$filetomake = "$lbdir" . "forum$inforum/$intopic.poll.cgi";
# &winlock($filetomake) if ($OS_USED eq "Nt");
if (open(FILE, "$filetomake")) {
flock(FILE, 1) if ($OS_USED eq "Unix");
@allpoll = <FILE>;
close(FILE);
$size=@allpoll;
# &winunlock($filetomake) if ($OS_USED eq "Nt");
}
else {
# &winunlock($filetomake) if ($OS_USED eq "Nt");
$size=0; @allpoll=();
}
if ($size > 0) {
$size= 0;
@thispoll=('0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0','0');
@pollname=('','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','','');
foreach (@allpoll){
$_=~s/[\a\f\n\e\0\r]//isg;
next if ($_ eq "");
my ($tmpinmembername,$tmpmyChoice)=split(/\t/, $_);
$tmpinmembername =~ s/^＊！＃＆＊//isg;
for ($i=1;$i<=$j;$i++) {
if ($i == $tmpmyChoice) {
$thispoll[$i]++;
if ($thispoll[$i] >= $TheHigest) { $TheHigest=$thispoll[$i]; }
$pollname[$i] = "$pollname[$i]$tmpinmembername\t";
$size ++;
}
}
$showpoll="true" if ($tmpinmembername eq $inmembername);
}
undef @allpoll;
}
if ($size > 0) {
if (($showsignature eq 'yes')||($showsignature =~/[0-9]+$/)) { $poll .= qq~ <tr><td colspan=$adminviewcolspan><HR size=1 width=100%></td></tr><tr><td colspan=$adminviewcolspan>目前总共有 <font color=$fonthighlight><B>$size</B></font> 张投票，结果如下：<HR size=1 width=100%><BR></td></tr>~; }
else { $poll .= qq~ <tr><td colspan=$adminviewcolspan><HR size=1 width=100%></td></tr><tr><td colspan=$adminviewcolspan>目前共有 <font color=$fonthighlight><B>$size</B></font> 人参加投票，结果如下：<HR size=1 width=100%><BR></td></tr>~; }
for ($i=1;$i<=$j;$i++) {
if ($poll[$i] ne ""){
my $mypoll=int(($thispoll[$i]/$size)*1000)/10;
my $width=int(($mypoll/100)*160);
if ($adminview == 1) {
undef @pollmanname;
$adminviewpoll = qq~</td><td nowarp><select><option>投票人名单 </option><option>----------</option>~;
@pollmanname = split(/\t/, $pollname[$i]);
$pollmanname = @pollmanname;
foreach (@pollmanname) {
$adminviewpoll .= qq~<option value="$_">$_ </option>~;
}
$adminviewpoll .= qq~</select>~;
$adminviewpoll = "</td><td nowarp>[没有人投票]" if ($pollmanname eq 0);
}
else { $adminviewpoll=""; }
$ii = $i;
$ii = $ii - 40 if ($ii > 40);
$ii = $ii - 30 if ($ii > 30);
$ii = $ii - 20 if ($ii > 20);
$ii = $ii - 10 if ($ii > 10);
if ($thispoll[$i] >= $TheHigest) {$XA =qq~<font color=$fonthighlight><b><u>~;$XB =qq~</u></b></font>~;}else{$XA=$XB="";}
$poll.=qq~<tr><td nowarp>$XA$poll[$i]$XB </td><td nowarp> <img src=$imagesurl/images/bar$ii.gif width=$width height=10> <b>$thispoll[$i]</b> 票数 $mypoll% $adminviewpoll</td></tr>\n~;
}
}
}
else {
$poll .= qq~ <tr><td colspan=2><HR size=1 width=100%></td></tr><tr><td colspan=2>没有人参加此投票，选项列表如下：<HR size=1 width=100%><BR></td></tr>~;
for ($i=1;$i<=$j;$i++) { $poll .= qq~<tr><td colspan=2>$poll[$i] </td></tr>~; }
$pollnull = "true";
}
$poll .= "</td></tr><tr><td colspan=$adminviewcolspan><HR size=1 width=100%></td></tr></table>";
if (($threadstate eq "pollclosed")||($showpoll eq "true")||($inmembername eq "客人")) {
my $poll1 = "<font color=$fonthighlight>客人不能投票，请注册！</font>" if ($inmembername eq "客人");
$poll1 = "<font color=$fonthighlight>谢谢，你已经投过票了！</font>" if ($showpoll eq "true");
$poll1 = "<font color=$fonthighlight>对不起，此投票已经关闭！</font>" if ($threadstate eq "pollclosed");
$poll = "<br><br><font color=$fonthighlight>对不起，你必需先投票才可看结果！</font><br>" if (($PollHidden eq "yes")&&($inmembername eq "客人"));
$poll = "$poll$poll1";
}
else {
if ($pollnull eq "true") { $poll = "$pollform<BR><font color=$fonthighlight>目前暂时没有人投票！</font>"; }
else {
$poll = "<br><font color=$fonthighlight>对不起，你必需先投票才可看结果！</font>" if (($PollHidden eq "yes")&&($cpudisp != 1)&&($membername ne $inmembername));
$poll = "$pollform$poll";
}
}
if (($mymembercode eq "ad")||($mymembercode eq 'smo')||($myinmembmod eq "yes")||(($usereditpost ne "no")&&(lc($inmembername) eq lc($membername)))) { $editgraphic = qq~<a href=editpoll.cgi?action=edit&forum=$inforum&topic=$intopic title=编辑这个投票><img src=$imagesurl/images/edit.gif border=0 width=16 height=15 align=absmiddle>编辑</a>~ } else { $editgraphic =""; }
$delgraphic = "";
$posticon = "";
}
}
else {
if ($posticon eq "") {
$posticon = int(rand(23));
$posticon = "0$posticon" if ($posticon<10);
$posticon = "$posticon.gif";
}
$posticon = qq~<img src=$imagesurl/posticons/$posticon>~;
}
}
else {
$posticon = int(rand(23));
$posticon = "0$posticon" if ($posticon<10);
$posticon = qq~<img src=$imagesurl/posticons/$posticon.gif>~;
}
if (($dofilter eq "no")||($dofilter eq "all")) {
my $temp = &postwordfilter("$location\t$post\t$jhmp\t$membertitle\t$topictitle");
($location,$post,$jhmp,$membertitle,$topictitle) = split(/\t/,$temp);
}
if ($poll ne "") {
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -