#!/usr/bin/perl
#
# アクセス頻度チェックスクリプト
#
# ↓カスタマイズ可能な変数↓
$title = "AccessCheck";
# 変数定義
# $day = 24 * 60 * 60; # １日
$day = 1; # １日
$week = $day * 7; # １週間
$month = $day * 31; # １ヶ月
# クッキー情報を得る
foreach $n (split(/\;/, $ENV{'HTTP_COOKIE'})){
($name, $value) = split(/=/, $n);
$Cookie{$name} = $value;
}
# PrevAccessが前回のアクセス時間
$prev = $Cookie{'PrevAccess'};
# 前回のアクセスからの時間によってメッセージを変更
if($prev eq ""){
$msg = "いらっしゃい！
初めてのアクセスですね！";
} else {
$time = time - $prev;
if($time < $day){
$msg = "毎日アクセスしてくれてありがとうございます♪";
} elsif($time < $week){
$msg = "１週間以上ぶりですね。
忘れられたのかと思いました(TOT)";
} elsif($time < $month){
$msg = "…もしかしてこのページの存在を忘れてた？(T_T)";
}else {
$msg = "すんごく久しぶり！
ちゃんとブックマークしておいてね♪";
}
}
# ヘッダーとHTML出力
$now = time;
print <$title
$msg
END_OF_HTML
# -----