TSperl 発言

おっはぁ！！(^-^)
Penelottyです♪

浜口崇様．

初めまして，そして早速ご対応いただきましてありがとうございます．

エラーログなんですが，サーバにアップして実行しています．
そこでブラウザには“HTTP 内部サーバエラー 500”と表示されます．

当方はフリーウェアの“asperl”を使いスクリプトを組んでいますが（有益なソフトをありがとうございます），それで実行する限りではエラーメッセージを吐きません．

次にサブルーティンの“set_cookie”ですが，次のように組んでいます．

以上が，現在の当方に可能な対策です．
再度で申し訳ございませんが，浜口崇さん，そして他の方々共にご教示願います．

であであ，(^-^)/~~~

＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

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";
}
＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿



-*** Penelotty ***-