ぜろちゃんねるスクリプトを改造するスレ

1 ：名無しさん＠０ちゃんねる：2003/03/03 23:49 ID:ex.0cnXQ

ぜろちゃんねるスクリプトに、
haneやらkageやらdameやら
teletypeやらpreやらnukeanasanやら
おみくじやら何やらの機能を付けたりして改造するスレです。

641 ：名無しさん＠ぜろちゃんねる：2006/06/03(土) 05:07:28 ID:???0

キャップ無しで924スレに書き込もうとするとスレが上がる：
vara.pl　sub IsRegulation　345〜348行目
# 移転スレッド
if (ARAGORN::IsMoved($datPath)){ return 202; }
の次に追加
# スレッド924
if (int($oSYS->Get('KEY') / 10000000) == 924){
if (!$oSEC->IsAuthority($capID,19,$bbs)){
$this->{'THREADS'}->AGE($oSYS->Get('KEY'));
$this->{'THREADS'}->Save($oSYS);
if (!$oSYS->Equal('FASTMODE',1)){
require('./module/varda.pl');
my $BBSAid = new VARDA;
eval{
$BBSAid->Init($oSYS,$oSET);
$BBSAid->CreateIndex();
$BBSAid->CreateIIndex();
$BBSAid->CreateSubback();
};
}
return 210;
}
}

info/errmsg.cgiにエラーメッセージを追加：
210<>書き込み禁止<>このスレッドには書き込めません。

# indexは更新しなくてもいいかなぁ。

↓つづく

642 ：名無しさん＠ぜろちゃんねる：2006/06/03(土) 05:09:41 ID:???0

一定時間ごとに上がるってのは、たぶん難しいだろうから、
かわりに、書き込みの際にsubject.txtを読むときに、924スレを上のほうに持ってくる：

baggins.pl　sub Load
83行目
my ($Sys) = @_;
↓
my $Sys = shift;
my ($f) = @_; # 無ければ未定義

103〜104行目
push(@{$this->{'SORT'}},$elem[0]);
$num ++;
↓
if($f && int($elem[0] / 10000000) == 924){
unshift(@{$this->{'SORT'}},$elem[0]);
}else{
push(@{$this->{'SORT'}},$elem[0]);
}
$num ++;

vara.pl　70行目
$this->{'THREADS'}->Load($Sys);
↓
$this->{'THREADS'}->Load($Sys,1);


# datファイルを直接アップロードして、レス書き込みはしないという条件なら、
この部分の改造と、パーミッションでスレストかけるだけで十分な気がします。

643 ：名無しさん＠ぜろちゃんねる：2006/06/04(日) 15:06:15 ID:???0

>>633

vara.pl　sub Write

if (($resNum = ARAGORN::GetNumFromFile($datPath)) >= $oSys->Get('RESMAX')){
# datにOVERスレッドレスを書き込む
Get1001Data($oSys,\$data);
ARAGORN::DirectAppend($oSys,$datPath,$data);
$resNum ++;
}
elsif($oSet->Get('BBS_DATMAX') && (int((stat($datPath))[7] / 1024) > $oSet->Get('BBS_DATMAX'))){
ARAGORN::DirectAppend($oSys,$datPath,'over<><>ID:over<>size over<>'."\n"); $resNum ++;
}

644 ：名無しさん＠ぜろちゃんねる：2006/06/06(火) 00:48:20 ID:???0

>>643
どうもありがとうございました。大事に使わせていただきます。

645 ：名無しさん＠ぜろちゃんねる：2006/06/12(月) 04:12:50 ID:???0

キャップパス入力の際は'#'でも'＃'でも可という仕様ですが、
S-JISで'＃'でない\x81\x94に誤ってマッチして表示に影響する可能性があるので
その対策を考えてみました。

060227　vara.pl　sub ReadyBeforeCheck　内

