フリーCGIの改変をお手伝いいただけないでしょうか。(著作者許可済)

質問

こんばんは。

タイトル通りなのですが、
http://flash.xtaro.com/sozai/tool/fcount/index.htm　で提供されている
アクセスカウンタに重複カウンタ防止機能を追加したいと思っています。

無断改変禁止とありましたので、事前に著作者様へ
改変内容の旨を伝え許可を頂きました。

Webで調べてやってみたのですが、Perlプログラミングの
経験のない私ではすでにあるソースの内容に新たな機能を
実装するのが困難で、皆様のお力をお借りできないかと書き込みました。

ソースは下記に記載します。
何卒よろしくお願い致します。

[ファイル構成]
fcount.dat
fcount.cgi
fcount_d.swf

[fcount.dat]
061617,42,68,2008/5/10

[fcount.cgi]
#!/usr/bin/perl

# カウントデータのパス(ファイル名)
$countdata = './fcount.dat';

#
# このツールの著作は有限会社エムエーディー(FLASHフリー素材UFO)に帰属します。
# 無断改造,再配布,再販は厳禁です。
#
open(file, "+<$countdata") or die("error:ログデータが開けません");
eval{flock(file, 2);};
$count = <file>;
($totalc,$kyou,$kinou,$tday) = split(/,/, $count);
$tim = time;
($sec, $min, $hour, $mday, $mont, $year) = localtime $tim;
$year += 1900;
++$mont;
$day="$year/$mont/$mday\n";
if ($day ne $tday) {
$kinou = $kyou;
$kyou = 0;
$tday = $day;
}
++$totalc;
++$kyou;
seek(file, 0, 0);
print file "$totalc,$kyou,$kinou,$tday\n";
close(file);
#
$totalc = sprintf("%06d", $totalc);
$kyou = sprintf("%05d", $kyou);
$kinou = sprintf("%05d", $kinou);
print "Content-Type: text/plain\n\n";
print "&totalc=$totalc&kyou=$kyou&kinou=$kinou&";
exit;

回答No.1

shimix · ベストアンサー

まず、仕様を固めてください。

重複防止の手段は？

　　・一定時間内の同一IPは重複とする
　　　　IP以外の情報（UserAgentなど）も含めてチェックするかどうか
　　・一定時間保持のCookieを出して、Cookieの有無でチェックする

お礼

shimix様、早速のご回答ありがとうございます。

情報不足で申し訳ございません。

一つ目の、一定時間内の同一IPは重複とする　と考えておりました。
IP以外の情報を利用するのは知識不足で知りませんでした。
具体的にどういった事ができるのかも認識が怪しいです。

実装が難しく、
ブラウザ依存や見る側に左右されてしまう等の要因があれば
特になくてもよいかなと思います。

また不足点あれば指摘頂ければ幸いです。
取り急ぎですが、失礼致します。