#!/usr/bin/perl #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ #+++　　[ えすぱー君 Ver0.551] #+++ #+++ ･････>>> All Created by Tacky #+++ ･････>>> Copyright (c) 2000.2 Tacky's Room. All rights reserved.... #+++ #+++ Email >>> tacky2@ops.dti.ne.jp #+++ Homepage >>> http://tackysroom.com/ #+++ #+++ 設置方法構成(具体例) #+++ #+++ public_html（ホームページディレクトリ） #+++ | #+++ |-- cgi-bin（任意のディレクトリ） #+++ | #+++ |-- jcode.pl (755)…(日本語ライブラリ) #+++ |-- esper.cgi (755)…(スクリプト本体) #+++ |-- esper.txt (666)…(ログファイル)…空のままアップロード #+++ #+++ 　　■( )内はパーミッッションの値です。 #+++ 　　■gif以外はアスキーモード、gifはバイナリーモードでアップロードして下さい。 #+++ 　　■esper.lockは自動作成＆削除しますので、各自でご用意する必要はありません。 #+++ 　　■設置時にエラーになる方は、各ファイルの指定をフルパス(http://〜)で指定してみて下さい。 #+++ #+++ >>> Update-History... #+++ #+++ 2004.02.27(Ver0.551) >> 不具合対応 #+++ 2004.02.08(Ver0.55) >> セキュリティ強化 #+++ 2000.07.12 >> ﾌｧｲﾙﾛｯｸが解除されない場合がある不具合修正 #++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ require './jcode.pl'; #日本語コード変換 $url = "http://www.goodman.co.jp/disco/top.htm"; #<<<戻り先のURL $url_target = "middle"; #戻り先のURLを表示する際のターゲット $script = "./esper.cgi"; #<<<このスクリプトの名前 $logfile = "./esper.txt"; #<<<勝敗情報ログファイル名 $lockfile = './esper.lock'; #<<<ロックファイルの名前を指定 $title = "○を当てろ！えすぱー君"; #<<<タイトルを指定 $titlelogo = "http://www.goodman.co.jp/disco/img/game1.gif"; #<<<上段部にタイトルロゴを指定する場合、フルパスで指定。指定しない場合は「""」 $bgcolor = "#ffffff"; #<<<背景色 $backpicture = "http://www.goodman.co.jp/disco/img/brick3.gif"; #<<<背景に画像を表示する場合、フルパスで指定。 $textcolor = "#000000"; #<<<メッセージ表示部分のテキスト文字色 $linkcolor = "#cc6600"; # リンク色（未読リンク） $vlinkcolor = "#666666"; # リンク色（既読リンク） $alinkcolor = "#ff3300"; # リンク色（押した時） $tbgcolor = '#ffcc00' ; #<<<入力フォームの背景色 $card_gif[0] = './esper_ura.gif'; #<<<カードの裏 $card_gif[1] = './esper_ok.gif'; #<<<当たりカード $card_gif[2] = './esper_ng.gif'; #<<<はずれカード $size_w = 90 ; #<<<カードの横幅 $size_h = 120 ; #<<<カードの縦幅 $taku = 5 ; #<<<何択（何枚のカードを当てるか）にしますか？最大７択です。 $point[0] = 10; #<<<１回目で当たった場合のポイント $point[1] = 8; #<<<２回目で当たった場合のポイント $point[2] = 6; #<<<３回目で当たった場合のポイント $point[3] = 3; #<<<４回目で当たった場合のポイント $point[4] = 0; #<<<５回目で当たった場合のポイント $point[5] = 0; #<<<６回目で当たった場合のポイント $point[6] = 0; #<<<７回目で当たった場合のポイント $submit = "これだ!" ; #<<<入力フォームの「送信」ボタンに表示される文字 $pt = '12pt'; #<<<全体のフォントサイズ（pt指定以外何があるのか、僕知らない。(^^ゞ） $cellheadbgcolor = '#ffcc00'; #<<<エスパー度画面の見出し背景色 $cellheadtxcolor = '#333333'; #<<<エスパー度画面の見出し文字色 $cellbgcolor1 = '#ffffff'; #<<<エスパー度画面のセル背景色１ $celltxcolor1 = '#666666'; #<<<エスパー度画面のセル文字色 $cellbgcolor2 = '#ffffcc'; #<<<エスパー度画面のセル背景色２（上記１と交互に表示されます） $celltxcolor2 = '#666666'; #<<<エスパー度画面のセル文字色 $datamax = 100 ; #<<<最大データ保存件数 $pagemax = 20 ; #<<<１ページ内に表示する件数 #◆◆◆↓セキュリティ◆◆◆ $postchk = 1; #投稿時・メンテナンス時のMethodをPOST限定にする場合は１。以外は０。 $urlchk = ''; #ここで指定されたアドレス(CGIの設置アドレスを記入)以外から投稿があった場合をエラーとします。設定しない場合は'' #◆◆◆↑セキュリティ◆◆◆ #<<<　ここから下はいじらない方が身のためです。(^_^; ############################################################################### #### Main Process START ##################################################### ############################################################################### ###<--- システム日時・時刻取得 ------------------------------------ $ENV{'TZ'} = "JST-9"; ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime(time); $year = sprintf("%02d",$year + 1900); $month = sprintf("%02d",$mon + 1); $mday = sprintf("%02d",$mday); $hour = sprintf("%02d",$hour); $min = sprintf("%02d",$min); $today = "$year$month$mday $hour:$min"; #<<<フォームデコード＆変数代入 &decode ; &header ; #<<\n\n"; print "$title\n"; #<<>> print "\n"; #<<>> print "\n"; if ($backpicture) { $set = "background=\"$backpicture\""; if ( $bgcolor ) { $set .= " bgcolor=\"$bgcolor\"" ; } } elsif ($bgcolor ) { $set = "bgcolor=\"$bgcolor\""; } print "\n"; print "[HOME]\n"; print "[みんなのエスパー度]\n" if ( $FORM{'action'} ne 'disp' ); print "
"; if ( $titlelogo ) { print "
\n"; } else { print "$title\n"; } } ###<-------------------------------------------------------------- ###<--- HTMLフッダー書き出し ###<-------------------------------------------------------------- sub footer { #<<<　↓消さないでネ♪ print "

