打鍵トレーナー

#!/usr/local/bin/perl #-- ↑Perlへのパスを指定します(１行目) #============================================================================ # 打鍵トレーナーランキングCGI(2003/8/30) # # Copyright(C) 2002-2003 Mura's… # http://www1.harenet.ne.jp/~a-mura/ # # 本プログラムはフリーソフトとして配布していますが # 著作権は放棄していません。 # 著作権表示(リンクを含む)は削除しないでください。 # # サポートはホームページ上でのみ行います。 # # このソフトを使用することによるいかなる損害も作者は # 一切責任を負いません。 # #============================================================================ require './param.cgi'; require './jcode.pl'; # @niftyは下の文をコメントアウトすること。頭に # を付ける use Time::Local; #---------------------------------------------------------------------------- # 処理開始 #---------------------------------------------------------------------------- #-- 変数 # $start_sec, $end_sec, $endyear, $endmon, $endday, $correct, # $butname, $daken, $miss, $maxcount, $rankindex, $index, $homeicon # @rankpos, @rec_label, @ranking, @rec_tag #-- パラメータ取得 &getParam; #-- 遊び方表示 if($IN{'mode'} eq 'readme'){&readMe;} #-- 管理用表示 if($IN{'mode'} eq 'admin'){ if($FORM{'adpass'} eq ''){&admin;} if($FORM{'adpass'} ne $adpass){&admin('パスワードが違います');} &lock; if($FORM{'admenu'} eq 'sentence'){&adminEdit;} if($FORM{'admenu'} eq 'rankdelete'){&rankDeleteMenu;} } #-- 例文編集 if($IN{'mode'} eq 'operate'){ if($FORM{'adpass'} ne $adpass){&admin('パスワードが違います');} &lock; &composition; } #-- 登録時 if($IN{'mode'} eq 'entry'){ &lock; &message(&entrySub($rankpath)); } #-- ランキング削除 if($IN{'mode'} eq 'deleterank'){ if($FORM{'adpass'} ne $adpass){&admin('パスワードが違います');} &lock; &deleteRanking($FORM{'deleteID'}); } #-- ファイルロック &lock; #-- ボタン名設定 $butname = '登録'; if($FORM{'para0'} != 0){$butname = '登録可';} #-- 期間＆歴代データラベル読み込み &readSetup($setpath); #-- 今回の集計期間計算 &setPeriod; #-- 集計期間内外処理 &perRenewal($end_sec); #-- ランキングデータ読み込み if($IN{'mode'} eq 'record'){@ranking = &getFileData("ranking$IN{'sel'}\.cgi");} else{@ranking = &getFileData($rankpath);} #-- ファイルロック解除 &unlock; #-- 登録総数取得 $maxcount = 0; foreach(@ranking){$maxcount++;} if($maxcount > $savemax){$maxcount = $savemax;} @rankpos = ('[1～50位]','[51～100位]','[101～150位]','[151～200位]','[201～250位]','[251～300位]','[301～350位]','[351～400位]','[401～450位]','[451～500位]','[501～550位]','[551～600位]','[601～650位]','[651～700位]','[701～750位]','[751～800位]','[801～850位]','[851～900位]'); for($i=17; $i>=($maxcount/50); $i--){$rankpos[$i] = '';} $rankpos[int(($IN{'rank'}-1)/50)] = "$rankpos[int(($IN{'rank'}-1)/50)]"; #-- 入力正確率を計算 if($FORM{'para0'} != 0){ $correct = int(($FORM{'para0'} / ($FORM{'para0'}+$FORM{'para1'}))*1000) / 10; $correctstr = "$correct%"; $daken = $FORM{'para0'}; $miss = $FORM{'para1'}; }else{ $daken = ''; $miss = ''; $correct = ''; } #-- 表示形式で格納 &setViewTag; #-- ランキング表示 if($IN{'mode'} eq 'show'){&showRank;} elsif($IN{'mode'} eq 'record'){ if($rec_label[0] eq ''){&message('過去のデータがありません');} my($count) = 2; foreach(@rec_label){ if($count == $IN{'sel'}){push(@rec_tag, "");} else{push(@rec_tag, "");} $count++; } &successive; } #--------------------------------------------------------------------- #=========== # 共通部分 #=========== sub head{ print qq|Content-type: text/html\n\n|; print qq|\n|; print qq|\n|; print qq|\n|; print qq|\n|; print qq|\n|; print qq|\n|; print qq|打鍵トレーナー\n|; print qq|\n|; } sub table{ print qq|\n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; foreach(@viewtag){print "$_\n";} print qq| \n|; print qq|

