šŽO@y ƒXƒNƒŠƒvƒg‰ ..
[2ch|₯Menu]
186:nobody‚³‚ρ
06/12/28 17:03:53 6RqsItPR
y.@ CGI–Ό @.z Web Board Professional URLΨέΈ(www.web-liberty.net)
@@@@@@@@@@@@@@i‚½‚Ύ‚΅AVer.2.27‚Ε‚·BΕV‚ΝVer.3.15j
yƒwƒ‹ƒv“ΰ—ez@“]‘—ƒAƒhƒŒƒX‚π—˜—p‚΅‚½γ‚ΕƒNƒbƒL[‚π—LŒψ‚Ι‚΅‚½‚’B
–³—Ώ‚Μ“]‘—ƒAƒhƒŒƒX‚πŽζ“Ύ‚΅A–{—ˆ‚ΜƒAƒhƒŒƒX‚π‰B‚΅‚Δ‚’‚ά‚·‚ͺA
‚»‚€‚·‚ι‚ΖƒNƒbƒL[‚ͺ—˜‚©‚Θ‚­‚Θ‚Α‚Δ‚΅‚ά‚’‚ά‚·B
ƒNƒbƒL[‚ͺƒŠƒtƒ@ƒ‰‚π‹L‰―‚΅AΖ‡‚΅‚Δ‚’‚ι‚½‚߁A“]‘—ƒAƒh‚Ζ•sˆκ’v‚Ζ‚Θ‚θA–³Œψ‚Ζ‚Θ‚Α‚Δ‚’‚ι‚ζ‚€‚Ε‚·B
ˆΘ‰Ί‚ͺƒNƒbƒL[ŠΦ˜A‚̏ˆ—•”•ͺ‚Ε‚·B
‚Η‚€‚©‚¨’mŒb‚π‚¨‘έ‚΅‚­‚Ύ‚³‚’B

sub get_cookie {
local($cookie_id) = @_;
local %all_cookies = ();
foreach (split(/; /, $ENV{'HTTP_COOKIE'})) {
local($key, $value) = split(/=/);
$all_cookies{"$key"} = $value;
}
foreach (split(/&/, $all_cookies{"$cookie_id"})) {
local ($key, $value) = split(/:/);
$value =~ s/&/&/g;
$value =~ s/</</g;
$value =~ s/>/>/g;
$value =~ s/"/"/g;
$cookie{&unescape($key)} = &unescape($value);
}
return %cookie;
}


ŽŸƒy[ƒW
ΕVƒŒƒX•\ަ
ƒXƒŒƒbƒh‚ΜŒŸυ
—ήŽ—ƒXƒŒˆκ——
˜b‘θ‚Μƒjƒ…[ƒX
‚¨‚ά‚©‚ΉƒŠƒXƒg
₯ƒIƒvƒVƒ‡ƒ“‚π•\ަ
‰Ι‚Β‚Τ‚΅2ch

4804“ϊ‘O‚ɍXV/190 KB
’S“–:undef