\n"; print "えすぱー君 Ver0.551 Created by Tacky's Room

\n"; print "\n"; } ###<-------------------------------------------------------------- ###<--- 入力フォーム ###<-------------------------------------------------------------- sub Inputform { print "
"; print "
\n"; print "\n"; print "\n"; $sw = 0 ; for ( 0..$taku - 1 ) { print "\n"; } print "\n"; $FORM{'cnt'}++ if ( $sw != 1 ) ; if ( $_[0] != 1 && $sw != 1) { print "\n"; for ( 0..$taku - 1 ) { print ""; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print ""; } print "\n"; } print "
\n"; if ( $_[0] != 3 || $FORM{'no'} ne $_ ) { print ""; } else { if ( $_ == $FORM{'no'} && $_ == $FORM{'pinpon'} ) { print ""; $sw = 1 ; } else { print ""; $sw = 2 if ( $sw != 1 ); } } print "
\n"; print "

$FORM{'cnt'}回目で当たり!!!

\n" if ( $sw == 1 ) ; print "

はずれ!!

\n" if ( $sw == 2 ) ; print "
\n"; print "
\n"; print "\n"; print "\n"; print "
\n"; print "\n"; print "\n"; print "
name
"; print "
\n"; print "\n"; print "
\n"; print "


\n"; print "
    \n"; print "
  • $taku枚の中に１枚だけ「○」が付いたカードを当てるゲームです。
    • \n"; print "
  • お名前を入力し、「START/RESTART」ボタンを押下するとゲーム開始です。
    • \n"; print "
  • ゲームの途中でも再度「START/RESTART」ボタンを押下する事で再挑戦可能\です。
    • \n"; print "