順位

ネーム

打鍵

ミス

正確率

日時

\n|; print qq|\n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq|

$rankpos[0]	$rankpos[1]	$rankpos[2]	$rankpos[3]	$rankpos[4]	$rankpos[5]
$rankpos[6]	$rankpos[7]	$rankpos[8]	$rankpos[9]	$rankpos[10]	$rankpos[11]
$rankpos[12]	$rankpos[13]	$rankpos[14]	$rankpos[15]	$rankpos[16]	$rankpos[17]
打鍵トレーナー$muras Mura's…

\n|; print qq|
\n|; print qq|\n|; print qq|\n|; # 打鍵数 print qq|\n|; # ミス数 print qq|\n|; # 正確率 print qq|\n|; # ネーム print qq|\n|; # パスワード print qq|\n|; # HPアドレス print qq|\n|; # コメント print qq|\n|; # 終了時間 print qq|\n|; print qq|\n|; print qq|\n|; } #=========== # 歴代表示 #=========== sub successive{ &head; print qq|\n|; print qq|\n|; print qq|\n|; print qq|

\n|; print qq|\n|; print qq|\n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq|

[TOP] [タイピング画面へ] [現在のランキング] [遊び方] [管理用]

\n|; print qq|

\n|; print qq|\n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq|

$rectitle

期間選択：

\n|; print qq|
\n|; &table; exit; } #============= # ランク表示 #============= sub showRank{ &head; print qq|\n|; print qq|\n|; print qq|\n|; print qq|\n|; print qq|\n|; print qq|\n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq|

[TOP] [タイピング画面へ] [過去のランキング] [遊び方] [管理用]

\n|; print qq|

今回の記録	打鍵数：	$daken	ミス数：	$miss	正確率：	$correctstr

ネーム：
パスワード：	クッキーに保存する
ホームページ：
コメント：

\n|; print qq|

\n|; print qq|\n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq|

集計期間（$styear/$stmon/$stday～$endyear/$endmon/$endday） $newterm時間以内のランクインには

が付きます

\n|; &table; exit; } #============ # 遊び方表示 #============ sub readMe{ &head; print qq|\n|; print qq|\n|; print qq|\n|; print qq|\n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq|

[TOP] [タイピング画面へ] [現在のランキング] [遊び方] [管理用]

\n|; print qq|

\n|; print qq|
\n|; print qq|$rmtitletext

\n|; print qq|\n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq|

\n|; print "$rmcontent\n"; print qq|

\n|; print qq|
\n|; print qq|\n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq|

打鍵トレーナー$muras Mura's…

\n|; print qq|\n|; print qq|\n|; print qq|\n|; exit; } #=============== # 管理用表示No1 #=============== sub admin(str){ &head; print qq|\n|; print qq|\n|; print qq|\n|; print qq|\n|; print qq|\n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq|

[TOP] [タイピング画面へ] [現在のランキング] [遊び方] [管理用]

\n|; print qq|

\n|; print qq|$_[0]
\n|; print qq|\n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq|

タイピング文編集　　ランキングデータ削除

\n|; print qq|\n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq|

入室用パスワード

\n|; print qq|
\n|; print qq|\n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq|

打鍵トレーナー$muras Mura's…

