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

[過去ﾛｸﾞ] bbs.cgi再開発プロジェクト 3 (1001ﾚｽ)
上下前次 1-新
通常表示 512ﾊﾞｲﾄ分割ﾚｽ栞

このｽﾚｯﾄﾞは過去ﾛｸﾞ倉庫に格納されています｡
次ｽﾚ検索歴削→次ｽﾚ栞削→次ｽﾚ過去ﾛｸﾞﾒﾆｭｰ

907:  ◆cZfSunOs.U  [sage] 04/11/15 22:41:54 ID:ZCkDk6ko

read.cgi はともかく bbs.cgi で mod_cgidso を使うとなると，
普通の実行可能バイナリじゃなくて共有オブジェクトにしなきゃいけないとか，
自前でリソース解放してくれないとどんどんリークしていっちゃうとかで，
perlcc で直接バイナリ作るんじゃなくて，生成された C コードを
手作業で直さなきゃならないんでしょうけど......

まぁ bbs.cgi に関しては，fork() させないようにするなら
mod_perl の方が現実的かなとは思います．

あとは，suExec の代替措置も必要なんでしょうけど，
perchild MPM よりも安定して動くと言われているのがこれ．
　　　　Metux MPM http://nibiru.borg.metux.de:7000/wiki.mpm/

**********************************************************************

個人的に bbs.cgi 関連で気になっているのは，まずは ftp のリンク URL が
おかしくなること (ex. ftp://core.ring.gr.jp/pub/ )．これは ime.nu で
ftp リンクを扱えるようになっていなければ，ime.nu を入れず直リンに
した方がいいのかも知れませんけど．

あとは，NAME/MAIL の Cookie の問題ですね．設定がサーバサイド，
読み出しがクライアントサイドという不整合のため，Mozilla 等では
文字化けしてしまうと．現状では Set-Cookie ヘッダで設定していますが，
これを JavaScript の方で設定すればいいのではないかな，と．
とはいえ，bbs.cgi 出力に Cookie 設定用 JavaScript コードを入れると，
" や \ を \ でエスケープさせる必要がありますが，Shift JIS だと
漢字等の2バイト目が \ になることもあるんで，この判定をきっちりやるのも
結構大変か......むしろ bbs.cgi 出力では行わず，投稿フォーム側の
onsubmit() でこの処理をやらせた方が安全ですかね．

http://qb5.5ch.net/test/read.cgi/operate/1076666901/907

908:  ◆cZfSunOs.U  [sage] 04/11/15 22:43:05 ID:ZCkDk6ko

その場合の各板トップ及び read.cgi 出力の JavaScript コード変更案．
----------------------------------------------------------------------
onload = function(e) {
    var N = getCookie("NAME"), M = getCookie("MAIL"), i;
    with (document)
        for (i = 0; i < forms.length; i++)
            if (forms[i].FROM && forms[i].mail) {
                forms[i].FROM.value = N;
                forms[i].mail.value = M;
                if (forms[i].addEventListener)
                    forms[i].addEventListener("submit", setCookie, false);
                else
                    forms[i].onsubmit = setCookie;
            }
};

if (!Date.prototype.toUTCString)
    Date.prototype.toUTCString = Date.prototype.toGMTString;

function setCookie(e) {
    var exp = new Date();
    exp.setMonth(exp.getMonth() + 1);
    document.cookie = "NAME=" + escape(this.FROM.value) + "; path=/; expires=" + exp.toUTCString();
    document.cookie = "MAIL=" + escape(this.mail.value) + "; path=/; expires=" + exp.toUTCString();
}

function getCookie(key, tmp1, tmp2, xx1, xx2, xx3, len) {
    tmp1 = " " + document.cookie + ";";
    xx1 = xx2 = 0;
    len = tmp1.length;
    while (xx1 < len) {
        xx2 = tmp1.indexOf(";", xx1);
        tmp2 = tmp1.substring(xx1 + 1, xx2);
        xx3 = tmp2.indexOf("=");
        if (tmp2.substring(0, xx3) == key)
            return unescape(tmp2.substring(xx3 + 1, xx2 - xx1 - 1));
        xx1 = xx2 + 1;
    }
    return "";
}

http://qb5.5ch.net/test/read.cgi/operate/1076666901/908

949: 動け動けウゴウゴ２ちゃんねる [sage] 04/12/02 17:20:37 ID:YeLg7Dw8

こういうノリではいかがでしょうか。

&bbs_main;
exit;

sub bbs_main {
my $GB = {};
$GB->{version} = "BBS.CGI - 2005 (for SpeedyCGI)";
$GB->{NOWTIME} = time;#現在時刻
$ENV{'TZ'} = "JST-9";#日本
#$ENV はそのまま使う
my %FORM;
$GB->{FORM} = {};
&foxReadForm($GB);#$FORM を読み込む

&DispError2($GB, "FOX ★","FOX ★　ふふふっ");
return;
}

sub DispError2
{
my ($GB, $title, $topic) = @_;

print "Content-type: text/html; charset=shift_jis\n\n";
#-----------------------------------------------------------------------
print <<EOF;
<html>
<head>
<title>$GB->{title}</title>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
</head>
<body bgcolor="#FFFFFF">
$GB->{topic}
<ul>
 ホストHOST GB->{FORM}->{'subject'} 
名前： $GB->{FORM}->{'FROM'} E-mail： $GB->{FORM}->{'mail'} 
内容： $GB->{FORM}->{'MESSAGE'} 
</ul>
<center>こちらでリロードしてください。<a href="../$GB->{FORM}->{'bbs'}/index.html"> GO! </a> 
分からないことがあったら<a href="http://info.2ch.net/guide/">２ちゃんねるガイド</a>へ。。。 
アクセス規制・プロキシー制限等規制は、<a href="http://2ch.tora3.net/">２ちゃんねるビューア</a>
を使うと回避できることがあります。
</center>

time=$GB->{NOWTIME} 
$GB->{version}
</body>
</html>
EOF
#-----------------------------------------------------------------------
exit;
}

http://qb5.5ch.net/test/read.cgi/operate/1076666901/949

961: 動け動けウゴウゴ２ちゃんねる [sage] 04/12/02 18:17:51 ID:YeLg7Dw8

うひょ。

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;
}

http://qb5.5ch.net/test/read.cgi/operate/1076666901/961

上下前次 1-新書関写板覧索設栞歴

あと 31 ﾚｽあります
ｽﾚ情報赤ﾚｽ抽出画像ﾚｽ抽出歴の未読ｽﾚ

ぬこの手ぬこTOP 0.050s