\n"; print "\n"; } ###<-------------------------------------------------------------- ###<--- エスパー度の表示 ###<-------------------------------------------------------------- sub view { print "
\n"; print "
みなさんのエスパー度です！
各回数は「何回目に当たりカードを引いたか」を表\しています。\n"; print "
ポイントは、"; print "1回目:$point[0]点"; print "、2回目:$point[1]点" if ( $taku > 1 ) ; print "、3回目:$point[2]点" if ( $taku > 2 ) ; print "、4回目:$point[3]点" if ( $taku > 3 ) ; print "、5回目:$point[4]点" if ( $taku > 4 ) ; print "、6回目:$point[5]点" if ( $taku > 5 ) ; print "、7回目:$point[6]点" if ( $taku > 6 ) ; print "でポイントされています。
\n"; print "※エスパー度（挑戦回数に対する全ポイントの割合）が高い順番に表\示されています。

\n"; print "エスパー君に戻る

\n"; print "
\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n"; print "\n" if ( $taku > 1 ) ; print "\n" if ( $taku > 2 ) ; print "\n" if ( $taku > 3 ) ; print "\n" if ( $taku > 4 ) ; print "\n" if ( $taku > 5 ) ; print "\n" if ( $taku > 6 ) ; print "\n"; if ( !(open(IN,"$logfile"))) { &error("ログファイル($logfile)のオープンに失敗しました"); } @LOG = ; close(IN); @LOG = sort @LOG ; @LOG = reverse @LOG ; #u000307 #表示対象ページの先頭データ件数を算出 $dm = @LOG; if ( $dm % $pagemax == 0) { $p = $dm / $pagemax ; } else { $p = $dm / $pagemax + 1; } $p = sprintf("%3d",$p); if ( $FORM{'page'} eq "NEXT" ) { if ( $FORM{'disppage'} == 0 ) { $FORM{'disppage'} = 1 } ; $d = ($FORM{'disppage'} + 1) * $pagemax - $pagemax ; $FORM{'disppage'} = $FORM{'disppage'} + 1 ; } elsif ( $FORM{'page'} eq "BACK" ) { $d = ($FORM{'disppage'} - 1) * $pagemax - $pagemax ; $FORM{'disppage'} = $FORM{'disppage'} - 1 ; } else { $d = 0 ; $FORM{'disppage'} = 1 ; } $z = 1 ; for ( $i = $d ; ( $z <= $pagemax ) && ( $i < $dm ); $i++ ) { ($esp,$dt,$name,$cnt1,$cnt2,$cnt3,$cnt4,$cnt5,$cnt6,$cnt7,$dmy) = split(/,/,$LOG[$i]) ; $w = index($esp,"_") ; $atk = substr($esp,$w + 1,5) ; $esp = substr($esp,0,$w) ; #i000228 ($svdate,$svtime) = split(/ /,$dt); $edt = substr($svdate,4,2); $edt = sprintf("%02d",$edt)."月"; $edt2 = substr($svdate,6,2); $edt = $edt.sprintf("%02d",$edt2)."日"; if ( $bg eq $cellbgcolor1 ) { $bg = $cellbgcolor2; $tx = $celltxcolor2 ; } else { $bg = $cellbgcolor1; $tx = $celltxcolor1 ; } if ( $cm eq '' ) { $cm = ' '; } print "\n"; print "\n"; print "\n"; print "\n" ; print "\n" if ( $taku > 1 ) ; print "\n" if ( $taku > 2 ) ; print "\n" if ( $taku > 3 ) ; print "\n" if ( $taku > 4 ) ; print "\n" if ( $taku > 5 ) ; print "\n" if ( $taku > 6 ) ; print "\n"; $z++; } print "
Name挑戦回数エスパー度１回目２回目３回目４回目５回目６回目７回目最新挑戦時刻
$name$atk回$esp%$cnt1回$cnt2回$cnt3回$cnt4回$cnt5回$cnt6回$cnt7回\n"; print "$edt $svtime