\n|; print qq|\n|; print qq|\n|; print qq|\n|; print qq|\n|; exit; } #=============== # 管理用表示No2 #=============== sub adminEdit{ my($i); my($maxcount) = 0; my($flg) = 0; my($buflg) = 0; my(@view, @input, @yomi, @data, @para); @data = &getFileData($wordpath); foreach(@data){ $_ =~ s/"//; @para = split(/"/, $_); if($para[0] eq '//START>>'){$flg = 1; next;} if($para[0] eq '//END>>'){$flg = 0; $buflg++;} if($flg == 1){ if($buflg == 0){push(@view, "$para[0]"); $maxcount++;} elsif($buflg == 1){push(@input, "$para[0]");} elsif($buflg == 2){ if($para[0] ne ''){ push(@yomi, 'OK'); }else{ push(@yomi, '-'); } } } } $warning = '下表で半角の「\\」は「\\\\」と表示されますが、動作上問題ありません。'; &head; print qq|\n|; print qq|\n|; print qq|\n|; print qq|\n|; print qq|

\n|; print qq|\n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq| \n|; print qq|

[TOP] [タイピング画面へ] [現在のランキング] [遊び方] [管理用]

\n|; print qq|

タイピング文編集

　　　・編集したい文Noと操作内容を指定して実行ボタンを押してください

　　　・半角の " < > は使えません

　　　・長すぎる文は環境によって登録できない場合があります

　　　・入力文には漢字→ひらがなに変換した文を入力します

　　　・英文字・記号・カタカナはそのままで入力文にコピーします

　　　・基本文・入力文の登録後、漢字読みの登録ができます

文No：		操作内容：

基本文：
入力文：
	例）基本文：新規作成　⇒　入力文：しんきさくせい　(半角 \\ ⇒ \\\\ で入力)
	$warning
	↓対応するひらがな読みを右のテキストボックスに入力して「OK」を押してください。
漢字読み：

\n|; print qq|

\n|; print qq|\n|; print qq| \n|; print qq| \n|; for($i=1; $i<=$maxcount; $i++){print "\n"} print qq| \n|; print qq|

No	基本文	入力文	読み
$i	$view[$i-1]	$input[$i-1]	$yomi[$i-1]

\n|; print qq|

\n|; print qq|\n|; print qq|\n|; print qq|

