haneやらkageやらdameやら
teletypeやらpreやらnukeanasanやら
おみくじやら何やらの機能を付けたりして改造するスレです。
ぜろちゃんねるろだ
http://zeroch.ps.land.to/
○○/kako/index.html(過去ログページ)に、今古い過去ログが一番上にあり、
下に行くについて新しい日付のものへといっているのですが、それを逆にすることはできますでしょうか？
知ってる方がいましたら、どうか宜しくお願い致します！
kako.idxを開いて昇順を降順に並び替えると、
過去ログの表示が昇順に変わるのでそれだけでいいのでは？
それと質問なんですが2chの過去ログなど外部のログを移転する際、
今はdatをアップしてsubject.txtを書き換えてadmin.cgiから入ってindex更新しています。
これをadmin.cgiから入らずにアップローダのように外からアップして更新することって可能ですか？
使用しているのは060227版です。
レス有難うございます。
私のバージョンは20070124版なのですが、「kako.idx」とは、
「bbs/掲示板フォルダ名/kako/kako.idx」
ですよね？
私がsortして逆順にしたいのは
「bbs/掲示板フォルダ名/kako/index.html」
です。このファイルに生成されているデータを逆順にsortするために「module/celeborn.pl」の
sub OutputIndex{}の中を色々いじってみたのですがエラーばかり吐かれてしまい、途方にくれていました。
もしかしたら完全な勘違いをしているのかもしれませんが・・・
どうかご教授ください！
>>2、>>5の件が解決しました。
celeborn.plのsub OutputIndex{}のなかでforeachをする直前に
「@$pInfo2 = sort { $b cmp $a } @$pInfo; 」
を入れたら逆順にsortされました。
以上報告になります。
有難うございました。
remake.cgiゲットしたけどロダも内封してるとなおGJ
そこをなんとか。。。
http://アドレス/板アドレス/123/1234567890.htmlではなく、
http://アドレス/板アドレス/1234/12345/1234567890.htmlのようにするにはどうすればいいのでしょうか。
最新版（070124）です。
参考になるかどうかは分からないけど
/test/mordor/のbbs.pool.plの過去ログ生成の部分を以下に変更
539行目
$Logs->Add($key,$Dat->GetSubject(),time(),'/' . substr($key,0,4) . '/' .substr($key,0,5));
610行目
$logDir = $Sys->Get('BBSPATH') . '/' . $Sys->Get('BBS') . '/kako/' . substr($key,0,4) .'/' .substr($key,0,5);
出来ました。
ありがとうございます。
既出だけどかなり古いし完全ではないかもね
うちの環境だけかもしれないがauのは取得できるようになったけど既出の改造してもdocomoが未だに取得出来ないし
ほしい？
取得できないのは製造番号じゃなくてimodeID？
くれる？のなら欲しいよ
docomoユーザーあまり居ないけど出来るなら書込めるようにしてあげたいし
bbs.cgiの580行目ぐらい
sub GetProductInfo
{
my ($oConv,$agent) = @_;
my $product = undef;
my$host = $oConv->GetRemoteHost();
#docomoの場合
if($host =~ /\.docomo\.ne\.jp/){
$docomo = $ENV{'HTTP_X_DCMGUID'};
$product = $docomo;
}
#auの場合
elsif($host =~ /\.ezweb\.ne\.jp/){
$kddi = $ENV{'HTTP_X_UP_SUBNO'};
$product = $kddi;
}
#softbankの場合
elsif($host =~ /\.jp-.\.ne.jp/){
$agent =~ /SN([A-Za-z0-9]+)/;
$product = $1;
#$product = $ENV{'HTTP_X_JPHONE_UID'};
}
else{
$product = $oConv->GetRemoteHost();
}
return $product;
}
read.cgiの393行目ぐらい
$Page->Print("<form method=\"POST\" action=\"$cgiPath/bbs.cgi?guid=ON\">\n");
r.cguの300行目辺り
$Page->Print("<form method=\"POST\" action=\"$cgiPath/bbs.cgi?guid=ON\" utn>\n");
取得できるようになったら幸いです。
早速使わせてもらってdocomoユーザーの協力を得て行った動作報告を
掲示板トップ（例：http://0ch.mine.nu/jikken/） から書き込むと950エラー
スレ （例：http://0ch.mine.nu/test/read.cgi/jikken/1234877645/）を開いてからだと書き込めた
とのこと
あとログには7桁のiモードIDのみ記録され、同じiモードIDでもスレのIDは固定されずに書き込む度に変わってしまうみたい
数回書き込みしてくれたのは1人なのでこれについてはまだ不確定だけど
auからの書き込みは取得もID固定も問題なし
ちなみにtest070124使用で、何も弄っていない状態で>20に書き換えた時と
下記辺りの改造をしたままの状態で更に>20に書き換えた時とで試してみたけど結果は同じだった
http://0ch.mine.nu/test/read.cgi/jikken/1046702960/637-639
http://0ch.mine.nu/test/read.cgi/jikken/1046702960/563-565
何にしても取得出来るようにはなったのでdocomoユーザーにも書き込んでもらえるようになったよ
本当にお疲れ様、そしてありがとう
$Page->Print("<form method=\"POST\" action=\"$cgiPath/bbs.cgi?guid=ON\">");
でindexからでも書き込めるかな
改造乙。
俺も昨日試させて貰ってvarda.plにはそれと同じ書き換えしたけど書き込みOKだったよ。
ただやはりIDは固定されないね。auは固定されるけど。
改造法がどこにあるのかわからない
わかればそれに合わせて作るんだけど。
と末尾にutnをつけないのかと小一時間（ｒｙ
BBMから切り捨てられたものがなぜ必要なのか聞きたいよ
はあ？
日本語でおk
俺は20の改造しかしてないけど何の改造法を探してるんだ？
既出の改造法があるんじゃないの？
IDを固定化できる
ってか>>20の改造でもつけてるじゃん。今はそれつけなくても端末固有番号送信すんの？
docomo携帯なんてもってないから俺には確かめようがないけどさ。
imodeidはリクエストヘッダにあるからそれを取得してる
>>20を見ればわかると思うのだが
utnをつけてるのは元のソースに追加しただけだから。
あ〜調べてみたらそうみたいだ。
拡張ヘッダの方にあるIDはGETパラメータにguid=ONつければ取得可能になってるのか今は。
20の改造でログに記載されるHOSTが
auは「xxxxxxxxxxxxxx_mb.ezweb.ne.jp」だけど
ドコモは「xxxxxxx」と7桁のimodeIDしか取得していないのからそれがID生成に支障をきたしてるんじゃない？
実際ドコモはID固定されているし。
ttp://www.nttdocomo.co.jp/service/imode/make/content/ip/index.html#imodeid
に
＞利用時の注意点
＞
＞ * 注意ユーザのiモードID利用設定がOFFの場合にはiモードIDの拡張ヘッダは付与されません。
って記述あるから確認したほうがいいかも
>>37
送信しなかったらエラーが出るようになってるのもソースを見ればわかると思うんだけど
今確認したらそうなってたわｽﾏｿ。
＞my $product = GetProductInfo($Sys->{'CONV'},$ENV{'HTTP_USER_AGENT'});
＞if($product eq undef){
＞ return 950;
＞}
ここか。
auの間違いだった。
>>38
管轄は知ってるけどIDに関する改造なんて21が貼ってる
http://0ch.mine.nu/test/read.cgi/jikken/1046702960/637-639
くらいしかないと思うが。
ていうかどこからID固定の改造の話が出てきたのかがわからない。
シリアルの一部を抜き出してそれを$hostに入れるって感じで出来るかな
galadriel.plのMakeIDのところを変える
sub MakeID
{
my $this = shift;
my ($server,$column,$hosts) = @_;
my @times = localtime(time());
my (@nums,$ret,$host,$str,$capID);
# 種の生成
#ezweb端末番号から
if($hosts =~ /\.ezweb\.ne\.jp/){
$host = $ENV{'HTTP_X_UP_SUBNO'}
$host = substr($host , 3 , 4) #上から三つ目から四桁抽出
}
#iモードIDから
elsif($hosts =~ /\.docomo\.ne\.jp/){
$host = $ENV{'HTTP_X_DCMGUID'};
$host = substr($host, 0 , 3) #上から三つ取得
}
#端末シリアル番号から
elsif($hosts =~ /\.jp-.\.ne.jp/){
$agent = $ENV{'HTTP_USER_AGENT'};
$agent =~ /SN([A-Za-z0-9]｛5｝)(\1+)/; #上から五桁取得
$host = $1;
}
#どれでもなかったときIPから
else{
@nums = split(/\./,$ENV{'REMOTE_ADDR'}); # ez番号を分解
$host = substr($nums[3],-3) . substr($nums[2],-1) . substr($nums[1],-1); # 上位3つの1桁目取得;
}
$str = $host . substr(crypt($server,$times[4]),-5); # server名結合
$column = -1 * $column;
# IDの生成
$ret = substr(crypt(crypt($str,$times[5]),$times[3]+31),$column);
$ret =~ s/\./+/g;
return $ret;
}
vara.plの135行目あたり
$id = $oConv->MakeID($oSys->Get('SERVER'),8,$oForm->Get('HOST'));
に変更
galadriel.plにMakeID部分の書換えをすると、500 Internal Server Errorでぜろちゃんねる管理にログイン出来なくなります
#馬鹿なミスしてしまった
sub MakeID
{
my$this = shift;
my($server,$column,$hosts) = @_;
my@times = localtime(time());
my(@nums,$ret,$host,$str,$capID);
# 種の生成
#ezweb端末番号から
if($hosts =~ /\.ezweb\.ne\.jp/){
$host = $ENV{'HTTP_X_UP_SUBNO'};
$host = substr($host , 3 , 4);#上から三つ目から四桁抽出
}
#iモードIDから
elsif($hosts =~ /\.docomo\.ne\.jp/){
$host = $ENV{'HTTP_X_DCMGUID'};
$host = substr($host, 0 , 3);#上から三つ取得
}
#端末シリアル番号から
elsif($hosts =~ /\.jp-.\.ne.jp/){
$agent = $ENV{'HTTP_USER_AGENT'};
$agent =~ /SN([A-Za-z0-9]｛5｝)(\1+)/;#上から五桁取得
$host = $1;
}
#どれでもなかったときIPから
else{
@nums= split(/\./,$ENV{'REMOTE_ADDR'});# ez番号を分解
$host= substr($nums[3],-3) . substr($nums[2],-1) . substr($nums[1],-1);# 上位3つの1桁目取得
}
$str= $host . substr(crypt($server,$times[4]),-5);# server名結合
$column= -1 * $column;
# IDの生成
$ret= substr(crypt(crypt($str,$times[5]),$times[3]+31),$column);
$ret=~ s/\./+/g;
return $ret;
}
vara.plの135行目あたり
$id= $oConv->MakeID($oSys->Get('SERVER'),8,$oForm->Get('HOST'));
に変更
サブスクライバIDって呼んでほしかったの？
どうでもいい
まあ
／）
／／／）
／,.=ﾞ''"／
／ i f ,.r='"-‐'つ＿＿＿_ こまけぇこたぁいいんだよ！！
/ / _,.-‐'~／⌒ ⌒＼
／ ,i ,二ﾆ⊃（ ●）. （●）＼
/ ﾉ ilﾞフ::::::⌒（__人__）⌒::::: ＼
,ｲ｢ﾄ､ ,!,!| |r┬-| |
/ iﾄヾヽ_/ｨ"＼ `ー'´ ／
とりあえずezwebについてはID固定を確認出来ました
docomoは利用者が全然来てくれないので未確認
docomoはID固定ならずでしたよ
アホすぎるだろ俺
sub MakeID
{
my$this = shift;
my($server,$column) = @_;
my@times = localtime(time());
my(@nums,$ret,$host,$str,$capID);
my$IP = $ENV{'REMOTE_ADDR'};
my$hosts = gethostbyaddr(pack('c4',split(/\./, $IP)), 2) || $IP;
# 種の生成
#ez番号から
if($hosts =~ /\.ezweb\.ne\.jp$/){
$host = $ENV{'HTTP_X_UP_SUBNO'};
$host = substr($host , 3 , 4);#上から三つ目から四桁抽出
}
#iモードIDから
elsif($hosts =~ /\.docomo\.ne\.jp$/){
$host = $ENV{'HTTP_X_DCMGUID'};
$host = substr($host, 0 , 3);#上から三つ取得
}
#softbank端末シリアル番号から
elsif($hosts =~ /\.jp-.\.ne.jp$/){
$agent = $ENV{'HTTP_USER_AGENT'};
$agent =~ /SN([A-Za-z0-9]｛5｝)(\1+)/;#上から五桁取得
$host = $1;
}
#どれでもなかったときIPから
else{
@nums= split(/\./,$ENV{'REMOTE_ADDR'});# ip番号を分解
$host= substr($nums[3],-3) . substr($nums[2],-1) . substr($nums[1],-1);# 上位3つの1桁目取得
}
$str= $host . substr(crypt($server,$times[4]),-5);# server名結合
$column= -1 * $column;
# IDの生成
$ret= substr(crypt(crypt($str,$times[5]),$times[3]+31),$column);
$ret=~ s/\./+/g;
return $ret;
}
vara.plの135行目あたり
$id= $oConv->MakeID($oSys->Get('SERVER'),8);
に戻して
変更いらない
てす1
名前：名無しさん[] 投稿日：2009/05/14(木) 17:23:07 ID:+yNQ/sn2O
てす2
やっぱダメぽいですね
ログに記録されるホストはどうなってる？
sub MakeID
{
my$this = shift;
my($server,$column,$hosts) = @_;
my@times = localtime(time());
my(@nums,$ret,$host,$str,$capID);
# 種の生成
#ez番号から
if($hosts =~ /\.ezweb\.ne\.jp/){
$host = $ENV{'HTTP_X_UP_SUBNO'};
$host = substr($host , 3 , 4);#上から三つ目から四桁抽出
}
#iモードIDから
elsif($hosts =~ /\.docomo\.ne\.jp/){
$host = $ENV{'HTTP_X_DCMGUID'};
$host = substr($host, 0 , 3);#上から三つ取得
}
#softbank端末シリアル番号から
elsif($hosts =~ /\.jp-.\.ne.jp/){
$agent = $ENV{'HTTP_USER_AGENT'};
$agent =~ /SN([A-Za-z0-9]｛5｝)(\1+)/;#上から五桁取得
$host = $1;
}
#どれでもなかったときIPから
else{
@nums= split(/\./,$ENV{'REMOTE_ADDR'});# ip番号を分解
$host= substr($nums[3],-3) . substr($nums[2],-1) . substr($nums[1],-1);# 上位3つの1桁目取得
}
$str= $host . substr(crypt($server,$times[4]),-5);# server名結合
$column= -1 * $column;
# IDの生成
$ret= substr(crypt(crypt($str,$times[5]),$times[3]+31),$column);
$ret=~ s/\./+/g;
return $ret;
}
vara.plの135行目あたり
$id= $oConv->MakeID($oSys->Get('SERVER'),8,$oConv->GetRemoteHost());
に変更
1242289356<>22<>0ch BBS 2007-01-24<>210.136.161.165
1242289387<>22<>0ch BBS 2007-01-24<>210.136.161.162
ログ履歴です
うちの掲示板でもIPで記録される時もあればiモードIDで記録される時もあるよ
それぐらいしか原因思いつかない
ログ確認してみたらうちの掲示板では>>47の改造をした直後からIPでしか記録されなくなってる
なら書き込みフォームにguid=ONが抜けてるとかとかとか。。。
それなら、vara.plのID作成部分で変にGetRemoteHostとかやっちゃってるのが原因かなぁ。
MakeIDの中でIPをgethostbyaddrして、キャリアを分ける、あとはキャリア毎のシリアルからID生成とかすれば、、。
あとまぁ、あんま心配は要らないかもしれないんですが、
DoCoMoの携帯は設定によってはGUID送ってくれないので、
からっぽだった時の対策を何かしとくといいかもしれません、
$Sys->{'FORM'}->Set('HOSTS',$ENV{'REMOTE_HOST'});
vara.plの135行目あたり
$id= $oConv->MakeID($oSys->Get('SERVER'),8,$oForm->Get('HOSTS'));
で、>>61って感じで。
>>73
それが原因なんですかね
16日に1件だけドコモからの書き込みがあったみたいなので
ログを確認してみたらその書き込みだけHOSTに何の記録もなく空欄でした
HOSTが記録されないのでは恐らくID固定はされない気がします
まあID作成関数とログは何の関係もないから…とだけ
取得できない理由かあ…再現できないから対処のしようもないし
環境が原因でなければ何が原因なのか…
こんな感じでどーすか。
sub MakeID
{
my $this = shift;
my ($server,$column) = @_;
my @times = localtime(time());
my (@nums,$ret,$host,$str);
# 種の生成
@nums = split(/\./,$ENV{'REMOTE_ADDR'}); # IPを分解
my $hosts = gethostbyaddr(pack('c4',@nums), 2);
if($hosts =~m/docomo\.ne\.jp/){
$host = $ENV{'HTTP_X_DCMGUID'};
$host = substr($host, 0 , 3);#上から三つ取得
}elsif($hosts =~m/ezweb\.ne\.jp/){
$host = $ENV{'HTTP_X_UP_SUBNO'};
$host = substr($host , 3 , 4);#上から三つ目から四桁抽出
}elsif($hosts =~m/jp-[cdhknqrst]\.ne\.jp/){
$ENV{"HTTP_USER_AGENT"} =~m|SN([A-Za-z0-9]{5})(\1+)| and $host = $1;
}else{
$host = substr($nums[3],-3) . substr($nums[2],-1) . substr($nums[1],-1); # 上位3つの1桁目取得
}
$str = $host . substr(crypt($server,$times[4]),-5); # server名結合
$column = -1 * $column; # 桁設定
# IDの生成
$ret = substr(crypt(crypt($str,$times[5]),$times[3]+31),$column);
$ret =~ s/\./+/g;
return $ret;
}
それとも>>80のみでいいのかな？
vara.plはノータッチのままで。
3 名前：名無しさんの次レスにご期待下さい[] 投稿日：2009/05/19(火) 17:50:56 ID:N+MJh5F+O
携帯（ドコーモ）IDはダメぽです。ランダムはスルーで
じゃなくて
pack('C4',@nums);//大文字C
じゃね？小文字だと符号付きchar扱いになるはず。
129 名前：[] 投稿日：2009/05/26(火) 08:18:13 ID:KjFgOQ56O
てすと1
1243293493<>8<>0ch BBS 2007-01-24<>210.136.161.2
130 名前：[] 投稿日：2009/05/26(火) 08:18:28 ID:Yz2FI8dUO
てすと2
1243293508<>8<>0ch BBS 2007-01-24<>210.153.84.9
>>87のcを小文字から大文字に変更
131 名前：[] 投稿日：2009/05/26(火) 08:19:58 ID:x3U9ZR6AO
てす1
1243293598<>12<>0ch BBS 2007-01-24<>210.153.86.109
132 名前：[] 投稿日：2009/05/26(火) 08:20:57 ID:D3JQnc92O
てす2
1243293657<>10<>0ch BBS 2007-01-24<>210.153.86.17
小文字から大文字に変更したら投稿時間の縛りが出来るようになりましたが
IDは依然固定されないままです。
ソースのフォーム生成箇所もいじらないとダメなはず。
パラメータだけで送信されるはず。
i?guid=ONは>>20などで既出だよ
だからすでにくっつけ済み、だけど固定出来ない
sub GetAgentMode
{
my $this = shift;
my ($UA) = @_;
$_ = $UA;
if (m/DoCoMo/){ return 1; } # docomo携帯
if (m/SoftBank|Vodafone|J-PHONE/){ return 2; } # J-Phone携帯
if (m/KDDI/){ return 3; } # au携帯
if (m/WILLCOM|DDIPOCKET|MobilePhone|Windows CE|/){ return 4; } # willcom
if (m/jig browser/){ return 5; } # jigブラウザ
if (m/ibisBrowser/){ return 6; } # ibisBrowser
if (m/OpenBrowser/){ return 7; } # e-mobile
return 0;
}
>if(m/WILLCOM|DDIPOCKET|MobilePhone|Windows CE|/){return 4;}# willcom
は
if(m/WILLCOM|DDIPOCKET|MobilePhone|Windows CE/){return 4;}# willcom
に差し替えておいて。
さすがにややこしくなってくる頃だと思うけど
えーっと
7Mさんがやってくれた>>80と>>20と>>23かな？
何を今更ｗ
HTML化されてたらそれへの誘導リンクになるやつってどうするんだ？
ホストログのみの改造だとちゃんと出力されるんだよね？
試してみて
何が聞きたいのかわからない。
ああああ（以下大量
だとウィンドウサイズに合わせてテーブルが可変して
文字列も自動改行？されていますが
1234567890
のように半角英数文字だとテーブルがウィンドウ枠を超えて
ブラウザの下の横スクロールが現れてしまいます
もし分かる方居たら改造お願いします
ttp://zeroch.ps.land.to/src/zeroch_0012.txt
galadrielの適切な場所と置き換えてねー
http://qb5.2ch.net/test/read.cgi/operate/1244993904/
らしい
これだけだと、◆や＜＞”（←実際には半角）の無変換がないですよね？
いや、だから、その変換をやったあとに ConvertTrip したら駄目なんだっての。
新仕様ではその手の変換はやらないでトリップに変換する。
$n =~ s/◆/◇/g;
$n =~ s/●/○/g;
$n =~ s/削除/”削除”/g;
こうだろ
if ($$pName =~ /#(.+)/){
$n = substr($$pName,0,index($$pName,'#'));
$k = substr($$pName,index($$pName,'#')+1);
$k =~ s/☆/★/g;
$k =~ s/◇/◆/g;
$k =~ s/○/●/g;
$k =~ s/”管理”/管理/g;
$k =~ s/”管直”/管直/g;
if (length $k >= 12){
それでも駄目かと。新仕様では #fusianasan も可能だし。
vara.pl の変換順序を変えるべきだと思う。
トリップ作成サブルーチンに引数として$name_tripを使えばいいような。
ただし最近2chで導入された12桁トリップだと
1024バイトまでキーとして読み込むため
10桁トリップのの前に2文字追加する12桁ではないようです
よろしくおねがいしまーす
ありがとうございます〜
新仕様って独自のかと思いまして〜
2ch新仕様12桁トリップ とかなんとか付けていただけないと分からないと思います〜
初心者乙、半年ROMれ
ついでに要望として
jane等で1000オーバーのスレはスレタイの文字色が黒→灰色に変更します
管理ページの書き込みログの表示
削除レスの復活
どこかにあったがスーパーsage機能もあったりしたらいいな・・・
pealのサイト見ながらスクリプトと戦闘中
これはJaneに要望しないとだめだろ 外部板では有効にされてないだけだから
スーパーsageはほんのちょっとの改造でつけられるよ
(ﾟдﾟ)
(ﾟдﾟ)
普通に余裕だろ
ttp://zeroch.ps.land.to/src/zeroch_0014.zip
ただ単にバージョンが古いだけだった。
最新版に入れ替えたら普通に出来たよ。
プロクシチェックを有効にすると携帯（HOST：pv**proxy**.ezweb.ne.jpなど）からの書き込みまで
串扱いされてしまうのでなんとか改造で対処出来ないでしょうか？
>>20
>>23
貼られた時から既に導入していますが>>20>>23はプロクシチェックとは関係ないかと
プロクシ規制とケータイからの書き込みを両立させたいのでしょ
こんな感じです
犯罪予告をするアフォな人。2
http://qb5.2ch.net/test/read.cgi/sec2ch/1192351304/
ずっと待ってます
どなたかお聞かせいただけると嬉しいです。
2007-01-24版を使っているのですが、これにhage・dame機能をつけるには
どうしたらよいんでしょうか？
以上
弄ろうとしたんだけど、p.cgiにそれらしい記述が無くって、
困っとります。
何のモジュールを弄れば良いんでしょうか？
ｽﾚｯﾄﾞ表示を↑のようにするには
いったいどうしたらいい？ あんまり詳しくないんだ。ごめんよ。
というわけでもないが大幅な改造が必要なので自分でやれ
ありがとう。
名前<>メール<>時刻とID(ID:は抜き)<>本文10byte<>?<>ホスト<>IP<>●<>UA
とりあえずメモ
ttp://info.2ch.net/wiki/index.php?%B3%C6%B9%D3%A4%E9%A4%B7%CA%F3%B9%F0%A4%CE%BD%F1%BC%B0#Appendix
名前<>メール欄<>日付 時間 ID<>本文の先頭部分<>スレ立てならスレタイ<>host<>IP<>●ならID
・レス書き込み(？)＋●使用(0chには●は無いので参考程度に)
名前<>メール<>日付 時間 ID<>本文30byte<>スレタイ<>リモホ[●ID]<>IP<>●ID<>UA
途中で送信してしまったorz
規制議論板見て調べてみた
・レス書き込み(？)
名前<>メール<>日付 時間 ID<>本文30byte<><>リモホ<>IP<><>UA
・レス書き込み(？)＋●使用(0chには●は無いので参考程度に)
名前<>メール<>日付 時間 ID<>本文30byte<><>リモホ[●ID]<>IP<>●ID<>UA
スレ立て時のログがどうなってるかは分からなかった
・スレ立て時
名前<>メール<>日付 時間 ID<>本文30byte<>スレタイ<>リモホ<>IP<> ( )<>UA
名前<>メール<>日付 時間 ID<>本文30byte<>スレタイ<>リモホ[●ID]<>IP<>●ID ( )<>UA
●ID欄にある「 ( )」って何なんだろうね
こんな感じかねぇ
その気になれば簡単に実装できるな。
wikiのヤツでダメなのかい？
2chで導入されてるSambaのように4回目で警告をだすにはどうすれば良いでしょうか
>>180 作者の手抜きだ うちの鯖でも1回目は記録されない
ttp://kwskkkst.net/jp/kg6wupl
俺もやったけど、マジ寝てるだけで金くれたぞ！！
2ちゃんねるだと携帯はこっちから見てくださいのリンクが出るんだけど…
適当な出力サブルーチン書いて
sub ReadCGIをいじって出せばいいじゃない
「スレッド一覧はこちら」から表示されるスレ数の上限は500のようですが、
仮に1000とかに設定するにはどうすればいいでしょうか？
ようは「過去ログ倉庫はこちら」ではなく「スレッド一覧はこちら」で
すべての過去ログを表示させたいのです
よろしくお願いします
-----
ＥＲＲＯＲ：アクセス規制中です！！(\.ne.jp)
ここで告知されています。
ホスト nes.net
名前： 名無しさん＠_＠
E-mail：
内容：
----
って出るんだけどぜろちゃんねるでこんな風に表示することは出来ます？
できるかできないかって言ったらできるだろー
規制したときにアクセス規制中です(\.jp)とかって出す方法を教えてください
教えてあげないよ♪じゃん
このあたりを参考にするといいと思うよー
◆windyakingちゃんそろそろ公開してな
\.*とかと表示するｱﾚを追加しようとしたものです、windyaking氏の助言を頼りにやってみましたが無理でしたorz
require('./module/faramir.pl');
$vUser = new FARAMIR;
$vUser->Load($oSYS);
$check = $vUser->Check($host);
if ($check == 4){
$oSYS->Set('USER',$flag);
return 601;
}
if ($check == 2){
$this->{'FORM'}->Set('FROM',"<font color=tomato>$host</font>");
}
vara.plにこんな感じで追加してerrmsg.cgiに
601<>規制ユーザ<>アクセス規制中です！{!USER!}
てやりましたが駄目でしたorz どこが間違ってるかご教示くださいorz
ぜろちゃんねるプラスに組み込む予定
v1.x.xまでには過去ログ保管庫モードを搭載する
というかどこを特化すればいいのかがわからんｗ
read.cgiぐらいしか変更する場所が無いような…
>>213
いきなり出てきてる$flagってなに…
img0chのパクリだけど
マジレスするとfaramir.plを改造して、ヒットした部分を保持するようにしないと無理
2chみたいにchモリ払えﾎﾞｹの様なめっせーじでも表示するのか
#個人的にはSambaの機能を正常にしてほしいなぁとか思う
うへぁ(^_^;)
結構面倒なんだね。仕方ないね。
>>217
要は ttp://www.monositu.net/ みたいなのを作るという感じです。
chモリはいらないです
＞#
はい。
一回目がうまく記録されません！助けてください
それと規制時間内にPOSTしてきた場合に0秒にリセットするにはどうすればいいでしょう
7M.さん来ないならわたしがやるかー
といっても週末までできないかもしれないけど
ちょうど秒速10回くらい書き込まれてもびくともしないSambaを作りたいと思ってる所だし
その実験がてらで
日付がなんかおかしいような・・・
＼(^o^)／
>>225
何をいまさらw
# 18:03:15
特定した
未だなし
・Samba
まだ時間がとれてない(想定内)
しかし自転車はなおしたw
こうして考えてみるとimg0chは偉大だな
こうして考えるとSamba24って良く考えてあるな
Sambaは少し遅れそうな予感…
設定で全板共通にしたとして…
・「n sec たたないと書けません。」のうちは板別にカウント
・「もうずっと書けませんよ。」になったら全板でかけなくなる
これって需要ある？
需要あります
主に俺に
599 連打しないでください。もうそろそろ規制リストに入れますよ。。(￣ー￣)ニヤリッ
---------------------------------------------------------------------------------------
(Samba24-2.13)
ちょっと気になるんだけど、その警告って2回出たりするのかな？
・Samba24は板別に秒数が違う が指定秒数内はどこの板でも書けない
・３回バカ見たいに連打すると599エラーを二回返す
・規制は各時00分に全てリセットされる
・120sec規制の場合beにログインしてると回避できる(news+除く)
とこんな感じ
どもです
このレスがなかったら599を一回しか出さない仕様にしてたかもしれませんw
だいぶ前からぜろちゃんねるの"ハッテン"に貢献してるけど
∧ ∧
(*‘ω‘ *) ちんぽっぽ
( )
v v
ぼいんっ
川
( ( ) )
過疎過疎過疎過疎〜〜〜〜〜〜〜〜
／ ■■■■■■■::::ｌ|!ｌ ┏┛┗┓ ┃┏━┓┃ ┃┃
／ ■■■■■■■ `::::::＼ ┗┓┏┛ ┃┗━┛┃ ┃┃
／ ■■■■■■■ `::::::＼ ┏┛┗┓ ┃┏━┓┃ ┏━━━━━┓ ┃┃
／ ＿_ ■■■■■■■ ＿ `:::::::＼: ┗┓┏┛ ┗┛ ┃┃ ┗━━━━━┛ ┗┛
!ｌ|| ／ ヽ ｌ|||!||ｌ!!||ｌ!!|ｌ ／ ヽ `::::::::＼ ┃┃ ┃┃ ┏┓
／ .|;;;; ◎ ;;;;| !!ｌ||!|ｌｌ!ｌ||!|ｌ |;;;; ◎ ;;;;|!ｌ|ｌ|!::::::::::＼ ┗┛ ┗┛ ┗┛
／ ⊂⊃ .ノ ｌ|ｌ!' |! `|!ヽ ＿ ノｌ||!!|::::::::::::::||ｌ!
!ｌ| ￣ .|!エエエエエエ! ||ｌ|!!!ｌ||!!!||ｌ!!!!|||:::::::::::::＼
/´ |;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;| !!|||ｌ|ｌ!|ｌ!|||ｌ|!||ｌ`:::::::::::::::／..:|. ..／:|
| .|;;;;;;;;;;;;;;;;;;;;;;;;;;;;;| !ｌｌｌｌ||ｌ!|ｌ!!|!|ｌ `::...／ .:::| .／ ::;|
!ｌ|| .|;;;;;;;;;;;;;;;;;;;;;;;;;;;;;| `ｌ!|ｌ ｌ! | ...::::;| ./ :::;|
| .|;;;;;;;/⌒ ⌒ヽ;;;;;| ..:::::i ￣￣⌒ﾞﾞ^――／ ::::::::|
| ｉ |;;;;;| ''' .| ''' .|;;;;| ｉ ...::::::/＿,,___ . _,,,,__,_ ::::::::::＼
＼ ﾍ | |;;;;;| ! .|;;;;| | ﾍ ..:::::／ ﾞ^＼ヽ.. , /ﾞ ¨＼,.-z ::::::::::＼
ヽ /:::ヽ| .|;;;;;;| |;;;| | /::ヽ...::::::::「 ● | 》 l| ● :ﾞ》 ミ.. :::::::＼
, !|| ./:::::::ヽ |!エエエエエエ!| |/::;:::ヽ:::::::;;/i,. .,ﾉ .l| 《 ...:;|´_ilﾄ ::::::::::::!
／||! / ::::::::::::ヽヽ ＿＿＿＿＿ / /::::::::::ヽ / ＼___,,,,,_／ .'″ ^=u,,,,_ v／.. :::::::::::::::l!
/ ::::::::::::::ヽ＿＿＿＿＿＿ノ.:::::::::::: ::| ￣ ,,､ i し.／:::::::::::}
/ ＿ ::::::::::::::::::::::::::: ＿ ::::::;| / ,,__＿＿ _,／￣ ＼ ＼ ﾉ ( ::::::::::|
／ ／。 ヽ＿ ヽ V /::: ／ 。ヽ :::;| |.. | ／└└└└＼../.＼ ＼ '~ヽ :::::::::::::|
./ ／￣￣￣/ ＿＿＿＿ ヽ￣￣￣＼ :::| .∨::::::::::::::::::::::::::::::::::::::;;;;;;| ::::::::::|
.| :::::::::::::::::::: / / ┬ーーー| ヽ ::::::::::::::::::| |.|;;;;;;;;;;;;;／⌒／ ⌒ ::::;;| :::::::::::｝
| ::::::: ::: |ヽ´ | ::: ::| |.|;;;;;;;/ / .:::;| ::::::::::［
.| :::: :: | | .| | :: | |.|;;;;;;/ / . ::;| .| :::::::::::|
.| ::: | | ⊂ニニ::ヽ | | .| |.|;;;;;! / .∧/ / :::::::::::::／
.| : | | |::::::ヽ:::::::| | ／ ｝ ∧lll;;;,. ' ../ / ／ :::::::::::::::::＼
| : | |:::::::|::::::::| ／ /| ＼┌┌┌┌┌/...／ .／::: ::::::::::::::::::＼
.| : | ┌┌┌┌┌ .| ( ﾞﾞ^^¨^¨ﾞﾞ¨ ￣￣￣ ／::::::::::: ::::::::::::＼
＼ ├―----‐-――┤ ヽｰ─¬ｰ〜ｰ―-- ' ::::::::::::::
faramir.plを弄るとかとのことですが、、どうかその方法の伝授をお願いいたします
これから示す行数とかファイル名は純正のtest070124です。
きちんと動くかどうかは保証の限りではありません(^_^;)
test/module/vara.pl l.316-317辺り IsRegulation の
> $vUser->Load($oSYS);
> $check = $vUser->Check($host);
を
> $vUser->Load($oSYS);
> $check = $vUser->Check($oSYS, $host);
に置換
次に
test/module/faramir.pl l.191-192辺り Check
> my $this = shift;
> my ($host) = @_;
を
> my $this = shift;
> my ($sys, $host) = @_;
に置換
さらに同ファイル l.195-197
> foreach (@{$this->{'USER'}}){
> if ($host =~ /$_/){
> $flag = 1;
を
> foreach (@{$this->{'USER'}}){
> if ($host =~ /$_/){
> $flag = 1;
> $sys->Set('HITS', $_);
に置換
test/info/errmsg.cgi l.32
> 601<>規制ユーザ<>書き込みホストは現在規制されています。PROXY抜くか管理者に相談してね。
を
> 601<>規制ユーザ<>アクセス規制中です！！({!HITS!})
に置換
多分これでできるはず。
エラーメッセージはお好みで
> 601<>規制ユーザ<>アクセス規制中です！！({!HITS!})<br><a href="http://yakin.38-ch.net/windyakin/">ここ</a>で告知されています。
みたいにするのもいいかもね。
以上解説終わり
> $sys->Set('HITS', $_);
↓
> $sys->Set('HITS', "($_)");
> 601<>規制ユーザ<>アクセス規制中です！！({!HITS!})
↓
> 601<>規制ユーザ<>アクセス規制中です！！{!HITS!}
にするといいかも
限定ユーザーを別のエラーにするっていうのもありかもしれないけど
本当にありがとう 本当にありがとう
早く作りなさいよ！
あーっ！
とりあえずA○USさんにハングするなって言っといてもらえます(；＾ω＾)
サボるな be開発しろ sssp://実装しろ！
適当にimgタグに変換するだけのプラグイン
BE(HS)(偽)用に作ってあるものなので通常利用には向いてないかも
本当ならBBS_OVERSEA_PROXYとかなんたらけどしらん
ttp://zeroch.ps.land.to/src/zeroch_0020.txt
思っただけで催促など断じてしていません
ご内密に
これで長年の信頼もパーだぜ
PCはとりあえずなんとかなったので、後はダウンタイム発生によるﾄﾞﾀﾊﾞﾀをなんとかしたらとりかかれるかな
／⌒ヽ |;;lヽ::/ ∧_∧ /__ o、 |、 / ξ / つ ,_______,,,
（ ＾ω＾）∫. .|;;|:::|~ （ ´・ω・）ﾉ .ii | ・ ＼ﾉ ⊂|￣￣￣|⊃ （_（＿⌒） γ;;;;;;;;;ζ'ヽ
（ つc□ i===i=i c□c□c□ ...旦只旦旦（ ｏ 旦| ・ | |＿＿＿| ●,；しし' ヾニニニニニフ
|￣￣￣￣￣￣￣￣￣￣￣￣￣￣| |￣￣￣￣￣￣￣￣￣￣￣￣￣￣| |￣￣￣￣￣￣￣￣￣￣￣￣￣￣|
| コーヒーの方はこちらへ | | お茶の方はこちらへ .| | 男乃カレーの方はこちらへ .
Samba動いてんぞー windyakingよーSambaは次期0chPlusに含めるの？
Sambaはもう入ってる
|＿≦三三≧ｘ'| / :| / ! ./ ,∠二l |. || ■ ■ ■ ■
|.,≧厂 `>〒寸ｋ j / }/,z≦三≧ |. | ﾘ ■ ■ ■■■ ■ ■ ■ ■ ■ ■ ■
／ﾍ { /{ 〉ﾏﾑ ／ ,≦ｼ､ }仄 .j. ./ ■ ■ ■ ■ ■
. V八 {l ＼／ : :}八 / ,ｲ /: :} ﾉ :| /| ／ ■ ■ ■ ■ ■
V ＼ V: : : : : :ﾘ ＼ ./ .ﾄｲ: :/ ﾉ／ .}／ ■ ■ ■ ■
' , ￣￣￣ └‐┴' { ∧ ■ ■■ ■ ■ ■
V ＼ヽ＼ヽ＼ ヽ ＼ヽ＼ | ＼. ■ ■ ■ ■ ■ ■
＼ , イ▽` ‐- ＿_ 人 ＼ ■■ ■ ■ ■
:∧ ∨ ∨ ／ ﾊ
::::∧ ﾍ, / , イﾊ |
::::::∧. ﾐ≧ ､ ,∠, イ: : : : :.', |
::::::::::} 了`＞ｧ-‐ ´ } : : : : : : : : ', |
:::::::/ | ∨／＼ / : : : : : : : : : } |
:::::/ レ'7￣{`ヽ. V/ : : : : : : : : : / .|
::/ / / V∧/: : : : : : : : : : / /
#!/usr/local/bin/speedy -- -r1 -b1048576 -t60
#!/usr/local/bin/speedy -- -M64 -b1048576 -t660 -T/md/tmp/speedy/t
#!/usr/local/bin/speedy -- -b1048576 -t660 -T/md/tmp/speedy/t
use strict 'vars';
#########################################################
#
# bbs.cgi for SpeedyCGI (written by FOX)
# 2004/12/02
#
# 必要なファイル(同じディレクトリに入れる)
# public_html/test/bbs.cgi これ
# test/bbs-entry.cgi 各種初期処理(SETTING.TXT,ad関係読み込み等)
# test/bbs-main.cgi 本体
# /bbs-tool.cgi Samba用
# /bbs-yakin.cgi ●実装用
#
#########################################################
require "../../test/bbs-entry.cgi";
&bbs_entry ;
exit ;
0chplusの最新版使ってます
もしかしたら他のメンバーが対応してくれるかも
最近知った
規制を確認できる奴
>>363は散々荒らした挙句、他人のせいにしている荒らしですよ！？
真に受けないでくださいねｗ
荒らしは消えろクズ
by zerochplus0.4.4ver
報告ありがとうございます
BBS_SLIPの不具合は確認しました、次バージョンにて修正します
書き込み規制秒数の件はこちらで確認することが出来ませんでした
もう少し状況を詳しく説明していただけませんか
0chと2chの相違点
・2chのSamba24は板別設定 リリース数週間は鯖別だったような希ガス
・bbs.cgiのスレ立て時はローカルルールとフォームが一体？している
・CookieをEcmascriptで取得している
3年ぶりくらいだな
もっと具体的に言うと・・・
そうですね、書き込み規制秒数を5に設定しても5秒経つ前に書き込み出来てしまうような状況です