\n"; print "
\n"; print "\n"; print "\n"; if ( $FORM{'disppage'} != 0 && $FORM{'disppage'} !=1) { print "\n"; } if ( $FORM{'disppage'} + 1 <= $p ) { print "\n"; } print "
\n"; } ###<-------------------------------------------------------------- ###<--- ログ出力 ###<-------------------------------------------------------------- sub regist { &filelock ; #ファイルロック if ( !(open(IN,"$logfile"))) { &fileunlock ; &error("ログファイル($logfile)のオープンに失敗しました"); } @LOG = ; close(IN); $dcnt = @LOG; if ($dcnt > $datamax) { pop(@LOG); } $found = 0; foreach ( @LOG ) { ($esp,$dt,$name,$cnt1,$cnt2,$cnt3,$cnt4,$cnt5,$cnt6,$cnt7,$dmy) = split(/,/,$_) ; if ( $FORM{'name'} eq $name ) { if ( $FORM{'cnt'} == 1 ) { $cnt1++ ; } if ( $FORM{'cnt'} == 2 ) { $cnt2++ ; } if ( $FORM{'cnt'} == 3 ) { $cnt3++ ; } if ( $FORM{'cnt'} == 4 ) { $cnt4++ ; } if ( $FORM{'cnt'} == 5 ) { $cnt5++ ; } if ( $FORM{'cnt'} == 6 ) { $cnt6++ ; } if ( $FORM{'cnt'} == 7 ) { $cnt7++ ; } $s1 = ($cnt1*$point[0]) + ($cnt2*$point[1]) + ($cnt3*$point[2]) + ($cnt4*$point[3]) + ($cnt5*$point[4]) + ($cnt6*$point[5]) + ($cnt7*$point[6]) ; $s2 = $point[0] * ($cnt1 + $cnt2 + $cnt3 + $cnt4 + $cnt5 + $cnt6 + $cnt7) ; #１回目で当たったポイント×挑戦回数 $r = sprintf("%3.2f",substr(( $s1 / $s2 ) * 100,0,5)) ; #u000307 if ( $r < 100 ) { $r = 0 . $r ; } #i000307 if ( $r < 10 ) { $r = 0 . $r ; } #i000307 $s = sprintf("%05d",$cnt1 + $cnt2 + $cnt3 + $cnt4 + $cnt5 + $cnt6 + $cnt7) ; #i000228 push(@new,$r . "_$s,$today,$name,$cnt1,$cnt2,$cnt3,$cnt4,$cnt5,$cnt6,$cnt7,$dmy") ; #u000228 $found = 1 ; } else { push(@new,$_) ; } } if ( $found == 0 ) { if ( $FORM{'cnt'} == 1 ) { $c1 = 1 ; } if ( $FORM{'cnt'} == 2 ) { $c2 = 1 ; } if ( $FORM{'cnt'} == 3 ) { $c3 = 1 ; } if ( $FORM{'cnt'} == 4 ) { $c4 = 1 ; } if ( $FORM{'cnt'} == 5 ) { $c5 = 1 ; } if ( $FORM{'cnt'} == 6 ) { $c6 = 1 ; } if ( $FORM{'cnt'} == 7 ) { $c7 = 1 ; } $s1 = ($c1*$point[0]) + ($c2*$point[1]) + ($c3*$point[2]) + ($c4*$point[3]) + ($c5*$point[4]) + ($c6*$point[5]) + ($c7*$point[6]) ; $s2 = $point[0] ; #１回目で当たったポイント $r = sprintf("%03.2f",substr(( $s1 / $s2 ) * 100,0,5)) ; #u000307 if ( $r < 100 ) { $r = 0 . $r ; } #i000307 if ( $r < 10 ) { $r = 0 . $r ; } #i000307 push(@new,$r . "_00001,$today,$FORM{'name'},$c1,$c2,$c3,$c4,$c5,$c6,$t7,\n") ; #u000228 } if ( !(open(OUT,">$logfile"))) { &fileunlock ; &error("ログファイル($logfile)のオープンに失敗しました"); } print OUT @new; close(OUT); &fileunlock ; #ファイルロック解除 } ###<-------------------------------------------------------------- ###<--- エラー処理 ###<-------------------------------------------------------------- sub error { print "


$_[0]"; &footer; exit; } ###<-------------------------------------------------------------- ###<--- ファイルロック設定 ###<-------------------------------------------------------------- sub filelock { foreach (1 .. 5) { if (-e $lockfile) { sleep(1); } else { open(LOCK,">$lockfile"); close(LOCK); return; } } &error("只今他の方が書き込み中です。ブラウザの「戻る」で戻って再度登録を行って下さい。"); } ###<-------------------------------------------------------------- ###<--- ファイルロック解除 ###<-------------------------------------------------------------- sub fileunlock { if (-e $lockfile) { unlink($lockfile); } }