サブルーチン集 - Cookieをクリアする

クライアントにクッキーをセットするためのHTTPヘッダー文字列を返します。

■ サブルーチン名

ClearCookie

■ 引数

1. クッキー名

■ 戻値

1. HTTPヘッダーに使う「Set-Cookie」の文字列

■ 使い方

$CookieHeaderString = &ClearCookie(クッキー名);

$CookieHeaderString = &ClearCookie($CookieName);

引数に以下の値を設定したとします。

$CookieName = 'NAMAE';

戻り値 $CookieHeaderString には、以下の文字列が入ります。

Set-Cookie: NAMAE=clear; expires=Thu, 01-Jan-1970 00:00:00 GMT;

有効期限に、過去の日付を設定することにより、ブラウザーに設定されているクッキーを無効にします。有効期限は、1970年1月1日（火） 0時0分0秒　に設定しています。

■ サブルーチン

sub ClearCookie {
	my($CookieName) = @_;
	my($CookieHeaderString);
	my($ExpiresTimeString) = 'Thu, 01-Jan-1970 00:00:00 GMT';
	$CookieHeaderString .= "Set-Cookie: $CookieName=clear\; expires=$ExpiresTimeString\;";
	return $CookieHeaderString;
}