\n|; print qq|\n|; print qq|\n|; print qq|\n|; &unlock; exit; } #======================= # ランクデータ削除画面 #======================= sub rankDeleteMenu(){ &head; my(@rank_sel); #-- ランキング読み込み if(open(FILE, "<$rankpath")){ my(@data) = ; close(FILE); my($index) = 1; my(@para); foreach(@data){ $_ =~ s/\r//g; $_ =~ s/\n//g; @para = split(/<>/, $_); push(@rank_sel, ""); $index++; } } print qq|\n|; print qq|\n|; print qq|\n|; print qq|\n|; print qq|\n|; print qq|\n|; print qq|\n|; &unlock; exit; } #====================== # ランキング削除処理 #====================== sub deleteRanking(deleteID){ if(!open(FILE, "+<$rankpath")){$IN{'mode'} = 'show';&message('ランキングファイル読み込みエラー');} my(@data) = ; seek(FILE,0,0); truncate(FILE,0); foreach(@data){ $_ =~ s/\r//g; $_ =~ s/\n//g; @para = split(/<>/, $_); if("$para[3]$para[8]" eq $_[0]){next;} print FILE "$_\n"; } close(FILE); &message('完了しました'); } #============= # 文編集操作 #============= sub composition{ if($FORM{'operate'} ne 'alldelete' && $FORM{'operate'} ne 'yomioperate'){ if($FORM{'view_box'} eq '' || $FORM{'input_box'} eq ''){$IN{'mode'} = 'admin'; &message('基本文と入力文の両方に文字を入力してください');} } if($FORM{'view_box'} =~ /</ || $FORM{'view_box'} =~ />/ || $FORM{'view_box'} =~ /"/ || $FORM{'input_box'} =~ /</ || $FORM{'input_box'} =~ />/ || $FORM{'input_box'} =~ /"/){$IN{'mode'} = 'admin'; &message('半角の " < > は使えません');} if($FORM{'operate'} ne 'new' && $FORM{'operate'} ne 'alldelete' && $FORM{'no'} == 0){$IN{'mode'} = 'admin'; &message('文Noを選択してください');} my($flg) = 0; if(!open(FILE, "+<$wordpath")){$IN{'mode'} = 'admin'; &message('例文ファイル読み込みエラー')}; my(@data) = ; foreach(@data){$_ =~ s/\r//g;$_ =~ s/\n//g;} # 改行削除 seek(FILE,0,0); truncate(FILE,0); if($FORM{'operate'} eq 'new'){ # 新規作成 foreach(@data){ if($_ eq '//END>>'){ if($flg == 0){print FILE "\"$FORM{'view_box'}\"\,\n$_\n"; $flg++;} elsif($flg == 1){print FILE "\"$FORM{'input_box'}\"\,\n$_\n"; $flg++;} elsif($flg == 2){print FILE "\"$FORM{'yomi_form'}\"\,\n$_\n";} }else{ print FILE "$_\n"; } } }elsif($FORM{'operate'} eq 'edit' || $FORM{'operate'} eq 'delete'){ # １文修正と１文削除 my($count) = 0; my($buflg) = 0; foreach(@data){ if($_ eq '//START>>'){$flg = 1; $count = 0;} elsif($_ eq '//END>>'){$flg = 0; $buflg++;} if($flg == 1 && $count++ == $FORM{'no'}){ if($FORM{'operate'} eq 'delete'){next;} # 削除の時データを書き込まない if($buflg == 0){ print FILE "\"$FORM{'view_box'}\"\,\n"; }elsif($buflg == 1){ print FILE "\"$FORM{'input_box'}\"\,\n"; }elsif($buflg == 2){ print FILE "\"$FORM{'yomi_form'}\"\,\n"; } }else{ print FILE "$_\n"; } } }elsif($FORM{'operate'} eq 'alldelete'){ # 全文削除 foreach(@data){ if($_ eq '//START>>'){$flg = 1; print FILE "$_\n"; next;} elsif($_ eq '//END>>'){$flg = 0;} if($flg == 1){next;} else{print FILE "$_\n";} } }elsif($FORM{'operate'} eq 'yomioperate'){ # 漢字読み my($count) = 0; my($buflg) = 0; foreach(@data){ if($_ eq '//START>>'){$flg = 1; $count = 0;} elsif($_ eq '//END>>'){$flg = 0; $buflg++;} if($flg == 1 && $count == $FORM{'no'}){ if($buflg == 2){ $FORM{'yomi_form'} =~ s/>/>/g; print FILE "\"$FORM{'yomi_form'}\"\,\n"; }else{ print FILE "$_\n"; } }else{ print FILE "$_\n"; } $count++; } } close(FILE); &message('完了しました'); } #================= # 表示形式で格納 #================= sub setViewTag{ if($IN{'rank'} eq ''){$IN{'rank'} = 1;} my($rankindex) = $IN{'rank'}; my($index) = 1; my(@para_data, $timestr); foreach(@ranking){ $_ =~ s/\r//g; $_ =~ s/\n//g; $timestr = ''; $homeicon = ''; if($_ eq '' || $rankindex >= ($IN{'rank'}+50) || $rankindex > $savemax){last;} # 表示終了条件 if($index < $IN{'rank'}){$index++;next;} # 必要なデータになるまでインクリメント @para_data = split(/<>/, $_); $timestr = &getTimeStr($para_data[7]); if(((time+32400)-$para_data[7]) <= ($newterm*3600)){$timestr .= "

";} if($para_data[5] ne 'http://'){$homeicon = "