# キャップパスの抽出と削除
my $f = -1;
if (index($mail,'＃') == -1){
$f = index($mail,'#');
}else{
my $char = '(?:[\x00-\x7F\xA1-\xDF]|[\x81-\x9F\xE0-\xFC][\x40-\x7E\x80-\xFC])';
$mail =~ s/^($char*?)＃(.*)$/\1#\2/;
$f = index($mail,'#');
}
if(($f > -1) && ($f < length($mail) - 1)){
my ($capPass,$capID);
($mail,$capPass) = split(/#/,$mail,2);
# キャップ情報設定
$capID = $this->{'SECURITY'}->GetCapID($capPass);
if ($capID){
$Sys->Set('CAPID',$capID);
}
$Form->Set('mail',$mail);
}

あるいは、単に
$mail =~ s/＃/#/;　→　$mail =~ s/＃/ #/;
と、2バイトに置き換えるだけでいいかも。

646 ：名無しさん＠ぜろちゃんねる：2006/06/12(月) 04:17:55 ID:???0

Jcode.pmが使える環境という前提で、Firefoxのクッキー文字化け対策として、
CookieをUTF-8でエンコードしてみる試み。（test060227）

radagast.pl
sub Set
{
my $this = shift;
my ($key,$value) = @_;
use Jcode;
Jcode::convert(\$value,'utf8','sjis');
$value =~ s/(\W)/'%'.unpack('H2',$1)/eg;
$this->{'COOKIE'}->{$key} = $value;
}

sub Get
{
my $this = shift;
my ($key) = @_;
use Jcode;
my $val = $this->{'COOKIE'}->{$key};
$val =~ s/%([0-9a-fA-F][0-9a-fA-F])/pack("C", hex($1))/eg;
Jcode::convert(\$val,'sjis','utf8');
$val =~ s/\r|\n|\0//g; $val =~ s/"/"/g;
$val =~ s/</</g; $val =~ s/>/>/g;
return $val;
}

↓つづく

647 ：名無しさん＠ぜろちゃんねる：2006/06/12(月) 04:28:34 ID:???0

訂正。
（この部分が必要なのかどうか実はよくわからないのですが。）

$val =~ s/\r|\n|\0//g; $val =~ s/"/&quot;/g;
$val =~ s/</&lt;/g; $val =~ s/>/&gt;/g;

↓つづき

sub Print　内
$oOut->Print("return(unescape(tmp2.substring(xx3 + 1, xx2 - xx1 - 1)));");
↓
$oOut->Print("return(decodeURIComponent(tmp2.substring(xx3 + 1, xx2 - xx1 - 1)));");


エンコードされてないクッキーを持ってる人が更新後のindexを開くとスクリプトエラーが出ます。
JavaScriptの知識がないので回避策はよくわかりません。
フォーム空で一度投稿して、エラー画面でクッキーの書き換え、とか。

648 ：名無しさん＠ぜろちゃんねる：2006/06/15(木) 07:13:34 ID:???0

r.cgiでh無しのアドレスをリンクにします。（ftpは無視）
060227　galadriel.pl
sub ConvertURL

$reg1 = q{(https?|ftp)://(([-\w.!~*'();/?:\@=+\$,%#]|&(?![lg]t;))+)};
$reg2 = q{<(https?|ftp)::(([-\w.!~*'();/?:\@=+\$,%#]|&(?![lg]t;))+)>};
↓
$reg1 = $mode ?
q{(?:h?)(ttps?)://(([-\w.!~*'();/?:\@=+\$,%#]|&(?![lg]t;))+)}:
q{(https?|ftp)://(([-\w.!~*'();/?:\@=+\$,%#]|&(?![lg]t;))+)};
$reg2 = $mode ?
q{<(h?ttps?)::(([-\w.!~*'();/?:\@=+\$,%#]|&(?![lg]t;))+)>}:
q{<(https?|ftp)::(([-\w.!~*'();/?:\@=+\$,%#]|&(?![lg]t;))+)>};

if ($mode){
$$text =~ s{$reg1}{<$1::$2>}g;
↓
if ($mode){
$$text =~ s{$reg1}{<h$1::$2>}g;

649 ：名無しさん＠ぜろちゃんねる：2006/06/15(木) 23:50:32 ID:???0

search.cgiの検索結果の表示をGoogle風にしたいんですが、
誰かPerlで書いていただけませんか？

650 ：名無しさん＠ぜろちゃんねる：2006/06/16(金) 01:28:19 ID:???0

>>649
ﾏﾙﾁ

ぜろちゃんねるスクリプト総合質問スレ Part7
http://0ch.mine.nu/test/read.cgi/jikken/1120050851/712

712 名前：名無しさん＠ぜろちゃんねる[age] 投稿日：2006/06/14(水) 15:39:21 ID:???0
search.cgiの検索結果の表示をGoogle風にしたいんですが、
どうしたらいいでしょうか？

651 ：名無しさん＠ぜろちゃんねる：2006/06/16(金) 01:29:50 ID:???0

>>650
いや、誘導されてきたんだろ。

652 ：名無しさん＠ぜろちゃんねる：2006/06/16(金) 02:00:13 ID:???0

ごめん、まちがえたよ

653 ：名無しさん＠ぜろちゃんねる：2006/06/16(金) 04:30:15 ID:???0

r.cgiで、自鯖内のread.cgiへのリンクをr.cgiに変更します。
060227　galadriel.pl
sub ConvertURL

$$text =~ s{$reg2}{<a href="$1://$2">$work[0]</a>};
↓
$$text =~ s{$reg2}{<a href="$1://$2">$work[0]</a>};
$$text =~ s/(<a href="$server\/test\/)read(\.cgi[?\/])/\1r\2/g;

654 ：649：2006/06/16(金) 17:52:47 ID:???0

>>651
そうです。誘導されてここに来ました

自分でもいじってはみたんですがよく分からなくて…
どなたか教えては頂けませんか？

655 ：名無しさん＠ぜろちゃんねる：2006/06/20(火) 23:05:02 ID:???0

広告をローテーションするなどプログラムで処理したいのですが、bannerpc.cgi
からテキストとして読み込んでいるみたいなので、無理ですよね？？

656 ：名無しさん＠ぜろちゃんねる：2006/06/21(水) 05:56:08 ID:???0

>>655
bannerpc.cgi等を複数用意しといて、
呼び出すファイル名を変える。

657 ：名無しさん＠ぜろちゃんねる：2006/06/21(水) 20:16:02 ID:???0

>>656
ありがとうございます。広告ローテーションはそれでいけそうです。

その板のスレッドを単語を分析してもっとも多い単語をECSに渡して、そのスレッドに
関係ある商品を表示する　
みたいなことだと、呼び出し側をかなり改造しないとですよね。

658 ：名無しさん＠ぜろちゃんねる：2006/06/22(木) 10:21:32 ID:P3NYi7VYO

携帯からもURLをクリックしたらクッションページを経由させれないですかね？
スクリプトは最新版です

659 ：名無しさん＠ぜろちゃんねる：2006/06/22(木) 23:16:38 ID:???0

<a href="$1://$2"> → <a href="$1://$cushion$2">

660 ：名無しさん＠ぜろちゃんねる：2006/06/24(土) 13:46:37 ID:???0

BBQ、BBMとかってどうやって設定するの？

661 ：名無しさん＠ぜろちゃんねる：2006/06/26(月) 00:16:46 ID:???0

最新版 nazguls.plの70行目の
$path = '.' . $Sys->Get('INFO') . '/bbss.cgi';

このbbss.cgiってbbs.cgiのタイプミスでしょうか？

662 ：名無しさん＠ぜろちゃんねる：2006/06/26(月) 00:37:28 ID:???0

>>661
http://0ch.mine.nu/test/search.cgi?MODE=BBS&BBS=jikken&KEY=&WORD=bbss.cgi&TYPE=2

663 ：名無しさん＠ぜろちゃんねる：2006/06/26(月) 21:49:30 ID:???0

>>662
あ〜なるほど。そういうことか。
ろくに調べもせず尋ねてすませんです

664 ：名無しさん＠ぜろちゃんねる：2006/06/29(木) 14:35:48 ID:???O

携帯からの書き込みでIDを固定させるには端末情報を取得するだけでいいんですかね？

665 ：7M. ◆dq7M./4Uw. ：2006/06/29(木) 20:17:09 ID:???0

>664
端末情報を取得し、それからIDを生成すればよろし。

666 ：名無しさん＠ぜろちゃんねる：2006/06/29(木) 22:04:18 ID:???0

>>665
sub GetRemoteHost
{
my $this = shift;
my ($HOST,$HOST2);

$HOST = $ENV{'REMOTE_ADDR'};
$HOST2 = $ENV{'HTTP_X_UP_SUBNO'};

sub MakeID
{
my $this = shift;
my ($server,$column) = @_;
my @times = localtime(time());
my (@nums,$ret,$host,$str);

# 種の生成
@nums = split(/\./,$ENV{'HTTP_X_UP_SUBNO'});

こうですかね？

667 ：7M. ◆dq7M./4Uw. ：2006/06/30(金) 01:15:52 ID:???0

$ENV{'HTTP_X_UP_SUBNO'}
こんな環境変数あったのか。知らなかった。(素
正確には、こいつの上4桁を取り除いた物を種に放り込めばいいと思うのです。
#まぁ上4桁引きちぎるのも実際はいらないかもしれない。
0chのソースは良く知りませんが、@numsってゆーのからIDを生成してるなら、
そいつにそのまま$ENV{'HTTP_X_UP_SUBNO'}を放り込んでやればいいんぢゃないですかね。
多分。

668 ：7M. ◆dq7M./4Uw. ：2006/06/30(金) 01:19:52 ID:???0

…と、よく見てみたら$ENV{'HTTP_X_UP_SUBNO'}はEZweb限定？
全機種でやらせるなら、携帯かどうかをUSERAGENTから識別してから、
utnで送信させた端末固有番号をcryptかけた方がよさそう？

669 ：名無しさん＠ぜろちゃんねる：2006/07/05(水) 03:15:17 ID:???0

http://0ch.mine.nu/test/read.cgi/jikken/1120050851/829 の後半を見て
ちょっと弄ってみました。

test060227 thread.res.pl

（1）
my @log,$log; Load_log($Sys,\@log); Check_dat($Dat,\@log); $log = @log;
require('./module/galadriel.pl');

（2）
if ($log && $Dat->Size() - $i <= $log) {Add_log(\$elem[3],\$log[$log - ($Dat->Size() - $i)]);}

（3）
if ($log && $Dat->Size() - $num <= $log) {Add_log(\$elem[3],\$log[$log - ($Dat->Size() - $num)]);}


238〜241行目、358〜361行目、418〜421行目の、

# レス一覧を出力
（略）
@elem = split(/<>/,$$pRes);

を、それぞれ（1）（2）、（1）（3）、（1）（3）で挟む。

↓続く

670 ：名無しさん＠ぜろちゃんねる：2006/07/05(水) 03:15:40 ID:???0

適当なところに以下を追加。
sub Load_log{
my ($Sys,$log) = @_;
my $logPath = $Sys->Get('BBSPATH') . '/' . $Sys->Get('BBS') . '/log/' . $Sys->Get('KEY') . '.cgi';
eval{ if (-e $logPath){
open(LOGFILE,"< $logPath");
binmode(LOGFILE);
@$log = <LOGFILE>;
close(LOGFILE);
}};
}
sub Add_log{
my ($elem,$logline) = @_;
chomp($$logline);
if($$logline eq 'Over'){$$elem .="<br>[$$logline]"; return;}
my @logline = split(/<>/, $$logline);
$logline[0] = GALADRIEL::GetDateFromSerial(undef,$logline[0],0);
$logline[1] .= 'byte';
$logline = join('<>', @logline);
$$elem .="<br>[$logline]";
}
sub Check_dat{
my ($Dat,$log) = @_;
my $pRes = $Dat->Get($Dat->Size() - 1);
if ((split(/<>/, $$pRes))[2] =~ m/Over/i ){
push(@$log, 'Over');
}
}

↓続く

671 ：名無しさん＠ぜろちゃんねる：2006/07/05(水) 03:17:22 ID:???0

上手くいけば、レス削除画面で、
レス書き込みログ保存分だけ、↓こんなふうに表示されます。

　11：名無しさん＠ぜろちゃんねる：2006/07/05(水) 21:10:10
　　　　test
　　　　[2006/07/05 21:10<>4byte<>0ch BBS 2006-02-27<>（ホスト）]

しかしスレッド内に透明あぼ〜んがあるとズレます。

672 ：名無しさん＠ぜろちゃんねる：2006/07/10(月) 23:50:12 ID:???0

>>671
ありがとう！！
助かりました！！
ただ今後、
できれば透明あぼーんありでも対応してもらえると助かります。

673 ：名無しさん＠ぜろちゃんねる：2006/07/12(水) 03:44:41 ID:???0

datとlogに記録された時間を照合して、合わなかったら透明あぼーんがあったとみなして、
その分のログを除外する、とすると、

（1）
my @log,$log; Load_log($Sys,\@log); $log = @log; if($log){Check_dat($Sys,$Dat,\@log,\$log)};
require('./module/galadriel.pl');


sub Check_dat{
my ($Sys,$Dat,$log,$lognum) = @_;
my $pRes = $Dat->Get($Dat->Size() - 1);
my $over = 'Over';
if ((split(/<>/, $$pRes))[2] =~ m/Over/i ){
push(@$log, $over); $$lognum++;
}
my ($Setting,$abone);
require('./module/isildur.pl');
$Setting = new ISILDUR;
$Setting->Load($Sys);
$abone = $Setting->Get('BBS_DELETE_NAME');
use Time::Local;
my $logline, @res, $wtime;
$f = $$lognum;
while($f){
$pRes = $Dat->Get($Dat->Size() - $$lognum + $f - 1);
@res = split(/<>/,$$pRes);
$logline = $$log[$f - 1];
if($res[2] ne $abone && $logline ne $over){
$res[2] =~ /(\d{4})\/(\d{2})\/(\d{2}).*? (\d{2}):(\d{2}):(\d{2})/;
$wtime = timelocal($6,$5,$4,$3,$2 - 1,$1 - 1900);
if(abs($wtime - (split(/<>/, $logline))[0]) > 0){splice(@$log, $f - 1, 1); $$lognum--;}
}
$f--;
}
}

一見、上手く行ったように見えるかもしれないけど、たぶん不具合出るよ。
datとlogに書き込まれるのは同時じゃないからね。
一切、責任は持ちません。

674 ：名無しさん＠ぜろちゃんねる：2006/07/12(水) 03:53:19 ID:???0

ついで。
透明あぼーんをしてスレッドのレス数が減った場合、
同時にsubject.txtを更新する。

sub FunctionResDelete


push(@$pLog,$abone);

return 0;

↓

push(@$pLog,$abone);
if (!$mode){
require('./module/baggins.pl');
$Threads = new BILBO;
$Threads->Load($Sys);
$Threads->Update($Sys);
$Threads->Save($Sys);
push(@$pLog,"スレッド情報(subject.txt)を更新しました。");
}
return 0;

675 ：名無しさん＠ぜろちゃんねる：2006/07/13(木) 10:37:32 ID:9TrxkJpwO

060227
携帯表示でレスコピー(写)を付けるには
r.cgiのsub PrintReadMenuとsub PrintResponseを弄るだけでいいのですかね？
例えば
my $pathcopy = $Sys->{'CONV'}->CreatePath($oSYS,1,$bbs,$key,'l10');

$Page->Print("<textarea=$pathcopy</textarea>\n");

こんな感じなのですかね？

676 ：名無しさん＠ぜろちゃんねる：2006/07/18(火) 18:02:17 ID:???0

全板一括アク禁できませんか？
一つ一つやるのは無駄にダルイです汗

677 ：名無しさん＠ぜろちゃんねる：2006/07/18(火) 18:59:31 ID:???0

質問スレに同様の書き込みがあったなぁ。

678 ：名無しさん＠ぜろちゃんねる：2006/07/18(火) 21:02:04 ID:???0

2ch専用ブラウザで閲覧した時はレスアンカー(>>***)はポップアップするじゃないですか。
それを通常のブラウザ(スレイプニルとか火狐とか)でポップアップ出来る様にしたいんですが出来るでしょうか？

可能であれば、是非是非やり方を教えて欲しいのですが。。。お願いします。

679 ：名無しさん＠ぜろちゃんねる：2006/07/20(木) 01:56:37 ID:???0

060227を使わせてもらっています。
落ちたスレをクリックしたとき、2000000000.datじゃなくて
旧バージョンみたいにpoolやkakoに有るか無いかを調べて、
隊長！過去ログ倉庫に○○.htmlを発見しました！
みたいに表示させるにはどうしたら良いでしょうか？

680 ：名無しさん＠ぜろちゃんねる：2006/07/20(木) 20:48:02 ID:???0

>>679
落ちたスレのアドレスに直接アクセスする、とか？

試した事ないから分からんけど、多分これでいいかも

681 ：名無しさん＠ぜろちゃんねる：2006/07/20(木) 23:28:31 ID:???0

最小限の改造で、レスコピーらしきものを可能にさせてみる。
まぁ、これだけで満足する人はいないと思うけど。

sub PrintResponse
{
my ($Sys,$Page,$n) = @_;
my ($pDat,@elem);
$pDat = $Sys->{'DAT'}->Get($n -1);
@elem = split(/<>/,$$pDat);
$elem[3] =~ s/<br>/\n/g;
if($elem[1] ne ''){$elem[1] ='['.$elem[1].']';}
foreach (@elem) {$_ =~ s/<.*?>//g;}
$Page->Print("<form><textarea>$n:$elem[0] ：$elem[2]$elem[1]\n$elem[3]</textarea></form>");
}

>>675
そんな記述で「こんな感じ」が他人に伝わると思ってんのかね。

682 ：名無しさん＠ぜろちゃんねる：2006/07/21(金) 00:57:24 ID:???0

675じゃないけど>>681を使わせてもらったら、スレが見えなくなってしまった。(最新版)
他のお方はどうでしょうか？

683 ：名無しさん＠ぜろちゃんねる：2006/07/21(金) 01:10:58 ID:???0

>>682
具体的にどのファイルの何行目〜何行目を入れ替えたのか言ってみ。

684 ：名無しさん＠ぜろちゃんねる：2006/07/21(金) 01:28:13 ID:???0

>>683
r.cgiの320行目から331行目の
sub PrintResponse
{
my ($Sys,$Page,$n) = @_;
my ($oSYS,$oConv,$pDat,@elem,$maxLen,$len);

$oSYS = $Sys->{'SYS'};
$oConv = $Sys->{'CONV'};
$pDat = $Sys->{'DAT'}->Get($n -1);
@elem = split(/<>/,$$pDat);
$len = length($elem[3]);
$maxLen = $Sys->{'SET'}->Get('BBS_LINE_NUMBER');
$maxLen = int(($maxLen / 2) * 20);
を>>681の物とごっそり入れ替えたんですが･･･見当外れな部分に入れているでしょうか。
すいません、実は正直よく分からないのに手を出してしまいました･･･。

685 ：名無しさん＠ぜろちゃんねる：2006/07/21(金) 02:07:55 ID:???0

>>685
それで何の疑問も持たないのなら改造に手を出すのはまだ早いな。諦めろ。

686 ：名無しさん＠ぜろちゃんねる：2006/07/21(金) 02:09:05 ID:???0

レス番がずれてたか。

687 ：名無しさん＠ぜろちゃんねる：2006/07/21(金) 02:18:54 ID:???0

>>685
はい、おっしゃる通りです…忠告ありがとうございました！1から勉強してきます！

688 ：トラックバック ★：2006/07/22(土) 02:32:48 ID:239D0RMk0

【トラックバック来たよ】（ver.0.10）
[タイトル] Welcome to Phentermine-HCL.org
[発ブログ] Welcome to Phentermine-HCL.org
http://www.phentermine-hcl.org/
[＝要約＝]
<a href="http://www.phentermine-hcl.org">phentermine</a> One type of weight loss that is gaining popularity and giving those who need the

689 ：トラックバック ★：2006/07/22(土) 03:48:45 ID:PUBR+zik0

【トラックバック来たよ】（ver.0.10）
[タイトル] xenical
[発ブログ] xenical
http://www.meds-today.com/Xenical.html
[＝要約＝]
<a href="http://www.meds-today.com/Xenical.html">xenical</a> order viagra cheap drug online <a href="http://store.discountedpills.com/Xenical.html">xenical</a> pharmacy medications phentermine <a href="http://www.weight-drugs.com/phendimetrazine.html">phendimetrazine</a> phentermine drug online doctor

690 ：トラックバック ★：2006/07/22(土) 04:00:06 ID:2Fq4qyE20

【トラックバック来たよ】（ver.0.10）
[タイトル] gamlbing
[発ブログ] gamlbing
http://www11.cds.ne.jp/~chino/bbs/chino/bbs.cgi?read=716
[＝要約＝]
<a href="http://www11.cds.ne.jp/~chino/bbs/chino/bbs.cgi?read=716">gamlbing</a> <a href="http://wrss.org/video_poker">video poker</a> <a href="http://wrss.org/casino">casino</a>

691 ：トラックバック ★：2006/07/22(土) 05:18:02 ID:6yVuZpig0

【トラックバック来たよ】（ver.0.10）
[タイトル] poker online
[発ブログ] poker online
http://wrss.org/poker_online
[＝要約＝]
<a href="http://wrss.org/poker_online">poker online</a> <a href="http://www.bloghof.net/playbest">slots</a> <a href="http://onslo.forumup.org">online slots</a>

692 ：トラックバック ★：2006/07/22(土) 07:41:45 ID:TZ/1Y1qo0

【トラックバック来たよ】（ver.0.10）
[タイトル] blackjack
[発ブログ] blackjack
http://www.gambling-day.com/blackjack.html
[＝要約＝]
<a href="http://www.gambling-day.com/blackjack.html">online blackjack</a> choose the casino bonuses you want before gambling <a href="http://www.best-poker-game.biz/">online poker</a> play casino games <a href="http://online-casino.webpark.pl/poker.html">poker</a> gamble for free with virtual casinos

693 ：トラックバック ★：2006/07/22(土) 07:59:47 ID:wGkcZCQY0

【トラックバック来たよ】（ver.0.10）
[タイトル] online slots
[発ブログ] online slots
http://wrss.org/slotsonly
[＝要約＝]
<a href="http://wrss.org/slotsonly">online slots</a> <a href="http://wrss.org/bingo">bingo</a> <a href="http://wrss.org/slotsonly">slots</a>

694 ：トラックバック ★：2006/07/22(土) 11:18:52 ID:wwkzPisI0

【トラックバック来たよ】（ver.0.10）
[タイトル] intenret slots blowjobs
[発ブログ] intenret slots blowjobs
http://mazak.intenret-slots.beztweb.com
[＝要約＝]
<a href="http://mazak.intenret-slots.beztweb.com">intenret slots blowjobs</a> <a href="http://laving.best-ro6lette.beztweb.com">best ro6lette nimrods</a> <a href="http://fantasmas.vegas-dlot.beztweb.com">vegas dlot 1934</a>

695 ：7M. ◆dq7M./4Uw. ：2006/07/22(土) 19:10:53 ID:???0

>678
javascript使えばできるんぢゃないでしょーか。

696 ：トラックバック ★：2006/07/23(日) 00:56:52 ID:PIzSneZk0

【トラックバック来たよ】（ver.0.10）
[タイトル] The Powerball Jackpot grows to $114 Million!
[発ブログ] The Powerball Jackpot grows to $114 Million!
http://www.casino-focus.com/news/14May2006.html
[＝要約＝]
<a href="http://www.casino-focus.com/news/14May2006.html">The Powerball Jackpot grows to $114 Million!</a> <a href="http://www.casino-focus.com/news/13Apr2006.html">The Powerball Jackpot was hit in Missouri!</a> <a href="http://www.casino-focus.com/">casino</a>

697 ：トラックバック ★：2006/07/23(日) 13:34:49 ID:+lceoh/Y0

【トラックバック来たよ】（ver.0.10）
[タイトル] Where to play
[発ブログ] Where to play
http://www.laserblackjack.com/
[＝要約＝]
<a href="http://www.laserblackjack.com">blackjack online</a> jack blacks band <a href="http://www.laserblackjack.com/">Where to play</a> black jack firework

698 ：名無しさん＠ぜろちゃんねる：2006/07/23(日) 16:16:31 ID:???0

>>679
ちょっとやってみた。

read.cgiに以下を追加

sub PrintDiscovery
{
my ($Sys,$Page) = @_;
my ($spath,$lpath,$key,$kh);

$spath = $Sys->{'SYS'}->Get('BBSPATH') . '/' . $Sys->{'SYS'}->Get('BBS');
$lpath = $Sys->{'SYS'}->Get('SERVER') . '/' . $Sys->{'SYS'}->Get('BBS');
$key = $Sys->{'SYS'}->Get('KEY');
$kh = substr($key,0,3);

if (-e "$spath/kako/$kh/$key.html"){ # 過去ログにあり
PrintReadHeadB($Sys,$Page);
$Page->Print("隊長！過去ログ倉庫に<a href=\"$lpath/kako/$kh/$key.html\">");
$Page->Print("$key.html</a><br>を発見しました！<br>");
}
elsif (-e "$spath/pool/$key.cgi"){ # poolにあり
PrintReadHeadB($Sys,$Page);
$Page->Print("$key.datはhtml化を待っています<br>");
$Page->Print('ここは待つしかない・・・<br>');
}
else{ # どこにもない
return 0;
}

$Page->Print("</dl><hr><div align=right>" . $Sys->{'SYS'}->Get('VERSION'));
$Page->Print("</div></body></html>\n");
return 1;
}

↓つづく

699 ：名無しさん＠ぜろちゃんねる：2006/07/23(日) 16:39:31 ID:???0

↓つづき

sub PrintReadHeadB
{
my ($Sys,$Page) = @_;
my ($Caption,$Banner,$code,$title,$sbcol,$nmcol,$ver,$pathBBS);

require('./module/legolas.pl');
require('./module/denethor.pl');
$Caption = new LEGOLAS;
$Banner = new DENETHOR;

$Caption->Load($Sys->{'SYS'},'META');
$Banner->Load($Sys->{'SYS'});

$code = $Sys->{'CODE'};
$title = 'そんな板orスレッドないです';

# HTMLヘッダの出力
$Page->Print("Content-type: text/html\n\n");
$Page->Print('<html><head><title>' . $title . '</title>');
$Page->Print('<meta http-equiv=Content-Type content="');
$Page->Print('text/html;charset=' . $code . '">');
$Caption->Print($Page,undef);
$Page->Print('</head><!--nobanner-->');

# <body>タグ出力
{
my @work;
$work[0] = $Sys->{'SET'}->Get('BBS_THREAD_COLOR');
$work[1] = $Sys->{'SET'}->Get('BBS_TEXT_COLOR');
$work[2] = $Sys->{'SET'}->Get('BBS_LINK_COLOR');
$work[3] = $Sys->{'SET'}->Get('BBS_ALINK_COLOR');
$work[4] = $Sys->{'SET'}->Get('BBS_VLINK_COLOR');
$Page->Print("<body bgcolor=$work[0] text=$work[1] link=$work[2] ");
$Page->Print("alink=$work[3] vlink=$work[4]>\n");
}
# バナー出力
$Banner->Print($Page,100,2,0);

$sbcol = $Sys->{'SET'}->Get('BBS_SUBJECT_COLOR');
$nmcol = $Sys->{'SET'}->Get('BBS_NAME_COLOR');
$ver = $Sys->{'SYS'}->Get('VERSION');

$pathBBS = $Sys->{'SYS'}->Get('SERVER') . '/' . $Sys->{'SYS'}->Get('BBS');

$Page->Print("<a href=\"$pathBBS/\">■掲示板に戻る■</a><br><br>\n");
$Page->Print("<font color=$sbcol size=+1>そんな板orスレッドないです</font>");
$Page->Print("<br><dl><dt>1 名前：");
$Page->Print("<font color=$nmcol><b>$ver</b></font>");
$Page->Print('投稿日：<br><dd>そんな板orスレッドないです</dd></dt></dl>');
$Page->Print("<br><br><br><hr>\n");

$Page->Print('<br><br>');
}

↓つづく

700 ：名無しさん＠ぜろちゃんねる：2006/07/23(日) 16:42:47 ID:???0

↓つづき

sub PrintReadSearch 内

my ($Sys,$Page) = @_;
↓
my ($Sys,$Page) = @_;
if (PrintDiscovery($Sys,$Page)){ return; }


/logにも/poolにも無ければ2000000000.datを表示。
既存の部分との重複が多くてちょっと無駄があるけど。

701 ：679：2006/07/23(日) 18:13:26 ID:???0

>>698-700
出来ました！ありがとう｡･ﾟ･(ﾉД`)･ﾟ･｡

702 ：トラックバック ★：2006/07/24(月) 00:38:38 ID:9ffkTGI+0

【トラックバック来たよ】（ver.0.10）
[タイトル] phentermine
[発ブログ] phentermine
http://www.netcolony.com/phentermine-slim
[＝要約＝]
<a href="http://www.netcolony.com/phentermine-slim">phentermine</a> <a href="http://www.u-blog.net/painrelief">ultram</a> <a href="http://levitra.9gif.com">levitra</a>

703 ：トラックバック ★：2006/07/24(月) 04:36:41 ID:2QyCZxus0

【トラックバック来たよ】（ver.0.10）
[タイトル] Propecia
[発ブログ] Propecia
http://store.discountedpills.com/Propecia.html
[＝要約＝]
<a href="http://store.discountedpills.com/Propecia.html">Propecia</a> <a href="http://store.discountedpills.com/Yasmin.html">Yasmin</a> <a href="http://www.med-city.com/adipex.html">Adipex</a>

704 ：トラックバック ★：2006/07/24(月) 12:51:18 ID:aeYo1BzQ0

【トラックバック来たよ】（ver.0.10）
[タイトル] baccarat
[発ブログ] baccarat
http://wrss.org/baccarat
[＝要約＝]
<a href="http://wrss.org/baccarat">baccarat</a> <a href="http://www.bloghof.net/newgame">blackjack</a> <a href="http://wrss.org/o_roulette">online roulette</a>

705 ：トラックバック ★：2006/07/24(月) 13:04:55 ID:6Nkwa7ig0

【トラックバック来たよ】（ver.0.10）
[タイトル] roulette
[発ブログ] roulette
http://www.roulette-up.com/
[＝要約＝]
<a href="http://www.roulette-up.com/">online roulette</a> play for free in online casinos in one of about 100 free games <a href="http://www.bingo-up.com">bingo</a> gamble in online casinos <a href="http://www.1-internet-casino.us">casino</a> play casino games

706 ：トラックバック ★：2006/07/24(月) 13:38:36 ID:/xG+r8TM0

【トラックバック来たよ】（ver.0.10）
[タイトル] levitra online
[発ブログ] levitra online
http://www.discounted-medications.com/order-levitra.html
[＝要約＝]
<a href="http://www.discounted-medications.com/order-levitra.html">levitra online</a> viagra usage viagra sale <a href="http://www.phentermine-support.com/fedex.html">phentermine</a> viagra drug online doctor <a href="http://www.tramadol-here.net">tramadol</a> Physiology online phentermine

707 ：トラックバック ★：2006/07/24(月) 14:18:52 ID:f138KX420

【トラックバック来たよ】（ver.0.10）
[タイトル] valiun sd
[発ブログ] valiun sd
http://rottweiler.valiun.it0p.com
[＝要約＝]
<a href="http://rottweiler.valiun.it0p.com">valiun sd</a> <a href="http://jasons.neueontin.it0p.com">neueontin okeechobee</a> <a href="http://ziyi.renoa.it0p.com">renoa opinion</a>

708 ：名無しさん＠ぜろちゃんねる：2006/07/24(月) 23:29:36 ID:0ii+J13s0

このトラックバックスパムをどう防ぐか？

709 ：名無しさん＠ぜろちゃんねる：2006/07/25(火) 00:14:30 ID:???0

トラックバック機能を殺せばいい

710 ：名無しさん＠ぜろちゃんねる：2006/07/25(火) 00:40:32 ID:???0

>>709
それを言ったら終わってしまう。

711 ：トラックバック ★：2006/07/25(火) 05:07:06 ID:AfN+Zhuk0

【トラックバック来たよ】（ver.0.10）
[タイトル] gina
[発ブログ] gina
http://gina.top121.com/
[＝要約＝]
<a href="http://gina.top121.com/">gina</a> <a href="http://cadillac-part.top121.com/">cadillac part</a> <a href="http://gloria-steinem.top121.com/">gloria steinem</a>

712 ：トラックバック ★：2006/07/25(火) 07:49:24 ID:8jt9nGq20

【トラックバック来たよ】（ver.0.10）
[タイトル] phentermine
[発ブログ] phentermine
http://www.phentermine.fws1.com/
[＝要約＝]
<a href="http://www.phentermine.fws1.com">phentermine</a> order phentermine cheap drug online <a href="http://www.meds-today.com/Ultram.html">ultram</a> prescription medication viagra <a href="http://store.discountedpills.com/Cheap_Viagra.html">viagra</a> pharmacy medications phentermine

713 ：トラックバック ★：2006/07/25(火) 22:26:25 ID:/Pt/XdbE0

【トラックバック来たよ】（ver.0.10）
[タイトル] viagra
[発ブログ] viagra
http://store.discountedpills.com/Cheap_Viagra.html
[＝要約＝]
<a href="http://store.discountedpills.com/Cheap_Viagra.html">viagra</a> pill phentermine physician <a href="http://www.meds-today.com/Ultram.html">ultram</a> medicine viagra tablet <a href="http://www.discounted-medications.com/order-phentermine.html">phentermine</a> medicine viagra tablet

714 ：トラックバック ★：2006/07/26(水) 00:08:34 ID:gCqT1qno0

【トラックバック来たよ】（ver.0.10）
[タイトル] ultram
[発ブログ] ultram
http://www.u-blog.net/painrelief
[＝要約＝]
<a href="http://www.u-blog.net/painrelief">ultram</a> <a href="http://www.angelfire.com/planet/viagra-strong">viagra</a> <a href="http://maxpages.com/slimgirl">phentermine</a>

715 ：トラックバック ★：2006/07/26(水) 02:26:18 ID:d2Xsd3uM0

【トラックバック来たよ】（ver.0.10）
[タイトル] online casinos
[発ブログ] online casinos
http://www.1-internet-casino.us/
[＝要約＝]
<a href="http://www.1-internet-casino.us">casinos</a> learn casino rules online at gambling portals <a href="http://www.gambling-day.com/">casino</a> casino games rules, tips, jokes is first you must read before gambling online <a href="http://www.casino-twenty.com/">casinos</a> play for free in online casinos in one of about 100 free games

---

■このレスへのトラックバック
[order tramadol online] http://rbmaster.ru/context/order-tramadol-online.html
[cheap phentermine] http://phenterminew.host-page.com/
[buy cheap phentermine] http://phenterminew.host-page.com/
[cialis] http://cialisx.iespana.es/
[phentermine] http://phenterminew.host-page.com/
[buy cialis online] http://cialisx.iespana.es/buy-cialis-online.html
[buy phentermine] http://www.quizilla.com/users/phentermineq/journal/
[webcam sesso] http://florencebiennale.org/images/sesso/webcam-sesso.html
[incontro italia] http://florencebiennale.org/images/incontro/incontro-italia.html
[sesso in ufficio] http://florencebiennale.org/images/sesso/sesso-in-ufficio.html
[sesso anale] http://florencebiennale.org/images/sesso/sesso-anale.html
[lodine] http://lodine.bloggingmylife.com/
[lodine] http://bloggerblast.com/lodine/
[incontro sesso] http://florencebiennale.org/images/incontro/incontro-sesso.html
[lodine] http://blug.dev.exoweb.net/Members/Lodine/
[foradil] http://blug.dev.exoweb.net/Members/foradil/
[foradil] http://bloggerblast.com/foradil/
[hydrocodone] http://www.queroumforum.com/hydrocodoneq/
[buy hydrocodone online] http://www.queroumforum.com/hydrocodoneq/
[hydrocodone online] http://www.queroumforum.com/hydrocodoneq/
[buy hydrocodone] http://blug.dev.exoweb.net/Members/hydrocodone/
[hydrocodone apap] http://www.soulblogger.com/hydrocodoneq/
[hydrocodone online] http://www.soulblogger.com/hydrocodoneq/
[buy hydrocodone without a prescription] http://www.soulblogger.com/hydrocodoneq/
[buy hydrocodone] http://www.soulblogger.com/hydrocodoneq/
[buy hydrocodone online] http://www.soulblogger.com/hydrocodoneq/
[hydrocodone no prescription] http://www.soulblogger.com/hydrocodoneq/

716 ：名無しさん＠ぜろちゃんねる：2006/07/27(木) 15:33:53 ID:MKjk5ANoO

最新版
携帯用のレスを省略させずに最初から全部表示させるにはどうすれば？

717 ：名無しさん＠ぜろちゃんねる：2006/07/27(木) 21:28:22 ID:???0

舌足らずな質問は無視

718 ：名無しさん＠ぜろちゃんねる：2006/07/30(日) 10:23:29 ID:???0

>>716
まず、長い文章を書き込みして携帯で何文字目で省略されてるか調べる。
そのあと調べた数字をすべてのファイルで検索して探す。なければ１つ数字をずらして調べて。
見つかったらその数字を変更する（例えば10000とかコメントアウトしても良いかも）
そうやって俺は変更した。perlが分からなくてもどうにかなる。

719 ：名無しさん＠ぜろちゃんねる：2006/07/30(日) 10:24:44 ID:1H0JwRG+0

利用者が最初にパスワードを設定して、あとから自分のスレッドを削除できるようにしたいのですが、どうすればいいでしょうか？

720 ：7M. ◆dq7M./4Uw. ：2006/07/30(日) 15:14:22 ID:???0

>719
http://newsplus.jp/~lab/cgi-bin/userdel.zip
多分これかな。昔作ったこんなんでよかったら。
でも昔過ぎて処理内容とかさっぱり覚えてない。
ソースも汚いかもしれない。まぁいっか。

721 ：名無しさん＠ぜろちゃんねる：2006/07/31(月) 14:46:08 ID:???0

>>716
http://0ch.mine.nu/test/read.cgi/jikken/1120050851/617-619
http://www12.atwiki.jp/0ch/pages/19.html

722 ：藤モン ◆gz3eeJ1DVw ：2006/08/01(火) 07:28:35 ID:???0

条件とかつけて自動にdat落ちさせるプラグインとかありません？

もしもなかったら、誰か優しい人が作ってくれると嬉しいです

723 ：7M. ◆dq7M./4Uw. ：2006/08/01(火) 20:57:20 ID:???0

>722
プラグインは無い…かな。
条件ってのがどんなのかよくわからんけど、昔作った圧縮用cgiなら、
・サイズが一定数以下or以上はdat落ち
・書き込み数が一定or以上ならdat落ち
・最終更新から一定以上たってたら以下略
みたいな感じで処理してた。
ただ0ch用に書いたわけじゃないからチューニングしないと使えないけど…。

724 ：名無しさん＠ぜろちゃんねる：2006/08/02(水) 16:30:18 ID:???0

+　　　+
　　∧＿∧ 　+
　（0゜・∀・）　　　ﾜｸﾜｸﾃｶﾃｶ
　（0゜∪ ∪ + 　　　　　　　
　と＿_）__）　+

725 ：7M. ◆dq7M./4Uw. ：2006/08/03(木) 00:45:12 ID:???0

>724
それはつまり「チューニングしなさい」って事ですか…

726 ：名無しさん＠ぜろちゃんねる：2006/08/03(木) 02:03:20 ID:???0

2chのようにsage指定した場合、[sage]と表示するにはどうすればよいですか？

727 ：726：2006/08/03(木) 04:33:51 ID:???0

自己解決しますた。スレ汚しスマソ汗

728 ：藤モン ◆gz3eeJ1DVw ：2006/08/03(木) 11:24:04 ID:???0

>>725
やってくれると嬉しいです

729 ：7M. ◆dq7M./4Uw. ：2006/08/03(木) 15:22:26 ID:???0

あの圧縮用スクリプトはですね…
過去ログ周りのスクリプト…確かdatをhtmlに変換するヤツとか、
過去ログフォルダindex作成用スクリプトとか、
色んなヤツと複雑に絡まっちゃってて、
0ch用に改造するにはなかなか面倒くさいというか、何と言うか。

単に圧縮するだけの機能ならまぁ何とかならないことも無いかもしれませんけど、
0ch過去ログindex作成との同期とかそーゆーがちと難しいんだな…
だから、過去ログフォルダに放り込むだけのcgiになっちゃうだろうけど、
それでもよかったら…

730 ：藤モン ◆gz3eeJ1DVw ：2006/08/04(金) 11:50:57 ID:???0

>>729
要は「ある程度溜まってたら過去ログ生成してください」
って事ですか？

731 ：7M. ◆dq7M./4Uw. ：2006/08/04(金) 22:08:43 ID:???0

>730
半分はそういう事ですね。ですがもう半分は、
「未html化の過去ログの置き場所が0chのものと同期しているか？」
です。
cgiが過去ログフォルダに放り込んだ未html化の過去ログの場所を、
0chの過去ログdatのhtml化システムがきちんと認識してくれるか？
と。じゃないと過去ログ生成ができないですから。

ん？あるいは過去ログシステムを完全に0chのから切り離しちゃえばいいのかな…？

732 ：藤モン ◆gz3eeJ1DVw ：2006/08/05(土) 00:44:57 ID:???0

>>731
いろんな手が考えられるみたいですが、そのあたりはお任せします

うｐお待ちしてます

733 ：7M. ◆dq7M./4Uw. ：2006/08/05(土) 02:05:29 ID:???0

ふむ。
そうですねぇ、とりあえず圧縮用のcgiだけでも何とかしちゃいましょうか。
でも今ちょっと忙しいから少し時間がかかるかも。
ご容赦くだされ。

734 ：7M. ◆dq7M./4Uw. ：2006/08/05(土) 14:40:02 ID:???0

あっと。
そういえば、条件圧縮はどんな条件で圧縮すればいいんですかね。
0chの管理用cgiには、
"最終書き込み時刻とスレッド位置とレス数と停止スレッド"
で一括dat落ちさせるのがついてるみたいですから、
他の条件って事だと、スレッドのサイズですかね。

735 ：藤モン ◆gz3eeJ1DVw ：2006/08/05(土) 14:59:44 ID:???0

>>734
それを手動じゃなくて自動でできたらいいな、ってのが考えです

736 ：7M. ◆dq7M./4Uw. ：2006/08/05(土) 15:43:04 ID:???0

え、自動でやるんですか？
自動でやるとなると結構面倒臭い事になるな…
ってかプラグインとかで処理すると、
書き込みとプラグインの起動だと当然プラグインの起動の方が早く行われるから、
書き込まれようとしてるスレッドが落ちちゃったりとかしたらどうなんだろう。。。
cgiの時限実行とかはやり方よく知らないし…
あんまりお勧めできないような。

737 ：名無しさん＠ぜろちゃんねる：2006/08/06(日) 13:07:43 ID:???0

新スレが立ったときに、圧縮ルーチンに入るようにしたら充分でないか？

738 ：7M. ◆dq7M./4Uw. ：2006/08/09(水) 23:57:58 ID:???0

ああ、なるほど、それなら大丈夫か。
んじゃぁそうしてみるべか…。

739 ：名無しさん＠ぜろちゃんねる：2006/08/16(水) 23:08:11 ID:bNeGzX5E0

ttp://chibaita.sakura.ne.jp/test/read.cgi/main/1153616493/
この削除依頼自動化システムほちぃ

740 ：7M. ◆dq7M./4Uw. ：2006/08/17(木) 17:57:58 ID:???0

あー夏休みになったー何をするんだっけー圧縮システムかー
よーし暫くぐでぐでしたら書くぞー多分書くぞーおそらく書くぞー

741 ：名無しさん＠ぜろちゃんねる：2006/08/17(木) 18:55:16 ID:???0

+　+　　+　+　　+
　　∧＿∧ 　+　　+
　（0゜・∀・）+　　　ﾜｸﾜｸﾜｸﾜｸﾜｸﾃｶﾃｶﾃｶﾃｶﾃｶ
　（0゜∪ ∪ + 　+　　　　　　　
　と＿_）__）　+