#!/usr/local/bin/perl # id=anksum.cgi # update. 97.10.3 require 'cgi-lib.pl'; &ReadParse; # ファイル名 $file = "/dialup/chichibu/cgi-bin/anksum.dat"; $url = 'http://www0.kumagaya.or.jp/cgi-bin/users/chichibu/show.cgi'; # パスワード $passwd="0494242541"; # 現在時刻セット ($bb,$ff,$jj,$dd,$mm,$yy,$yb) = localtime(time); # 返される月数は１つ少ない $mm++; # 年月日を２桁にする $yy = sprintf("%.2d",$yy); $mm = sprintf("%.2d",$mm); $dd = sprintf("%.2d",$dd); # パスワードが正しかったらデータクリアする if ($in{'pwd'} eq $passwd) { &reset;exit; } # データを分割 @data = split(/\0/, $in{'sel'}); open(DATA,"$file"); $cnt = ; close(DATA); # $cntをカンマで分解する if ($cnt eq "") { &syokika; }else{ @cnt = split(/,/,$cnt); } # フォームからのデータで回答した項目に１を足す foreach $key (@data) { $cnt[$key]++; } # 前回更新日セット $cnt[26] = $cnt[23]; $cnt[27] = $cnt[24]; $cnt[28] = $cnt[25]; # 今回更新日セット $cnt[23] = $yy; $cnt[24] = $mm; $cnt[25] = $dd; # ファイル登録 open(DATA,">$file"); # 各項目をカンマでつなげる foreach $key (@cnt) { if ($key eq "") {$key = "0"} print DATA $key; print DATA ","; } close(DATA); # ブラウザに出力 print "Content-type: text/html\n\n"; print "\n\n"; print "ありがとうございました　8/11\n"; print "\n\n"; print "

ありがとうございました

\n"; print "

"; print '集計結果の表示'."\n"; print "\n\n"; # テーブルを０で初期化する sub syokika { while ($#cnt + 1 < 20) { @cnt = (0,@cnt); } } # ファイルを０で初期化する sub reset { open(DATA,">$file"); print DATA "0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,"; # リセット日を記録する print DATA $yy; print DATA ","; print DATA $mm; print DATA ","; print DATA $dd; # 最終更新日ゼロセット print DATA ",00,00,00,00,00,00"; close(DATA); # ブラウザに出力 open(DATA,"$file"); $cnt = ; close(DATA); print "Content-type: text/html\n\n"; print "\n\n"; print "カウントリセット処理 10/3\n"; print "\n\n"; print "

カウントをすべてリセットしました。

\n\n"; print 'DATA='.$cnt.''."\n"; print '

'; print '集計結果の表示'."\n"; print "\n\n"; } # end of reset