| 2004/03/23(Tue) 01:21:54 編集(投稿者)
Child Treeで名前しかクッキーが効かないようですが、 これはバグでしょうか? それとも仕様でしょうか・・・?
#------------------------------------------------------------------------------------------------------ # [cookie発行] # -> cookieを発行する(set_) # sub set_ { if($_[0] eq "I"){$kday=1826;}else{$kday=30;} ($secg,$ming,$hourg,$mdayg,$mong,$yearg,$wdayg,$ydayg,$isdstg) = gmtime(time + $kday*24*60*60); $yearg += 1900; if($secg < 10){$secg ="0$secg"; } if($ming < 10){$ming ="0$ming"; } if($hourg < 10){$hourg="0$hourg";} if($mdayg < 10){$mdayg="0$mdayg";} $month = ('Jan','Feb','Mar','Apr','May','Jun','Jul','Aug','Sep','Oct','Nov','Dec')[$mong]; $youbi = ('Sunday','Monday','Tuesday','Wednesday','Thursday','Friday','Saturday')[$wdayg]; $date_gmt = "$youbi, $mdayg\-$month\-$yearg $hourg:$ming:$secg GMT"; if($SEL_C){$Csel=",sel:$sel";}else{$Csel="";} if($TXT_C){$Ctxt=",txt:$txt";}else{$Ctxt="";} $cook="name\:$name\,email\:$email\,url\:$url\,delkey\:$delkey\,pub\:$FORM{'pub'}\,ico\:$CICO\,font\:$font\,hr\:$hr$Csel$Ctxt"; if($_[0] eq "P"){print"Set-Cookie: $s_pas=$s_pas; expires=$date_gmt\n";} elsif($_[0] eq "M"){print"Set-Cookie: Cmin=$FORM{'min'}; expires=$date_gmt\n";} elsif($_[0] eq "I"){print"Set-Cookie: UID=$_[1]; expires=$date_gmt\n";} else{print "Set-Cookie: CBBS=$cook; expires=$date_gmt\n";} } #------------------------------------------------------------------------------------------------------
|