12chBBS★タカヒロ＠みちのく掲示板スレッド
みちのく掲示板
http://mitinoku.jp/frame.html
配布・サポート掲示板
http://bbs.mitinoku.jp/m_support/
配布先
http://netabbs.info/test/read.cgi/rinji/1117213783/289n
改行 ; , 半角スペース など試したがダメでした。１こしか登録してないとちゃんと反映されます
----修正場所 ２箇所-------------------------------------------------
■admin/make.cgi
・Line2093 (Sub DecodeAdmin内
-------------------------------------------------
if ($name =~ /filterchar/i or $name =~ /denyip/i or $name =~ /msg/i or $name =~ /comtop/i or $name =~ /combuttom/i) { $value =~ s/\r//g; }
--------------------------------------------------
を 下記と置き換える( フォームデコードが抜けてる)
-------------------------------------------------
if ($name =~ /dwords/i or $name =~ /filterchar/i or $name =~ /denyip/i or $name =~ /msg/i or $name =~ /comtop/i or $name =~ /combuttom/i) { $value =~ s/\r//g; }
--------------------------------------------------
■admin/make.cgi・Line148
--------------------------------
<textarea wrap="off" rows="7" cols="60" name="dwords">
$denyw
</textarea></td></tr>
--------------------------------
を 1行にする。（余分な改行や空白が入るのを防止）
--------------------------------
<textarea wrap="off" rows="7" cols="60" name="dwords">$denyw</textarea></td></tr>
--------------------------------
Tips
禁止ワードを 板別に設定したい場合は、
lib.pl の Line68
$denywfile = "deny.cgi"; を
$denywfile = "$basepath/$bbs/deny.cgi";
admin/make.cgi の Line40
my $dwfile = '../deny.cgi'; を
my $dwfile = '../$bbs/deny.cgi';
登録画面は、 admin/make.cgiの Line147を Line1812～に設定面倒だーたら、deny.cgiをローカルで作成して、FTP転送でもよし
カキコ・ログへの docomo のホスト名の取得
bbs.cgi
$rip = ($host =~ /localhost|127\.0\.0\.1|192\.168\.|proxy|cache|^・・・・
$userhost = ($rip =~ /localhost|127\.0\.0\.1|192\.168\.|proxy|cache|^・・・・
docomoのアドレスは proxy** ですので、 proxy| を削除 すると良いようです。
$rip = ($host =~ /localhost|127\.0\.0\.1|192\.168\.|cache|^・・・
$userhost = ($rip =~ /localhost|127\.0\.0\.1|192\.168\.|cache|^・・・
ttp://www.google.co.jp/search?sourceid=navclient&hl=ja&ie=UTF-8&rls=GGLD,GGLD:2005-22,GGLD:ja&q=%28C%29+%E3%82%BF%E3%82%AB%E3%83%92%E3%83%AD%EF%BC%A0%E3%81%BF%E3%81%A1%E3%81%AE%E3%81%8F%E6%8E%B2%E7%A4%BA%E6%9D%BF
自分も使ってますが、いろいろと改造しないと不具合もあるようなので報告しあいましょう
ホスト規制の強化・・かな
Denyホストで * や? を使えるようにしました。
bbs.cgi
# ｱｸｾｽ規制
sub denyhost {
open(IN, $denyhost);
while (<IN>) {
chomp;
my $host = $_;
$host =~ s/^\s+//; # 前" " → ""
$host =~ s/\s+$//; # 後" " → ""
$host =~ s/\./\\\./g; # "." → "\."
$host =~ s/\?/\./g; # "?" → "."
$host =~ s/\*/\.\*/g; # "*" → ".*"
if ($host eq '') { next; }
if ($_[0] =~ /$host/) { return undef; }
}
close(IN);
return 1;
}
>>12の説明
--サンプル--
193.178.0.* REMOTE_ADDR 193.178.0全て
190.178.0.1?0 193.178.0.100,193.178.0.110・・193.178.0.190
hoge.* hogeというホストからのアクセス全て
*.hoge.ne.jp hoge.ne.jpドメインからのアクセス全て
ppp*.hoge.ne.jp hoger.ne.jpのアクセスポイント全て(主にダイヤルUP接続）
ppp5??.provider.ne.jp provider.ne.jpのアクセスポイントの500番台
*.ed.jp ed.jpドメイン全て
.ed.jp ed.jpドメイン（従来の表記法方）
*hoge* hoge が含まれるホスト
hoge hoge が含まれるホスト（従来の表記法方）
Deｎｙ判定は ホスト名（REMOTE_HOST）が取得できる場合は、ホスト名が優先されます。
・例えば 荒らしAの ホスト名が ppp123.hoge.ne.jp IP（REMOTE_ADDR）が 123.123.123.010 で合った場合
Denyホストに 123.123.123.010 を登録してもアク禁にできません。
１２ｃｈのログで表示される情報が ホスト名なら ホスト。IPなら、IP を設定 Denyホストに設定
・ 大文字と小文字は区別される ppp123.hoge.ne.jpとPPP123.hoge.ne.jpは違う
Denyホストは、ログで保存された情報を元に！ です。
FOMA以前のDOCOMOの場合は、PC画面から投稿しても発生しません。
原因は、
FOMAは、DoCoMo/2.0 、FOMA以前は DoCoMo/1.0 であり、
DoCoMo/2.0はPC用EUC画面からの投稿は、EUCで投稿しようとするためです。
12chスクリプトは、Sjisしかないdocomo世代であったため
HTTP_USER_AGENTで、DoCoMo が含まれる場合すべてsjis と認識します。
対策
lib.pl
# ﾃﾞｺｰﾄﾞ処理
sub Decode { の
my $code = 'sjis' if $ENV{HTTP_USER_AGENT} =~ /DoCoMo/i or・・・
のところ
/DoCoMo/i を /DoCoMo\/1.0/i に変更
ｻﾌﾞｽｸﾗｲﾊﾞ
$ENV{'HTTP_X_UP_SUBNO'} で処理すればいいんじゃないか。
書き込みの拒否はできるけど
閲覧自体の拒否index2.htmに
ｱｸｾｽできないようにはできないのでしょうか？
unt
untだけじゃ管理画面に表示されないので表示させる方法は？
どうすれば使えるようになるんだ？
*.html を規制するなら、.htaccessでしょう
>>24
ついてなかったんじゃないかな。
私は下記を改造した。
http://www.gankeijiban.com/12chPrg/v100/read2.txt
うおおおおおおありがとーまじでこれは
http://bbs.mitinoku.jp/test/read.cgi/m_support/1007473556/57
imode用省略を追加
imode用省略を追加
imode用省略を追加
imode用省略を追加
( ﾟДﾟ )
どうすればいいですかね？
で、
>ＩＤ表示させたくないんです
ってなんだ？ 日本語見直して出直しなさい。
一部の板で表示させたくないってこと
なんで最初にそれを言わないの？
ならないならなるようにしたらいいじゃないか！
???じゃなくてＩＤ自体をその板から消したい
どういうことですか？
その程度もわからんのだったら改造なんかすな
円滑な進行のためのお願い
・外国の方は事前に十分に日本語の勉強を行い、正しい言葉でご質問ください
==================================================
だが板ごとに表示させるか表示させないか選びたいので・・・・・
だが板ごとに表示させるか表示させないか選びたいので・・・・・
って、喜んでんじゃねーよ。 オマイにな無理。
悪いことは言わないから、使うのやめな。
http://rentalbbs.livedoor.com/jbbs/ で借りろ
1:名前 日付 ID
あああああああああ
―――――――
名［ ］
メ［ ］
本［ ］
［送信］
こゆことか？
まぁ、そんな感じ
1:名前 日付 ID
あああああああああ
60:名前 日付 ID
あああああああああ
61:名前 日付 ID
あああああああああ
―――――――
名［ ］
メ［ ］
本［ ］
［送信］
こんなような
検索やＵＲＬ直だと何の問題なく行ける
どこがおかしいのかわからん
アドバイスくれー
あと固体識別番号取得できねぇ
ヒント：pageview
お前まさか・・・・・・・
改知ってるか？
サブスクライバ。。正規表現が良くわかんねけど
#ホスト名にezwebとある けど、サブスクライバがない！
if( index($userhost, "ezweb") >0 && $ENV{'HTTP_X_UP_SUBNO'}=='' )
{
Error(' あんたなんか、投稿させませんyo！小細工すんじゃねぇーよ！');
}
かな。
俺はezwebの場合、ＵＡ（USER_AGENT）をくっ付けてるよ。
ＵＡに機種名が含まれるから、最悪、その機種名でアク禁にできるからさ
if( index($userhost, "ezweb") >0 ){
$userhost .= '_' . $ENV{'HTTP_USER_AGENT'} . "_" . $ENV{'HTTP_X_UP_SUBNO'};
}
-------------------------------------
>>80 の件の原因がわかりましたので、
お悩みの方は修正してください。
パスの設定がバグっているようです。
pageview.cgi
35行目$itherad .= の行の ../read.cgi? を $basepath/read.cgi?
38行目next の行の ../pageview.cgi? を $basepath/pageview.cgi?
62行目next の行の ../pageview.cgi? を $basepath/pageview.cgi?
../ を $basepath/ もしくは ./ とするといいようです。
bbs.cgiは変更しなくていいです
いや俺が聞きたいのは改で12ch弄ってるやつなのか？って聞きかっただけ
ちなみにもどきはそんなエラー起こってないぞ？
それはどこに入れれば？
・・・・・・・・ネタか？
？
多分人違いだよ
lib.pl か、bbs.cgi で
$userhost ってのある直後。
とりあえず、 、「サブスクライバがなかったら全部拒否」にして
if( index($userhost, "ezweb") >0 && $ENV{'HTTP_X_UP_SUBNO'}=='' )
を
if( $ENV{'HTTP_X_UP_SUBNO'}=='' ) で ＰＣもなんでもかんでも拒否
にして、試す。
いい按配だったら 条件を戻す。
if( index($userhost, "ezweb") >0 && $ENV{'HTTP_X_UP_SUBNO'}=='' )
Ｅｚを持ってない場合は、これで試すしかない。（私も持ってない）
その後、特に最終の2.03は、バグが多いよ。
例えば
>>3 のバグなんて、タカヒロさんらしくないバグ。
多分、受けついだ例の人がアホすぎたせいです。
教えて下さい
って？？
あんた、>>59の意味わかっての？ ブァカですか？
遅すぎだが
なんやお前？
スレ違い
ありがとう
う～んDoCoMoのUA取得できねぇ・・・・orz
プレビュー画面（確認画面）になるように改造できないでしょうか？
スパムの防御にも使えそうですし
#
●Step1：
---- bbs.cgi から、下記を探す -------------------------
print $FORM{mode} eq 'i' ? "Location: http://$ENV{SERVER_NAME}$ipath$bbs/i.html\n\n" : "Location: $rfhtml\n\n";
---- 下記と置き換える -------------------------
#
###### Finish_12ch V1 20061023 #######
#
# sub Finish_12chを最下部に追加
#
#print $FORM{mode} eq 'i' ? "Location: http://$ENV{SERVER_NAME}$ipath$bbs/i.html\n\n" : "Location: $rfhtml\n\n";
if($FORM{mode} eq 'i'){
prin "Location: http://$ENV{SERVER_NAME}$ipath$bbs/i.html\n\n";
else{
Finish_12ch();
}
## Finish_12ch End ###################
#------------------------------------------
●Step２：
bbs.cgiの一番下に 下記を追加
### Finish_12ch ##############
# V1 20061023
#
# デフォルト 5秒:content=5
#
sub Finish_12ch {
print <<"EOF";
Content-type: text/html
<html>
<head>
<title>書きこみました。</title>
<meta http-equiv="Content-Type" content="text/html; charset=EUC-JP">
<meta content=5;URL=$rfhtml http-equiv=refresh>
</head>
<body>
書き込みが終わりました。
<br><br>画面を切り替えるまでしばらくお待ち下さい。
</body>
</html>
EOF
}
###### 書込みました しばらくお待ちください の表示######
#
●Step1：
---- bbs.cgi から、下記を探す -------------------------
print $FORM{mode} eq 'i' ? "Location: http://$ENV{SERVER_NAME}$ipath$bbs/i.html\n\n" : "Location: $rfhtml\n\n";
---- 下記と置き換える -------------------------
#
###### Finish_12ch V1 20061023 #######
#
# sub Finish_12chを最下部に追加
#
#print $FORM{mode} eq 'i' ? "Location: http://$ENV{SERVER_NAME}$ipath$bbs/i.html\n\n" : "Location: $rfhtml\n\n";
if($FORM{mode} eq 'i'){
print "Location: http://$ENV{SERVER_NAME}$ipath$bbs/i.html\n\n";
}else{
Finish_12ch();
}
## Finish_12ch End ###################
#------------------------------------------
Line４００前後の # imode用のﾌﾙURLの後のトコです
# 12chスクリプト
# 書込み確認画面の作成
#
# クッキーの有効期限は1日にしました
#
############################
#
# V1.0 20061024
#
############################
#
【Step1】bbs.cgi より 下記を見つける
------------------
# ﾚｽｶｷｺﾐ処理
else {
------------------
この下に 下記を追加
------------------
if($ENV{'HTTP_COOKIE'} eq "" && $FORM{mode} ne 'i'){
Agree_12ch();
}
------------------
#--------------------------------------------
#書き込み＆クッキー確認画面
#
sub Agree_12ch {
my $dem = '.';
$comment_agree = $FORM{comment};
$comment_agree =~ s/\0/\n/g;
print <<"EOF";
Content-type: text/html
<html>
<head>
<title>書き込み＆クッキー確認画面</title>
<meta http-equiv="content-type" content="text/html; charset=$charcode">
<SCRIPT LANGUAGE="JavaScript"><!--
function setCookie(formobj) {
var newname = formobj.elements["name"].value;
var newmail = formobj.elements["mail"].value;
kigen = new Date();
kigen.setTime(kigen.getTime() + (1 * 1000 * 60 * 60 * 24));
stkigen = kigen.toGMTString();
var getdate = "expires=" + stkigen + "; path=/;";
document.cookie = "NAME=" + escape(newname) + "; " + getdate;
document.cookie = "MAIL=" + escape(newmail) + "; " + getdate;
document.cookie = "KAKUNIN=" + escape("OK") + "; " + getdate;
return(true);}
//--></SCRIPT>
</head>
自分でやろうさ。 私はもう、このスレには書かない。
自己責任でお願いします
●書込みました。しばらくお待ちください の表示
ttp://www.gankeijiban.com/12chPrg/Finish_12ch.txt
●書込み確認画面 の表示
*)確認画面で投稿内容の編集も可能
ttp://www.gankeijiban.com/12chPrg/Agreement.txt
どこをいじれば出来んのかな？
あれをどうにかしたいのですが、レベルが高すぎて私にはできません･･･。
どなたが腕の立つ方、お願いします。
あと携帯画面でスレ表示が１０になっているのを２０にしたいのですが。
併せてご教授お願いします。
IDに関しては、下記で作っている
---------------------------------------------------
bbs.cgi で
$uid = $cid == 1 ? makeid($userhost) : $mail ne '' ? '???' : makeid($userhost);
で呼び出し
# ID作成
sub makeid {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
my $id = crypt (crypt ($_[0], $mon), $mday + 31);
return substr ($id, -8);
}
-----------------------------------------
$_[0]の$userhostは、ホスト名があればホスト名、なければIPが入る。
ホスト名が近すぎるのかもしれないです。
だから、多分、IP（$ENV{'REMOTE_ADDR'}）で作ればよいと思う
sub makeid {
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime($time);
my ($ip1, $ip2, $ip3, $ip4) = split(/\./,$ENV{'REMOTE_ADDR'});
my $idkey = $ip1 + ($ip2 * 300) + ($ip3 * 5000) + ($ip4 * 12000);
my $id = crypt (crypt ($idkey, $mon), $mday + 31);
return substr ($id, -8);
}
ただ、携帯（特にFOMA）の場合、IPがころころ変わります
携帯の場合、$idkeyをIPではなく、UID（個体識別番号）でつくるべき。
UIDの取得、未登録拒否 が必要。ここらは携帯のUIDを取得しているいないで変わります
取りあえず Docomo（UTN）は
read.cgiの携帯のフォームのトコに utn を入れる
「････name="mode" value="i"」ってトコが携帯の部分
<form action="bbs.cgi" method="POST">
を
<form action="bbs.cgi" method="POST" utn>
とする................
で、下記のようになる
-----------------------------------
<center>
<form action="bbs.cgi" method="POST" utn>
<input type="hidden" name="bbs" value="$bbs">
<input type="hidden" name="key" value="$key">
<input type="hidden" name="time" value="$maketime">
<input type="hidden" name="mode" value="i">
それと、携帯でスレ立てOKとしてるなら、
basei.htmlのスレたてのformに utn と入れる
Ｄｏｃｏｍｏの場合、機種が503,FOMA以降でないと、投稿は出来なくなります
それ以前を投稿させたい場合は、機種で判定するなど必要。
## 携帯チェック################
if( index($userhost, "ezweb") >0 && $ENV{'HTTP_X_UP_SUBNO'}=='' )
{
Error('Ａｕさん：携帯情報が不足してますよ。');
}
elsif(($userhost =~/\.docomo\.ne\.jp/) && $ENV{'HTTP_USER_AGENT'} !~ /ser([a-zA-Z0-9]+)/i)
{
Error('Ｄｏｃｏｍｏさん：携帯情報が不足してますよ。');
}
elsif(($userhost =~/\.jp-[cdhknqrst]\.ne\.jp/) && $ENV{'HTTP_USER_AGENT'} !~ /\/SN([a-zA-Z0-9]+) /i)
{
Error('ＳｏｆｔＢａｎｋさん：携帯情報が不足してますよ。');
}
###############################
ＳｏｆｔＢａｎｋのとこは持ってないので不安があります。
動作報告まってます。
報告が無ければ、二度と私はこのスレに協力しません (o*。_。)oペコッ
併せてご教授お願いします。
------------------------------------------
改造中 投稿日：2002/09/21(土) 16:49
変更内容：
「i.htmlで表示されるスレ数が上位１０件」
これを、２０件にしたい
変更箇所：
bbs.cgi の ３１０行目位からの
# imode用のHTMLﾌｧｲﾙ作成 のところ。
foreach (0 .. 9) {
変更内容：
９ を １９に変更する。
foreach (0 .. 19) {
http://bbs.mitinoku.jp/test/read.cgi/m_support/1009383798/61
pageview.cgi
------------------------------------------
if ($FORM{mode} eq 'i') {
foreach ($startpage..$endpage) {
を、下記と変更
my $imaxthread= 20; # １ページ表示スレ数 20
my $istartpage = ($page - 1) * $imaxthread;
my $iendpage = ($istartpage + $imaxthread) - 1;
if ($FORM{mode} eq 'i') {
#foreach ($startpage..$endpage) {
foreach ($istartpage..$iendpage) {# 表示件数変更
------------------------------------------
それと、次 とかが変ならパス >>60
そもそも、pageview.cgiはバグが多いかも..
ありがとうございますです。
取り入れてみたいと思います。
それに呼応して、携帯の20件表示も元の10件に。
どうしたらよいのでしょうか？
１投稿毎に、PC用と携帯用のTOPページは作ってるから
リメイクに失敗してるってことだろうけど。。
作っているのは、bbs.cgiの sub makeindexfile 。
そこから、lib.plのsub Menuなどを呼んでる。
skinファイル（板毎のレイアウト）のHTMLが変だとか、
もうちょっと詳しくわからんか？
サーバーの不具合っぽいなぁ～。
以前、サーバー屋の仮想メモリが一杯になって、㌧だことはあるけど。
bbs.cgi無いならのどこらへんに置いとけばいいですか？
それと>>87ですけど取得した情報を管理画面にも表示できるようにならないんでしょうか？
例えばline37位の下記の前
-----------------------
# ｽﾚ建て別画面
makeindexfile('ot') if $FORM{action} eq 'ot';
-----------------------
管理画面で観るならお手軽に、IPにくっ付ければよいです。
管理画面が横長になるけど、構わない。
でも、ＩＰを掲示板に表示してる場合は、
別に記録するか、表示の時に切るなどの処理は必要だろうけど。
ドコモとsoftbankはＵＡにくっ付いて来るから、
$userhost .= '_' .$ENV{'HTTP_USER_AGENT'};
$userhost .= '_' .$ENV{'HTTP_X_UP_SUBNO'}; //eZのサブスクライバ（必要なら
docomoの固体識別番号が取得できました
ありがとうございます
IDなのですがやはりdocomoの場合ころころ変わってしまいます
どうすればいいのでしょうか？
1部だけ取り出すのが面倒なら、ser****以下を全部つかってもいい。
IDは本来、変わりうるものだけど これだとかなり固定になるから良いのか悪いのか。
アイデアとしては、セッションIDみたいなモノを、Getやhiddenで付回すってもある
そこら辺は、Perlの携帯ショッピングカート系からパチルとよいよ。
画面が進んでも一意を保ち続けてるだろ。
できたら、ここに紹介してね。私は要らないけど他の人が助かるかも。
100～のスレッドの続きを読む