Kenji
kenji****@club*****
2004年 3月 20日 (土) 18:24:12 JST
Kenji です。
BATTA 以外のブラウザに cookie を強制する patch を書きました。
--- Status.pm.orig Sat Sep 15 10:56:07 2001
+++ Status.pm Sat Mar 20 18:13:46 2004
@@ -126,6 +126,19 @@
unless ($self->is_robot){ # normal user agent
unless ($self->id) { # if first visit or lost ID
$self->id(uniqID("RURI")); # then account new ID
+
+ # force to accept cookie
+ print "Content-Type: text/html; charset=EUC-JP\r\n";
+ $self->PrintCookieHeader;
+ print "\r\n";
+ print qq(<!DOCTYPE HTML PUBLIC "-//IETF//DTD HTML 2.0//EN">
+<html><head>
+<title>cookie を設定しました</title>
+</head><body>
+<h1>cookie を設定しました</h1>
+再読込して下さい。
+</body></html>);
+ exit;
}
$self->count($self->count+1)
if $self->script_name =~ /index.cgi$/;
// Kenji