はる
[E-Mail]
[HomePage]
2000/02/09(水) 13:47:51
$cooks = $ENV{'HTTP_COOKIE'};
という分でクッキーを取れるみたいなんですけど、
クッキー情報のファイル名はどこで定義するでしょう？
同じファイルに保存し、同じファイルから読み込めばできるおもったんですけど。
↓CGIのソースです。誰か助けてください。
sub getcookie{ #くっきーを頂きます。
$cooks = $ENV{'HTTP_COOKIE'};
$cooks = $cooks . '2';
$cooks = '' unless($cooks =~s/.*yuidata=(.*)yuiend.*/$1/);
($name,$reload,$email,$mode,$color,$window,$lastdate,$count,$autoclear,$chara2,$url,$hitokoto) = split(/\t/, $cooks);
$histry = "$count回目:LAST LOGIN:$lastdate" if($lastdate);
if(!$count){ #くっきー情報の無い場合のデフォルト値
$reload = 30; $mode = 'checked';$color = 'red'; $window = 30;
$count = 1;$autoclear = 'checked'; $chara2 = ''; $url = ''; $hitokoto=''; }
}#getcookie END
sub setcookie{ #くっきーをブラウザにプレゼントします。
local($dmy,$mdc,$monc,$yrc,$wdayc,$mc,$yc);
($dmy,$dmy,$dmy,$mdc,$monc,$yrc,$wdayc,$dmy,$dmy) = localtime($times + 9999999);
$yc = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday') [$wdayc];
$mc = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec') [$monc];
$yrc = $yrc+1900; $mdc = "0$mdc" if ($mdc < 10);
$count++;
$data = "$name\t$reload\t$email\t$mode\t$color\t$window\t$date\t$count\t$autoclear\t$chara2\t$url\t$hitokoto\tyuiend";
$data = 'deleted'if($FORM{'cook'} ne 'ok');
print "Set-Cookie: yuidata=$data; expires=$yc, $mdc-$mc-$yrc 00:00:00 GMT\n";
}
保存するときは