ﾚｽ書き込み

bbs.cgi再開発プロジェクト 3

PC,ｽﾏﾎ,PHSは ULA べっかんこ公式(ｽﾏﾎ) 公式(PC) で書き込んでください｡

名前
ﾒｰﾙ
引用切替：ﾚｽｱﾝｶｰのみ

>>961
> うひょ。
> 
> sub foxReadForm
> {
> my ($GB) = @_;
> 
> my $query_string = undef;
> my (@m_elements, $m_element, $name, $value);
> my $FORM = $GB->{FORM};
> 
> #環境変数からＰＯＳＴのでーたをもらう～
> if ($ENV{'REQUEST_METHOD'} eq "POST") {
> read(STDIN, $query_string, $ENV{'CONTENT_LENGTH'});
> @m_elements = split(/&/, $query_string);
> foreach $m_element (@m_elements) {
> ($name, $value) = split(/=/, $m_element);
> $value =~ s/\0//g;
> $value =~ tr/+/ /;
> $value =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
> $value =~ s/</</g;
> $value =~ s/>/>/g;
> $value =~ s/\r\n|\r|\n/ /g;
> $value =~ s/ / /g;
> $value =~ s/[\0\x00-\x1f]//g;
> 
> $FORM->{$name} = "$value";
> }
> }
> 
> 
> #１行データからは改行を削ってタグを閉じます
> $FORM->{'subject'} =~ s/\#//g;
> $FORM->{'subject'} =~ s/ //g;
> $FORM->{'subject'} =~ s/&//g;
> 
> $FORM->{'FROM'} =~ s/"/"/g;
> $FORM->{'FROM'} =~ s/ //g;
> $FORM->{'mail'} =~ s/"/"/g;
> $FORM->{'mail'} =~ s/ //g;
> 
> $FORM->{'bbs'} =~ s/\|//g;
> $FORM->{'bbs'} =~ s/\\//g;
> $FORM->{'key'} =~ s/\|//g;
> $FORM->{'bbs'} =~ s/\.//g;
> $FORM->{'key'} =~ s/\.//g;
> $FORM->{'bbs'} =~ s/&//g;
> $FORM->{'key'} =~ s/&//g;
> $FORM->{'time'} =~ s/\D//g;
> $FORM->{'bbs'} =~ s#/##g;
> $FORM->{'key'} =~ s#/##g;
> 
> 
> $FORM->{'subject'} =~ s/&r//g;
> $FORM->{'FROM'} =~ s/&r//g;
> $FORM->{'mail'} =~ s/&r//g;
> }

ﾛｰｶﾙﾙｰﾙ SETTING.TXT

他の携帯ﾌﾞﾗｳｻﾞのﾚｽ書き込みﾌｫｰﾑはこちら｡書き込み設定で書き込みｻｲﾄの設定ができます｡
・ULA
・べっかんこ(身代わりの術)
・べっかんこ(通常)
・公式(ｽﾏﾎ)
・公式(PC)[PC,ｽﾏﾎ,PHS可]

書き込み設定(板別)で板別の名前とﾒｰﾙを設定できます｡

上下板覧索設栞歴

ぬこの手ぬこTOP 0.009s