|
リーグ状況の2位チームのアイコンを表示する様に改造します。
gekipawa.cgiの(254行目〜)
##### トップページ
sub top{
open(US,"$leaguefold/$userfile") || &error('指定されたファイルが開けません。');
eval 'flock(US,1);';
seek(US,0,0); @users = <US>; close(US);
eval 'flock(US,8);';
@icon_pri = ();
for($i=0; $i<3; $i++){
($saku[$i], $pass[$i], $home[$i], $team[$i], $icon[$i], $date[$i], $ip[$i], $teamdata[$i]) = split(/<p>/, $users[$i]);
($lastjun[$i], $win[$i], $wincon[$i], $winmax[$i], $lose[$i]) = split(/<>/, $teamdata[$i]);
if($home[$i]){ $saku[$i] = "<a href=\"$home[$i]\" target=\"_blank\">$saku[$i]</a>"; }
}
if($icon_use) { $icon_pri[0] = "<img src=\"$imgurl/$icon[0]\"></td><td><font size=5 color=\"FF0000\"><b>$team[0]</b></font><br>"; }
else { $icon_pri[0] = "<font size=5 color=\"FF0000\"><b>$team[0]</b></font>"; }
$sinki = '';
if($#users+1 < $team_max){
$sinki = " <input type=submit name=sinki_make value=\"新 規\">";
}
を下記の様に変更します。(赤字部分)
##### トップページ
sub top{
open(US,"$leaguefold/$userfile") || &error('指定されたファイルが開けません。');
eval 'flock(US,1);';
seek(US,0,0); @users = <US>; close(US);
eval 'flock(US,8);';
@icon_pri = ();
for($i=0; $i<3; $i++){
($saku[$i], $pass[$i], $home[$i], $team[$i], $icon[$i], $date[$i], $ip[$i], $teamdata[$i]) = split(/<p>/, $users[$i]);
($lastjun[$i], $win[$i], $wincon[$i], $winmax[$i], $lose[$i]) = split(/<>/, $teamdata[$i]);
if($home[$i]){ $saku[$i] = "<a href=\"$home[$i]\" target=\"_blank\">$saku[$i]</a>"; }
}
#if($icon_use) { $icon_pri[0] = "<img src=\"$imgurl/$icon[0]\"></td><td><font
size=5 color=\"FF0000\"><b>$team[0]</b></font><br>";
}
#else { $icon_pri[0] = "<font size=5 color=\"FF0000\"><b>$team[0]</b></font>"; }
if($icon_use) { $icon_pri[0] = "<img src=\"$imgurl/$icon[0]\"></td><td><font
size=5 color=\"FF0000\"><b>$team[0]</b></font><br>";
$icon_pri[2] = "<img src=\"$imgurl/$icon[1]\"></td><td><font
size=4><b>$team[1]</b></font><br>";}
else { $icon_pri[0] = "<font size=5 color=\"FF0000\"><b>$team[0]</b></font>";
$icon_pri[2] = "<font size=4><b>$team[1]</b></font>"; }
$sinki = '';
if($#users+1 < $team_max){
$sinki = " <input type=submit name=sinki_make value=\"新 規\">";
}
そして、(359行目〜)
<table width=$ysize cellpadding=10>
<tr align=center>
<td width=75%>
<font size=5 color="008000"><b>− リーグ状況 −</b></font><br>
<table border=1 width="100%" cellspacing=0 cellpadding=5>
<tr align=center>
<td><font color="#FF0000" size=5><b>首位</b></font></td>
<td>
<table border=0 width=70%>
<tr align=center>
<td>$icon_pri[0]
<font size=4>($saku[0])<br>$win[0]勝$lose[0]敗</font>
</td></tr>
</table>
</td></tr>
<tr align=center>
<td><font size=4><b>2位</b></font></td>
<td><font size=4><b>$team[1]</b></font>($saku[1])<br>$win[1]勝$lose[1]敗</font>
</td></tr>
<tr align=center>
<td><b>3位</b></td>
<td><b>$team[2]</b>($saku[2])<br>$win[2]勝$lose[2]敗</font>
</td></tr>
</table>
</td>
<td width=30%>
を下記の様に変更します。(赤字部分)
※記述に誤りがありましたので修正しました。青字部分を追加しました。(2005/07/06)
<table width=$ysize cellpadding=10>
<tr align=center>
<td width=75%>
<font size=5 color="008000"><b>− リーグ状況 −</b></font><br>
<table border=1 width="100%" cellspacing=0 cellpadding=5>
<tr align=center>
<td><font color="#FF0000" size=5><b>首位</b></font></td>
<td>
<table border=0 width=70%>
<tr align=center>
<td>$icon_pri[0]
<font size=4>($saku[0])<br>$win[0]勝$lose[0]敗</font>
</td></tr>
</table>
</td></tr>
<tr align=center>
<td><font size=4><b>2位</b></font></td>
<td>
<table border=0 width=70%>
<tr align=center>
<td>$icon_pri[2]
<font size=4>($saku[1])<br>$win[1]勝$lose[1]敗</font>
</td></tr>
</table>
</td></tr>
<tr align=center>
<td><b>3位</b></td>
<td><b>$team[2]</b>($saku[2])<br>$win[2]勝$lose[2]敗</font>
</td></tr>
</table>
</td>
<td width=30%>
これを応用すれば、3位チーム(順位を増やしていれば、それ以下)もアイコン表示が出来ますね。
ただし、あまり多くの順位まで表示するとその分サーバーに負荷が掛かります。また、表示速度が遅くなります。
【注意】$icon_pri[1]は、チャンピオンチームの表示に使われています。
【修正 2005/07/06】記述に誤りがありましたので、修正しました。
<td>の記述が抜けていましたので、表示が壊れた事でしょう……^^;
ごめんなさい……m(_ _)m
|