#!/usr/bin/perl #+----------------------------------------+ #| スレッド表示対応掲示板 | #| - BULLETIN BOARD Pro - Ver1.0 98/01/31 | #| bbpro.cgi | #| (c)1997-8 Takeshi Iwanami | #| akira67@po.jah.or.jp | #| http://www.jah.or.jp/~akira67/perl/ | #| ※このスクリプト群はシェアウエアです。 | #| ※継続使用の場合はレジスト料金をお支払 | #| いの上ご利用ください。 | #| ※サポートページの利用規定を遵守してく | #| ださい。再配布および転貸等は一切認めな | #| いものとします。 | #+----------------------------------------+ # このスクリプトは、投稿フォームを表示するための # ものです。 use Pg; require 'jcode.pl'; require 'bbpro_lib.pl'; require 'bbpro_conf.pl'; require 'tag.pl'; &setver; &conf; $ENV{"PGCLIENTENCODING"} = "SJIS"; if ($ENV{REMOTE_HOST} eq $ENV{REMOTE_ADDR} or !$ENV{REMOTE_HOST}) { $host = gethostbyaddr(pack('C4',split(/\./,$ENV{REMOTE_ADDR})),2) || $ENV{REMOTE_ADDR}; } else { $host = $ENV{REMOTE_HOST} || $ENV{REMOTE_ADDR}; } if ($limit) { @domain = split(/ +/, $domain); foreach (@domain) { if ($host =~ /$_/) { &error('あなたのアクセス元のドメインからは投稿できません。'); } } } $query_string = $ENV{'QUERY_STRING'}; if ($query_string && $query_string !~ /^\d{4}$/) { &error('引数の指定が間違っています。'); } if (!$query_string) { $resmsg = '新規投稿'; } else { $db = Pg::connectdb("dbname = bbpro user = postgres"); $sql = "select * from log where msg_no='$query_string'"; $dataset = $db->exec($sql); if ($msg = $db->errorMessage) { &error($msg,$sql); } if (@data = $dataset->fetchrow) { foreach (@data) { &jcode'convert(*_, 'sjis'); } ($msg_no,$stat,$sled,$g_parent,$parent,$child,$date,$subject,$name, $email,$url,$comment,$remote_host,$user_agent,$passwd,$pre, $script_name,$comment2,$solved,$email_open,$email_send) = @data; } else { &error("指定された投稿番号(No.$query_string)のデータがありません。"); } $comment =~ s/!BR!/\n/g; $comment = tag::conv($comment,"m"); @comment = split(/\n/, $comment); foreach (@comment) { $_ = '》'.$_; } $comment = join("\n", @comment); ### 2006-11-12 タグなどをエスケープ $comment = html_output_escape($comment); $resmsg = <[$msg_no]$subject ($nameさん)への返事 RESMSG if ($subject =~ /^re: *\D*/i) { $subject =~ s/^re: */Re\^2: /i; } elsif ($subject =~ /^re\^(\d*): */i) { $resno = $1 + 1; $subject =~ s/^re\^(\d*): */Re\^$resno: /i; } else { $subject = 'Re: ' . $subject; } $resto = "$name さま\n\n"; } my $script_name_list; open(R, "script_name.txt") or error("script_name.txtが開けませんでした。: $!"); while () { my($k, $v) = split(/\t/); my $selected = $k eq $script_name ? "selected" : ""; $script_name_list .= qq{