クッキーの基礎的なことについて
print "Content-type: text/html\n\n";
#クッキーがないときの動作。
#クッキーがない場合クッキーを期限1日で発行する。
if(!$ENV{'HTTP_COOKIE'}){
#クッキーが存在する場合の動作
print "クッキーないない<br>\n";
#1時間先のグリニッジ標準時を取得し、weeksとmonthsを定義
($gmSec, $gmMin, $gmHour, $gmMDay, $gmMon, $gmYear, $gmWDay, $gmYDay, $gmIsDst) = gmtime(time + (3600 * 24));
$gmYear += 1900;
@weeks = ('Sun', 'Mon', 'Tue', 'Web', 'Thu', 'Fri', 'Sat');
@months = ('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec');
#クッキーの有効期限をその日の1日後までにする
$limitTime = sprintf("%s\n, %02d-%s-%04d %02d:%02d:%02d GMT",$weeks[$gmWDay], $gmMDay, $months[$gmMon], $gmYear, $gmHour, $gmMin, $gmSec);
#クッキー発行
print "Set-Cookie: myBool=1; expires=$limitTime\n";
print "\n";
} else {
#クッキーがあった場合の動作。クッキーありと表示するだけ。
print "クッキーあり。";
}
クッキーの発行を見ると
print "Set-Cookie: なんたらかんたら";
らしいのですが、printでこう書くだけでクッキーが発行できたことになるのですか？
実行しても、ただ単に例えば
Set-Cookie: myBool=1; expires=Mon , 08-Aug-2005 12:11:43 GMT
というようになるだけです。
初心者でまだ1度もクッキー作成成功してないのですが何がいけないのでしょうか。
お礼
ありがとうございます。