お前らのデスクトップを晒してくださいinFF・DQ板

301 ：名前が無い＠ただの名無しのようだ：03/03/27 02:07 ID:28/TROH5

##################################################
#############☆(03)フォームのデコード☆###########
##################################################
sub decode {
if ($ENV{'REQUEST_METHOD'} eq "POST") {
read(STDIN, $buffer, $ENV{'CONTENT_LENGTH'});
} else { $buffer = $ENV{'QUERY_STRING'};}

@pairs = split(/&/,$buffer);
foreach $pair (@pairs) {
($name, $value) = split(/=/, $pair);
$value =~ tr/+/ /;
$value =~ s/%([a-fA-F0-9][a-fA-F0-9])/pack('H2',$1)/eg;
$FORM{$name} = $value;
}
}

302 ：名前が無い＠ただの名無しのようだ：03/03/27 02:08 ID:28/TROH5

＞＞３００
（・３・）エェー
なんで悪質なんだYO－？
まじめに質問してるのにさー

303 ：名前が無い＠ただの名無しのようだ：03/03/27 02:10 ID:28/TROH5

##################################################
################☆(04)全板表示☆##################
##################################################
sub allview{
open(BOARD,"./board.txt");
print <<"_EOF_";
<table border=1><tr>
_EOF_
$count=0;
while(<BOARD>){
($board,$bbstitle,$oekakiyes,$itenyes)=split(/<>/);
if($itenyes ne "yes"){
if($count != 0 && $count%4 == 0){print "</tr><tr>";}
$count++;
print <<"_EOF_";
<td><a href="allview.cgi?mode=ita&bo=$board">$bbstitle</a></td>
_EOF_
}}
print "</tr></table>";
close(BOARD);
&footer;

}