";} push(@viewtag, " $rankindex $para_data[3] $homeicon $para_data[0] $para_data[1] $para_data[2]% $para_data[6] $timestr "); $rankindex++; } } #=========== # 登録処理 #=========== sub entrySub(path){ $ref_url = $ENV{'HTTP_REFERER'}; $ref_url =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack("C", hex($1))/eg; if( !($ref_url =~ /$base_url/i) && $base_url ne "") {$IN{'mode'} = 'show';&message('他サイトアクセス禁止エラー');} # 例外処理 my($name) = $FORM{'para3'}; $name =~ s/ //g; $name =~ s/　//g; if($name eq ''){$IN{'mode'} = 'show';&message('スペースだけのネームは作れません');} foreach(@errWord){if($FORM{'para3'} =~ /$_/ || $FORM{'para5'} =~ /$_/ || $FORM{'para6'} =~ /$_/){$IN{'mode'} = 'show';&message('禁止されているワードが含まれています');}} foreach(@errHost){if($ENV{'REMOTE_ADDR'} =~ /$_/ || $ENV{'REMOTE_HOST'} =~ /$_/){$IN{'mode'} = 'show';&message('ホスト制限されています');}} if(!open(FILE, "+<$_[0]")){$IN{'mode'} = 'show';&message('ランキングファイル読み込みエラー');} my(@data) = ; my($fileindex) = 0; foreach(@data){if(++$fileindex > $savemax){$_ = '';}} my($now) = time + 32400; # 現在時取得 # 1つもデータがない場合 if($data[0] eq ''){ seek(FILE,0,0); truncate(FILE,0); print FILE "$FORM{'para0'}<>$FORM{'para1'}<>$FORM{'para2'}<>$FORM{'para3'}<>$FORM{'para4'}<>$FORM{'para5'}<>$FORM{'para6'}<>$now<>$FORM{'para7'}<>$ENV{'REMOTE_ADDR'}<>$ENV{'REMOTE_HOST'}\n"; close(FILE); return '1位に登録されました'; } # 1つ以上データがある my(@para); my($Exindex) = 0; my($Inindex) = -1; my($Bsindex) = 0; my($Expoint) = 0; my($Exflg) = 0; my($Exmiss) = 0; foreach(@data){ $_ =~ s/\r//g; $_ =~ s/\n//g; @para = split(/<>/, $_); # 二重登録チェック if($ENV{'REMOTE_ADDR'} eq $para[9] && $FORM{'para7'} == $para[8]){$IN{'mode'} = 'show';&message('二重登録はできません');} if($para[3] eq $FORM{'para3'} && $samename != 1){ # 同じネームが存在する if($para[4] ne $FORM{'para4'}){close(FILE);$IN{'mode'} = 'show';&message('パスワードが違います');} $Exindex = $Bsindex; # 存在するインデックス $Expoint = $para[0]; # 存在する得点 $Exmiss = $para[1]; # 存在するミス数 $Exflg = 1; } if($FORM{'para0'} > $para[0] && $Inindex == -1){$Inindex = $Bsindex;} # 入り込めるインデックス $Bsindex++; } my($count) = 0; # 同じネームがある if($Exflg == 1){ seek(FILE,0,0); truncate(FILE,0); if($Inindex == -1 || $Exindex < $Inindex){ # HPアド・コメントなど更新 foreach(@data){ @para = split(/<>/, $_); if($count == $Exindex){ if($Expoint == $FORM{'para0'} && $Exmiss > $FORM{'para1'}){ # 打鍵同じでミスが減った print FILE "$para[0]<>$FORM{'para1'}<>$FORM{'para2'}<>$para[3]<>$para[4]<>$FORM{'para5'}<>$FORM{'para6'}<>$para[7]<>$FORM{'para7'}<>$ENV{'REMOTE_ADDR'}<>$ENV{'REMOTE_HOST'}\n"; }else{ print FILE "$para[0]<>$para[1]<>$para[2]<>$para[3]<>$para[4]<>$FORM{'para5'}<>$FORM{'para6'}<>$para[7]<>$FORM{'para7'}<>$ENV{'REMOTE_ADDR'}<>$ENV{'REMOTE_HOST'}\n"; } }else{print FILE "$_\n";} $count++; } close(FILE); return '順位は変わりませんでした'; } if($Exindex == $Inindex && $Expoint < $FORM{'para0'}){ # 順位が変わらず打鍵更新 foreach(@data){ if($count == $Exindex){ print FILE "$FORM{'para0'}<>$FORM{'para1'}<>$FORM{'para2'}<>$FORM{'para3'}<>$FORM{'para4'}<>$FORM{'para5'}<>$FORM{'para6'}<>$now<>$FORM{'para7'}<>$ENV{'REMOTE_ADDR'}<>$ENV{'REMOTE_HOST'}\n"; }else{print FILE "$_\n";} $count++; } close(FILE); $Exindex++; return "順位は $Exindex位のままでしたが、打鍵数を $FORM{'para0'} に更新しました"; } if($Exindex > $Inindex){ # 順位更新 foreach(@data){ if($count == $Inindex){ print FILE "$FORM{'para0'}<>$FORM{'para1'}<>$FORM{'para2'}<>$FORM{'para3'}<>$FORM{'para4'}<>$FORM{'para5'}<>$FORM{'para6'}<>$now<>$FORM{'para7'}<>$ENV{'REMOTE_ADDR'}<>$ENV{'REMOTE_HOST'}\n$_\n"; }elsif($count == $Exindex){$count++;next; }else{print FILE "$_\n";} $count++; } } close(FILE); $Inindex++; return "$Inindex位に順位を更新しました"; # 同じネームがない }else{ seek(FILE,0,0); truncate(FILE,0); foreach(@data){ if($count == $Inindex){ print FILE "$FORM{'para0'}<>$FORM{'para1'}<>$FORM{'para2'}<>$FORM{'para3'}<>$FORM{'para4'}<>$FORM{'para5'}<>$FORM{'para6'}<>$now<>$FORM{'para7'}<>$ENV{'REMOTE_ADDR'}<>$ENV{'REMOTE_HOST'}\n$_\n"; }else{print FILE "$_\n";}; $count++; } if($Inindex == -1){ print FILE "$FORM{'para0'}<>$FORM{'para1'}<>$FORM{'para2'}<>$FORM{'para3'}<>$FORM{'para4'}<>$FORM{'para5'}<>$FORM{'para6'}<>$now<>$FORM{'para7'}<>$ENV{'REMOTE_ADDR'}<>$ENV{'REMOTE_HOST'}\n"; close(FILE); $count++; return "$count位に登録されました"; } close(FILE); $Inindex++; return "$Inindex位に登録されました"; } } #================ # 集計期間計算 #================ sub setPeriod{ if($usetimelocal == 1){ $start_sec = timegm(0,0,0,$stday,$stmon-1,$styear-1900); }else{ $start_sec = timegmSub($styear, $stmon, $stday); } if($monthreset == 1){ my($i); for($i=1; $i<35; $i++){ $end_sec = $start_sec + (86400 * $i); ($endday,$endmon,$endyear) = &getGMtime($end_sec); if($stmon != $endmon){ last; } } $i--; $end_sec = $start_sec + (86400 * $i); ($endday,$endmon,$endyear) = &getGMtime($end_sec); }else{ $end_sec = $start_sec + 86400*($resetday-1); ($endday,$endmon,$endyear) = &getGMtime($end_sec); } } #============= # 標準時取得 #============= sub getGMtime(sec){ my($day,$mon,$year) = (gmtime($_[0]))[3..5]; $mon++; $year += 1900; return ($day,$mon,$year); } #==================== # 簡易標準時取得関数 #==================== sub timegmSub($year, $mon, $day){ my($yearsub, $monsub, $daysub, $now, $count); $count = 0; $now = time + 32400; while($count < 50) { ($daysub, $monsub, $yearsub) = (gmtime($now))[3..5]; $monsub++; $yearsub += 1900; if($yearsub != $_[0]){ $now -= ($yearsub - $_[0]) * 31536000; }elsif($monsub != $_[1]){ $now -= ($monsub - $_[1]) * 2592000; }elsif ($daysub != $_[2]) { $now -= ($daysub - $_[2]) * 86400; }else{ last; } $count++; } return $now; } #=================== # 集計期間内外処理 #=================== sub perRenewal(endsec){ if(($_[0]+86400) > (time+32400)){return;} # 期間内の時終了 foreach(@rec_label){$_ = '';} # 歴代期間文字配列クリヤ my($i, $k); my(@data); for($i=$rankfilemax; $i>1; $i--){ $k = $i - 1; open(FILE, "; close(FILE); open(FILE, "+ranking1.cgi") or &message('ランキングデータのクリヤに失敗しました'); close(FILE); my($eday,$emon,$eyear) = &getGMtime($_[0]); # 最終日付 my($nday,$nmon,$nyear) = &getGMtime($_[0]+86400); # 新しい開始日付 open(FILE, "+<$setpath") or &message('期間設定ファイル読み込みエラー'); @data = ; seek(FILE,0,0); truncate(FILE,0); print FILE "$nyear<>$nmon<>$nday\n"; # 新しい開始日付 print FILE "$styear<>$stmon<>$stday<>$eyear<>$emon<>$eday\n"; # 前回の範囲 push(@rec_label, "$styear/$stmon/$stday～$eyear/$emon/$eday"); $k = 0; my(@para); foreach(@data){ if($k == 0){$k++;next;} if(++$k >= $rankfilemax){last;} print FILE "$_"; $_ =~ s/\r//g; $_ =~ s/\n//g; @para = split(/<>/, $_); push(@rec_label, "$para[0]/$para[1]/$para[2]～$para[3]/$para[4]/$para[5]"); } close(FILE); $styear = $nyear; $stmon = $nmon; $stday = $nday; &setPeriod; } #==================== # 時間表示文字列取得 #==================== sub getTimeStr(gmtcount){ my($sec,$min,$hour,$mday,$mon,$year) = (gmtime($_[0]))[0..5]; $mon++; $year += 1900; return "$year/$mon/$mday
$hour:$min:$sec"; } #=================================== # 指定したパスのファイルを読み込む #=================================== sub getFileData(path){ open(FILE, "<$_[0]") or &message($_[0].' 読み込みエラー'); my(@data) = ; close(FILE); foreach(@data){$_ =~ s/\r//g;$_ =~ s/\n//g;} return @data; } #=================== # 期間開始日付格納 #=================== sub readSetup(path){ open(FILE, "+<$_[0]") or &message('期間設定ファイル読み込みエラー'); my(@data) = ; if($data[0] eq '' || $data[0] == 0){ # ファイルが空 seek(FILE,0,0); truncate(FILE,0); print FILE "$styear<>$stmon<>$stday\n"; close(FILE); return; } close(FILE); my($flg) = 0; my(@para); foreach(@data){ $_ =~ s/\r//g; $_ =~ s/\n//g; @para = split(/<>/, $_); if($flg > 0){ push(@rec_label, "$para[0]/$para[1]/$para[2]～$para[3]/$para[4]/$para[5]"); }else{ $styear = $para[0]; $stmon = $para[1]; $stday = $para[2]; } $flg++; } } #================= # パラメータ取得 #================= sub getParam{ my($query, $i, $name, $value); read(STDIN, $query, $ENV{'CONTENT_LENGTH'}); #-- データ復元 for($i=0; $i<=1; $i++){ if($i == 1){$query = $ENV{'QUERY_STRING'};} foreach(split(/&/, $query)){ ($name, $value) = split(/=/, $_); $value =~ tr/+/ /; $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/chr(hex($1))/eg; $value =~ s//>/g; $value =~ s/"/"/g; &jcode'convert(*value,'euc'); if($i == 0){$FORM{$name} = $value;} else{$IN{$name} = $value;} } } } #=========== # 変換処理 #=========== sub convert(str){ $_[0] =~ s/"/\\"/g; $_[0] =~ s/>/>/g; $_[0] =~ s/</