# cookie.pl
# クッキーライブラリ
# Script Written <MOG - T.Kitazaki mog@ask.ne.jp>

#クッキーの期限を設定
$Coexp = &Expires(30);

#####

sub Get_Cookie{

	local($key, $value);
	foreach (split(/; /,$ENV{'HTTP_COOKIE'})){
		($key,$value) = split(/=/);
		$TEMP{$key} = $value;
	}

	@length = split(/\<\<\>\>/,$TEMP{$coName});
	foreach $len (@length) {
		($key, $value) = split(/\<\>/, $len);
		$CoParm{$key} = $value;
	}
}

#####

sub Expires{

	local($day) = @_;
	local(@date);
	local(@week) =
('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday');

	local(@month) =
('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec');

	@date = gmtime(time + $day * 60 * 60 * 24);

	$date[5] = $date[5] + 1900;

	foreach (0..3) {
		$date[$_] = sprintf("%.2d",$date[$_]);
	}

	"$week[$date[6]], $date[3]-$month[$date[4]]-$date[5] $date[2]:$date[1]:$date[0] GMT";

}

1;