TSperl 発言

極悪です。

>＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿
>
>sub set_cookie {
>	my ($sec, $min, $hour, $day, $month, $year, $week)=gmtime(time+365*24*60*60);
>
>	if ($sec<10) {
>		$sec="0".$sec;
>	}
>	if ($min<10) {
>		$min="0".$min;
>	}
>	if ($hour<10) {
>		$hour="0".$hour;
>	}
>	$year+=1900;
>
>	$week=('Sun', 'Mon', 'Tue', 'Wed', 'Thu', 'Fri', 'Sat')[$week];	
>	$month=('Jan', 'Feb', 'Mar', 'Apr', 'May', 'Jun', 'Jul', 'Aug', 'Sep', 'Oct', 'Nov', 'Dec')[$month];
>
>	$gmt="$week, $day-$month-$year $hour:$min:$sec GMT"; 
>	$set="name:$c_name,color:$c_color";
>
>	print "Set-Cookie: $cookiename=$set; expires=$gmt";
>}
>＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

$cookiename が定義されていないのと、最後に改行がないのが
エラーの原因ですね。スクリプトは正常に実行されているけど、
出力している内容でエラーになっています。

print "Set-Cookie: xxx=$set; expires=$gmt\n";

としてみてはどうでしょうか。

ついでですが、expires の値は日付けの他に期間での指定も
できます。１年間有効としたければ、expires=+12M または
expires=+1Y とすればＯＫ。+1Y という記述は見かけないの
で +12M のほうがいいかもしれません。
--