yƒXƒŒƒbƒhz2chŒ^ŒfŽ ..
[
2ch
|
¥Menu
]
¡ƒRƒsƒyƒ‚[ƒh
ƒXƒŒ‚ð’Êí•\ަ
ƒIƒvƒVƒ‡ƒ“ƒ‚[ƒh
‚±‚̽گÄÞ‚ÌURL
¡€–ÚƒeƒLƒXƒg
612:608 06/09/27 19:31:36 >>611 ‚ ‚肪‚Æ‚¤‚²‚´‚¢‚Ü‚·B Žv‚¢‚‚‘Îô‚Í Sift_jis‚Ì@/bbs/dat/****.dat (2chƒuƒ‰ƒEƒU UTF-8‚Ì@/bbs/dat-utf8/****.dat (read.html‚ÅŽg—p ‚Æ“ñ‚‚̃tƒ@ƒCƒ‹‚ðì‚é Œ‡“_F‘‚«ž‚ÝŽž‚ɃƒO‚ð“ñ‚Âì‚é‚킯‚¾‚©‚çbbs.cgi‚ł̕‰‰×‚ªŒ‹\‚©‚©‚Á‚Ä‚µ‚Ü‚¤‚©‚àH Œã‚ÍEEEJavaScript‚łǂ¤‚É‚©‚µ‚Ä“Ç‚ß‚é‚æ‚¤‚É‚·‚é‚®‚ç‚¢‚Å‚·‚©‚Ë EEEãŽè‚‚¢‚Á‚½‚Æ‚µ‚Ä‚àƒuƒ‰ƒEƒU‚É‚æ‚Á‚Ä“®ì‚ª‚¨‚©‚µ‚‚Ȃ肻‚¤ 613:nobody‚³‚ñ 06/09/27 20:34:35 >>606 ƒlƒ^‚Ƀ}ƒWƒŒƒX 614:608 06/09/27 22:05:38 ‚Æ‚è‚ ‚¦‚¸A휂µ‚Ü‚µ‚½B “ñ‚‚̃tƒ@ƒCƒ‹‚ðì‚é[‚Á‚ÄŠ´‚¶‚Å0ch‰ü‘¢‚µ‚Ă݂܂·B o—ˆ‚½‚çEEE‚Å‚·‚ªorz 615:nobody‚³‚ñ 06/09/28 08:35:21 #!/usr/bin/perl -w use strict; use POSIX qw(strftime); use File::stat; use Time::Local qw(timegm); if ($#ARGV != 1 || $ARGV[0] =~ /\W/ || $ARGV[1] =~ /\D/) { @ @ print <<EOT; Status: 400 Bad Request Content-Type: text/plain 400 Bad Request EOT @ @ exit; } my $fname = "../$ARGV[0]/dat/$ARGV[1].dat"; my $st; if (!($st = stat($fname))) { @ @ print <<EOT; Status: 404 Not Found Content-Type: text/plain 404 Not Found EOT @ @ exit; }
ŽŸƒy[ƒW
ÅVƒŒƒX•\ަ
ƒXƒŒƒbƒh‚ÌŒŸõ
—ÞŽ—ƒXƒŒˆê——
˜b‘è‚̃jƒ…[ƒX
‚¨‚Ü‚©‚¹ƒŠƒXƒg
¥ƒIƒvƒVƒ‡ƒ“‚ð•\ަ
ƒŒƒXƒWƒƒƒ“ƒv
mixiƒ`ƒFƒbƒNI
Twitter‚É“Še
ƒIƒvƒVƒ‡ƒ“
‚µ‚¨‚è‚ð‹²‚Þ
ƒXƒŒƒbƒh‚É‘ž
ƒXƒŒƒbƒh‚̈ꗗ
‰É‚‚Ԃµ2ch
4337“ú‘O‚ÉXV/224 KB
’S“–:undef