
#●
#---------------------------------------------------------------------------------------
# 名称     | ReadCookie
# Version  | 1.00
# 処理名   | クッキーデータの取得
# 動作内容 | レスキュー形式のクッキーデータを展開する
# 引数     | クッキー名
# 戻り値   | なし(%COOKIE)
#
sub ReadCookie {

	local($cname) = @_;
	$cookies = $ENV{'HTTP_COOKIE'}; # 入力

	@pairs = split(/;/,$cookies); # 独自(レスキュー)形式のデータの展開  項目名1:内容1,項目名2:内容2,...
	foreach $pair (@pairs) {

		($key,$val) = split(/=/,$pair,2);
		$key =~ s/ //g;

		if ($key eq $cname) {

			@pairs = split(/,/,$val);
			foreach $pair (@pairs) {

				($key,$val) = split(/:/,$pair,2);
				$COOKIE{$key} = $val;
			}
			last;
		}
	}

}#End_of_ReadCookie

