EBのクッキーだけを消します

クッキー削除
#!/usr/local/bin/perl

require "ebs_sub1.cgi";

SET_COOKIE:{
my @gmt = gmtime(time + $COOKIE_KEEP*24*60*60);
$gmt[0] = sprintf("%02d", $gmt[0]); $gmt[1] = sprintf("%02d", $gmt[1]);
$gmt[2] = sprintf("%02d", $gmt[2]); $gmt[3] = sprintf("%02d", $gmt[3]); $gmt[5] += 1900;
$gmt[4] = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$gmt[4]];
$gmt[6] = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$gmt[6]];
my $date_gmt = "$gmt[6], $gmt[3]\-$gmt[4]\-$gmt[5] $gmt[2]:$gmt[1]:$gmt[0] GMT";
my $cook = "";print "Set-Cookie: EB=$cook; expires=$date_gmt\n";
}

&HEADER;
print <<"_HTML_";
クッキーを除去しました<br>
EBの窓を一度閉じてコンテニューしてみてくださいお
_HTML_

1;

NEW GAMEがでません＞＜

クッキーを削除してください

クッキーてなんですか　どうやって（ｒｙ

(^ω^#)ﾋﾞｷﾋﾞｷ

という出来事を事前に回避します

フレームが無かったらココをクリックしてください