#! /usr/local/bin/perl
require './cookie.pl';
# クッキーに付ける名前（他と重ならないようにする）
$cookie_name = 'user-00';
#-- decode --#
&decode_cookie($cookie_name);
#-- encode --#
# 時刻取得を国際標準時とする
$ENV{'TZ'} = "GMT";
# クッキーを消化する時刻を設定（30*24*60*60 : ３０日後）
($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = localtime(time + 30*24*60*60);
$y0="Sunday"; $y1="Monday"; $y2="Tuesday"; $y3="Wednesday"; $y4="Thursday"; $y5="Friday"; $y6="Saturday";
$m0="Jan"; $m1="Feb"; $m2="Mar"; $m3="Apr"; $m4="May"; $m5="Jun"; $m6="Jul"; $m7="Aug"; $m8="Sep"; $m9="Oct"; $m10="Nov"; $m11="Dec";
@youbi = ($y0,$y1,$y2,$y3,$y4,$y5,$y6);
@monthg = ($m0,$m1,$m2,$m3,$m4,$m5,$m6,$m7,$m8,$m9,$m10,$m11);
$date_gmt = sprintf("%s\, %02d\-%s\-%04d %02d:%02d:%02d GMT",$youbi[$wdayg],$mdayg,$monthg[$mong],$yearg +1900,$hourg,$ming,$secg);
# はじめてのアクセス時に0を設定し、その他はカウントアップさせる
if ($COOKIE{'count'} eq '') { $COOKIE{'count'} = 0; }
else { $COOKIE{'count'}++; }
# 記録するクッキーを設定
$cook="count\:$COOKIE{'count'}";
# ヘッダとして送信
print "Set-Cookie: $cookie_name=$cook; expires=$date_gmt\n";
print "Content-type: text/html\n\n";
#------------#
# print <<"EOF";からEOFの間に書く（空行を作らないこと−\n(改行)を利用する）
# 文字化けする場合は、該当文字の直後に\を書く （例 表\示 機能\）
print <<"EOF";
Cookie counter
\n
クッキーカウンタ
このページへのあなたのアクセスは$COOKIE{'count'}回目です。\n
文字化けテスト
「表示」「機能」
「表\示」「機能\」
EOF