ぜろちゃんねるアシストスクリプト

1 ：◆masa6ZQkmE ：03/10/16 13:40 ID:EIjJ21rM: ぜろちゃんねるをアシストするスクリプトを作るスレ

配布中ｱｼｽﾄｽｸﾘﾌﾟ㌧

ぜろちゃんヘッドラインVer 3.2
http://bbs.marsa.org/headline03.lzh
185 ：名無しさん＠ぜろちゃんねる：03/11/19 22:20 ID:???: >>184
＞あと、板選ぶんじゃなくて、最初から検索する板をこっちで決めておきたいんですが
57～64行目コメントアウト

94行目以下の$bbsを板ディレクトリ名に変更
186 ：名無しさん＠ぜろちゃんねる：03/11/19 22:22 ID:???: >>185
ありがとうございました。

ついでですが、ベンチマークってなんなんですか？
187 ：名無しさん＠ぜろちゃんねる：03/11/19 22:26 ID:???: http://yougo.ascii24.com/gh/search/?pattern=%83x%83%93%83%60%83%7D%81%5B%83N
188 ：名無しさん＠ぜろちゃんねる：03/11/19 22:27 ID:???: ありがとーごぜーやした
189 ：名無しさん＠ぜろちゃんねる：03/11/19 23:12 ID:???: いや別にアシストって訳じゃないんだけど、新機能要望して本体に組み込む程じゃないと思って・・・

なんかカウンター？っつーのかな、そんなのを作って、
どのdatファイルが～回転送されました
とか出たらおもしろくない？
それ管理画面から見れなくても、cgiとかでもいいけど。
どうせそれ自体見られるのは全く害ないじゃん？
でもどうしても嫌って人の為にはパスワードロックとか付けたりして・・・

そんなの作ってください、神様仏様。
190 ：名無しさん＠ぜろちゃんねる：03/11/20 17:14 ID:???: 2chブラウザへの対応が難しそうだな
191 ：名無しさん＠ぜろちゃんねる：03/11/20 17:22 ID:???: つーか、おもしろいか？
192 ：◆masa6ZQkmE ：03/11/20 18:50 ID:???: >>189
鯖に無駄な負荷をかけr(ry

別に、カウントするのは良いけど、
カウントする条件が「***.dat呼び出す」だと、凄いことになるよ。
一つのレスを読むときにだけでも１回呼び出すわけで、
中規模、大規模だと、呼び出される回数が半端じゃなく多いし、
鯖にかなりの負荷がかかるよ。
193 ：名無しさん＠ぜろちゃんねる：03/11/20 22:45 ID:???: 2chブラウザからのリクエストはどうするんだ？
194 ：名無しさん＠ぜろちゃんねる：03/11/20 22:46 ID:???: よく見るとかぶってた・・・
195 ：名無しさん＠ぜろちゃんねる：03/11/21 18:15 ID:???: ime.meのパクリ(?がいらない)

.htaccess
ErrorDocument 404 /jump.cgi

jump.cgi
#!/usr/local/bin/perl

$url = $ENV{'REQUEST_URI'};
$url =~ s|/||;

print "Content-type: text/html\n\n";
print "<html><head><title>jump</title></head>";
print "<a href=http://$url>http://$url</a> 別のサイトにジャンプしようとしています。";
print "宜しければ上記のリンクをクリックしてください <hr>\n";
print "広告\n";
print "<hr>広告のお問い合わせはad\@ime.st";
print "<a href=http://ime.st>Powered by ime</a>021126\n";

index.html
適当に
196 ：名無しさん＠ぜろちゃんねる：03/11/21 18:37 ID:???: >>195
ime.meではなく、ime.nuですが。
そのスクリプトありがたく使わせていただきます
197 ：◆nt3lRJU9w2 ：03/11/21 19:04 ID:KSetniTo: 上のだと、「http://」を入れるとそれまで読み込んじゃうので
#!/usr/local/bin/perl

$url = $ENV{'REQUEST_URI'};
$url =~ s|/||;
if($url =~ /http:/ ) {
$url = "$url";
}else{
$url = "http://$url";
}
print "Content-type: text/html\n\n";
print "<html><head><title>jump</title></head>";
print "<a href=$url>$url</a> 別のサイトにジャンプしようとしています。";
print "宜しければ上記のリンクをクリックしてください <hr>\n";
print "広告\n";
print "<hr>広告のお問い合わせはad\@ime.st";
print "<a href=http://ime.st>Powered by ime</a>021126\n";

にするとOk
198 ：masa(ry：03/11/21 19:09 ID:KSetniTo: やべぇ、ﾄﾘｯﾌﾟ間違えた。
199 ：名無しさん＠ぜろちゃんねる：03/11/22 21:14 ID:???: 削除支援スクリプトの"もどき"がとりあえず完成。
説明書書きをしていますので、もうちょっと時間かかるかな。
200 ：名無しさん＠ぜろちゃんねる：03/11/22 21:22 ID:???: 期待！
201 ：199 ◆316Hikarig ：03/11/22 23:04 ID:???: ふう、とりあえず出来た、と。
削除支援スクリプト(仮)1.00βを公開します。
http://www.hikarin.net/0ch/script/sakusien.zip

ちなみに削除支援スクリプトはこんな感じ。ItadakiOnline2フレーム版と似ています。
http://www.hikarin.net/0ch/test/saku.html
(ID=deleter パスワード=testで削除を行うことが出来ます。)

http://www.hikarin.net/0ch/sakusien/index.html(実験用掲示板)
202 ：199 ◆316Hikarig ：03/11/22 23:06 ID:???: 修正。下のリンクが半角括弧までハイパーリンクになっていたので…
http://www.hikarin.net/0ch/sakusien/index.html
203 ：名無しさん＠ぜろちゃんねる：03/11/22 23:13 ID:???: ｷﾀ━━━━(ﾟ∀ﾟ)━━━━!!!!
204 ：名無しさん＠ぜろちゃんねる：03/11/22 23:25 ID:???: ｷﾀ━━(ﾟ∀ﾟ)━━( ﾟ∀)━━(　ﾟ)━━( 　 )━━(ﾟ　 )━━(∀ﾟ )━━(ﾟ∀ﾟ)━━!!!
205 ：名無しさん＠ぜろちゃんねる：03/11/22 23:29 ID:???: >>201は神・天才・大天使。。。。
最高！＆サンクス！！！！！！！！！！
206 ：◆dq7M./4Uw. ：03/11/22 23:36 ID:???: >>201
お疲れ様でし。
ついでにdoronpoとかitameshiとかもお願（略
207 ：名無しさん＠ぜろちゃんねる：03/11/22 23:37 ID:???: なんでまた旧Ver?
208 ：名無しさん＠ぜろちゃんねる：03/11/22 23:38 ID:???: 時間かかってもいいからβに対応して・・・
209 ：名無しさん＠ぜろちゃんねる：03/11/23 07:55 ID:???: あぁ・・・・旧verなんだ・・・・
210 ：masa(ry：03/11/23 08:35 ID:???: とりあえず、あぼーんは対応したよ
abone.cgiの26行～33行を

my($aid,$apass,$right,$fname)=split(/<>/,$_);
if($apass eq $pass && $aid eq $id){
my($nam,$lev)=split(/=/,$right);
$lev=$right;
if($comm=~/^settingformat/ && $lev=~/^Administrators/){
unlink("./setting.cgi");
ERROR::error("SETTING FORMAT","初期化を行います。 
<a href=\"./sakusen.cgi\">ここ</a>をクリックしてください。");}
elsif($lev=~/^(Administrators|delete)/i){

にして、admindef.cgiのところをusers.cgiにするとOKだと思う
211 ：205：03/11/23 10:09 ID:FJ5SuE4Q: abone.cgiにPerlのパスが書かれてないです；
２１０やってみます
212 ：名無しさん＠ぜろちゃんねる：03/11/23 11:02 ID:???: スクリプトエラーが出てできないです・・・
213 ：名無しさん＠ぜろちゃんねる：03/11/23 12:01 ID:???: 26～32行に貼り付けてみ
214 ：名無しさん＠ぜろちゃんねる：03/11/23 12:23 ID:???: だめでした；；
215 ：名無しさん＠ぜろちゃんねる：03/11/23 12:30 ID:???: jcodeのパスを変えるとか。

まあ使えるようにするには大改造をしないと
216 ：名無しさん＠ぜろちゃんねる：03/11/23 12:47 ID:???: >>203-205
ぬか喜び
217 ：名無しさん＠ぜろちゃんねる：03/11/23 12:53 ID:???: 実行権７７７にしたら「CGIWrap Error: Execution of this script not permitted」
と出ました。どうすれば・・・

私ができるのは、上の方にあったjumpツールを２ちゃんねる風に
書き換えた事ぐらいしかできないです
218 ：名無しさん＠ぜろちゃんねる：03/11/23 12:58 ID:???: スクリプト自体旧Ver用だから現行Verで使うのは無理
219 ：名無しさん＠ぜろちゃんねる：03/11/23 13:02 ID:???: やはりそうですか（'∀`）
では、現行版に期待してます。。
220 ：名無しさん＠ぜろちゃんねる：03/11/23 13:03 ID:???: スレ違いですが、
２ちゃんねるはフレームなのに更新してもトップに戻らないのは、どういうシステムを
使ってるのですか？
221 ：名無しさん＠ぜろちゃんねる：03/11/23 13:22 ID:???: つーか、
>>5に公開してもらえれば一瞬で解決する気が、、
222 ：名無しさん＠ぜろちゃんねる：03/11/23 13:44 ID:???: doronpo.cgiぐらいなら俺でも出来そうだ
223 ：名無しさん＠ぜろちゃんねる：03/11/23 13:53 ID:???: >>222きぼん
224 ：名無しさん＠ぜろちゃんねる：03/11/23 16:16 ID:???: 漏れが完成させたころには既に誰かが完成させてそうだ
225 ：◆dq7M./4Uw. ：03/11/23 16:32 ID:???: doronpoはフォームからの投稿に対して反応してますよね。
あれをどうやって処理するかが問題なわけだ。
226 ：masa(ry：03/11/23 16:53 ID:???: >211
http://bbs.marsa.org/abone.txt
これを使え
あとは、
format.plの43行あたりのadmindef.cgiをusers.cgiにすると動くと思う
227 ：◆oYIB5QaC22 ：03/11/23 16:54 ID:???: >>201
神様乙です。

そして要望。
・スレは参照できるとありがたい。
・同一スレ多発スクリプト等が立てられた時に、
スレッドの題名を入れて、その題名のスレッドを全て消す機能が欲しい。
大量コピペレスも同様に、その機能で消せるようにしたい。

取りあえず今思い付くのはこのくらいです・・・
家はスクリプトで荒らされる事が多いもので
228 ：199 ◆316Hikarig ：03/11/23 17:08 ID:???: えー、さっき削除支援スクリプトの0chSCRIPTβ対応版を作っておきました。
また準備がいるので少しお待ちくださいな。

>>210
abone.cgiのPerlのパスが書かれていないのはabone.cgiがPerlLibraryと似た扱いをしている為です。
ややこしかったかな？パーミッションも600にしてあるのはその所為です。
229 ：masa(ry：03/11/23 17:16 ID:???: >>228
ここは、.plにした方が分k(ry
230 ：◆dq7M./4Uw. ：03/11/23 19:03 ID:???: >>227
題名削除とコピペ削除は昔おいらが作ったのがあるけど。。。
0chに対応しなきゃいけないなぁ。

#0chへの対応はmasa(ryさんに任せちゃおうかナ☆
231 ：210,211です：03/11/23 19:05 ID:???: >>226 >>228
お二方、とても親切に対応して下さって、感激です。
これからも頑張って下さい。
232 ：masa(ry：03/11/23 19:10 ID:???: >>230
∑
自分は、0ch対応にするための道具だったのか・・・(違
233 ：199 ◆316Hikarig ：03/11/23 19:14 ID:???: 削除スクリプト0chScriptβ版対応版を公開します。
下のURLからダウンロードしてください。
http://www.hikarin.net/0chbeta/script/sakubeta.zip

また、β版の実験場は下記の通りです。
http://www.hikarin.net/0chbeta/sakusien/
http://www.hikarin.net/0chbeta/test/saku.html

ファイル構成が今回異なりますが、恐らく前のバージョンより設置は
容易かと思われます。
234 ：名無しさん＠ぜろちゃんねる：03/11/23 19:22 ID:???: ｷﾀ━━━━(ﾟ∀ﾟ)━━━━!!!!

お疲れさまです。
235 ：masa(ry：03/11/23 19:28 ID:???: >>233
ｷﾀ━━━━(ﾟ∀ﾟ)━━━━!!!!
乙カレーです。
236 ：名無しさん＠ぜろちゃんねる：03/11/23 19:44 ID:???: >>233
XREAは、各拡張子のパーミッションは、
.pl=644
.cgi=705
.html=644
ですねー。
237 ：210,211：03/11/23 19:55 ID:Isi+Rmv6: ━━(ﾟ∀ﾟ)ｷﾀ━━
早速使わせていただきます！！
238 ：5 = Alto44 ◆mAltoNF44w ：03/11/23 20:07 ID:???: この波にのって晒してみるテス㌧・・・
ttp://alto.s31.xrea.com/bbs4/doronpo/

遅くなっててすいません、とりあえず鯖に設置だけしてみたので適当に遊んでてください・・・
その間に配布用の説明書くのでDLはもう少しお待ちください・・・

本当に申し訳ないです
239 ：masa(ry：03/11/23 20:37 ID:???: >>238
荒らされてるな…ﾄﾞﾝﾏｲだ。
制限とか掛けた方がいいぞ
240 ：7M. ◆dq7M./4Uw. ：03/11/23 20:48 ID:???: あぼーん砲をぶっぱなせー。
241 ：名無しさん＠ぜろちゃんねる：03/11/23 21:03 ID:k0/xnN3k: >>238
こっちもｷﾀ━━(ﾟ∀ﾟ)━━!!
期待!!(；ﾟ∀ﾟ)=3ﾊｧﾊｧ
242 ：210,211 ：03/11/23 21:38 ID:???: >>233バグﾊｹｰﾝ
・READMEで↓
+--<test>
　　 |　（中略）
　　 |　index.html　[644]
　　 |　index2.html [644]
　　 |　sakusen.cgi [700]
　　 |　setting.cgi [600](CGI側から自動作成)
sakusen.cgiはsaku.cgiではないですか、、

・saku.cgiのPerlパスの固有値がおかしい（固有の設定？）

以上です。作成乙＆禿感謝！
243 ：199 ◆316Hikarig ：03/11/23 21:48 ID:???: >>242
修正しました。バグ報告ありがとうございます。

ちなみにsaku.cgiのPerlのパスなのですが、#!D\perl\bin\perlとなっていたと思います。
それはローカルで実験した後修正し忘れていたためです。
244 ：210,211：03/11/23 21:49 ID:???: なるほど。それにしてもいいスクリプトですな。
245 ：名無しさん＠ぜろちゃんねる：03/11/23 21:51 ID:???: >>238
公開キボンヌ
246 ：名無しさん＠ぜろちゃんねる：03/11/23 22:21 ID:???: あのう、書き込み確認画面で、
「書き込みました。
しばらくお待ちください」って出るところの
下に広告いれないようにするには、どうすればいいですか？
そこまで広告入れる必要ないと思われ。
247 ：名無しさん＠ぜろちゃんねる：03/11/23 22:24 ID:???: >>246
スレ違いだが
elrond.pl 359～360行目　コメントアウト
248 ：名無しさん＠ぜろちゃんねる：03/11/23 22:27 ID:???: コメントアウトって、削除って事ですよね。
249 ：名無しさん＠ぜろちゃんねる：03/11/23 22:31 ID:???: でも、失敗したときとか
もう一度表示させたいとか思ったときにはあった方が便利だから
コメントアウト（先頭に#）の方がイイと思われ
250 ：名無しさん＠ぜろちゃんねる：03/11/23 22:34 ID:???: >>249
了解。サンクスコ。
251 ：名無しさん＠ぜろちゃんねる：03/11/23 23:02 ID:???: スレ違い承知で、ついでに質問。
簡単な事ですが、dat落ちってどうやるのでしょうか。
252 ：名無しさん＠ぜろちゃんねる：03/11/23 23:06 ID:???: admin.cgi
スレッド保守
スレッドプーリング
253 ：名無しさん＠ぜろちゃんねる：03/11/23 23:08 ID:???: >>252
サンクス。スレ違いスマソ
254 ：はりねずみ ◆HaRinezUmI ：03/11/23 23:13 ID:???: おお、いろいろ来てるーーー！
お疲れ様です
255 ：名無しさん＠ぜろちゃんねる：03/11/30 14:58 ID:???: >>201の削除スクリプト作成者様

ええと、私は0chスクとlv3をそれぞれ別ページで同時平行して使っているのですが
この削除スクリプトをlv3スク用に改造してもよろしいでしょうか？
また、lv3でも使いたい、という方が多いので、
それを配布しても大丈夫でしょうか？？
あまりに便利そうなので、是非、よろしくお願いいたします。
ご迷惑はおかけしないようにしますので・・・。
256 ：名無しさん＠ぜろちゃんねる：03/12/01 00:04 ID:???: キャップ持ちだけタグ使用可の機能がホスィ。
どなたかできませんかね？
257 ：7M. ◆dq7M./4Uw. ：03/12/01 00:40 ID:???: >>256
まぁ出来ますけどね、
使用できるタグの問題とかいろいろ。
例えば、タグを使った状態で

省略されました…

が出ると、indexでタグが閉じないままになちゃうとか。
258 ：masa(ry：03/12/01 17:06 ID:???: >>256
>257の言う通りだな。
もし、キャップユーザーがタグの閉じ忘れとかしたら、
そのﾚｽ以降に色々と不具合がでるし
259 ：199 ◆316Hikarig ：03/12/01 18:37 ID:???: >>255
出来るのであれば。説明書に改造は自由とあります。
配布に関してもそちらで行ってください(その時は配布先URLを教えてください)。
260 ：256：03/12/01 21:01 ID:???: >>257-258さん
ああ、なるほど。たしかにそのような危険も伴いますね。
でも自己責任で使いますので、もしできるようであるならば
是非お願いしたいです。よろしいでしょうか？
261 ：名無しさん＠ぜろちゃんねる：03/12/01 22:59 ID:???: 諸刃の剣
262 ：867：03/12/02 17:16 ID:???: >>256　キャップ保持者だけが、変換機能つかえるようにしたら？独自タグを追加して
263 ：256：03/12/02 18:48 ID:???: 何度も何度も申し訳ない。

>>262さん
それが一番無難かも知れませんね。
でもやり方がよくわからないので、教えて頂けたら光栄です。
264 ：名無しさん＠ぜろちゃんねる：03/12/02 19:11 ID:???: >>263
ぜたでタグ（もどき）動いてるんだから聞いたら？
265 ：名無しさん＠ぜろちゃんねる：03/12/02 23:40 ID:???: あそこは旧Verだから微妙に違うような・・・

hogeさんが現れるのを待つか。
266 ：7M. ◆dq7M./4Uw. ：03/12/03 00:41 ID:???: 簡単にやるなら…
samwise.plの120行目くらいのデコード部分に、例えば、
$val =~ s/[b]//g;
ってのを終了タグもおんなじ感じで追加すればいいんだけど、
キャップ無くてもこれだと使えちゃうんですよね、タグ。
だからこれにキャップの判別を追加せなあきまへん、と。
それは誰か他の人よろしくお願いします、と。
しゅたたたたっ（逃
267 ：◆rN6ij4/mI6 ：03/12/03 02:50 ID:???: valda.plのWriteDataの
> $text = $S->Get('MESSAGE');
の直前でDecodeFormをmode=0で取得しなおせれば普通にタグが使えそうだけども
> if ($U->HasAuthority([権限番号],$bbs)){ $S->DecodeForm(0); }
できるのか不明…
今試してる時間がないので書き逃げ
しゅたたたたっ（上の人の真似
268 ：◆rN6ij4/mI6 ：03/12/03 02:53 ID:???: >>267
あーできるとしてもsamwise.pl側でDecodeFormのif($mode){～}の後にelse～入れて改行コードは処理しないと(汗
269 ：◆rN6ij4/mI6 ：03/12/03 02:57 ID:???: >>267-268 連カキコスマソ
elseじゃなく最初にif($mode == 2){～}とか拡張して改行処理して以下elsif($mode)～にしないと他で不具合出るからっ
270 ：◆rN6ij4/mI6 ：03/12/03 03:21 ID:???: >>267-269 031123だけど動作確認しますた

samwise.pl
> if ($mode){
を
> if ($mode == 2){
> $val =~ s/\r\n|\r|\n/ /g; # 改行
> $val =~ s/ + / /g; # 空白+ 
> $val =~ s/(　)+ / /g; # 空白+ 
> }
> elsif ($mode){ # 抑制モード
に書き換え、

valda.pl
> $text = $S->Get('MESSAGE');
の前の行に
> if($U->HasAuthority(4,$S->Get('bbs'))){ $S->DecodeForm(2); }
を挿入（権限はたぶん本文文字数規制解除を流用）

ただしこのままだとポインタなどタグ文字を入れるときは自分で<とか>とか代替しなければならない諸刃なので
タグは普通に代替して独自タグを置換すればいいと思われ。
> if ($mode == 2){
> $val =~ s/"/"/g;$val =~ s/</</g;$val =~ s/>/>/g;
> $val =~ s/\r\n|\r|\n/ /g;
> $val =~ s/ + / /g; $val =~ s/(　)+ / /g;
> $val=~ s/[b]//g; $val=~ s/[\/b]/<\/b>/g;
> ～～～
> }
> elsif ($mode){ # 抑制モード

あとAタグとか使うときは自動リンクを切る拡張も必要（説明略…おやすみなさい...
271 ：◆rN6ij4/mI6 ：03/12/03 03:35 ID:???: はっ、フトンに潜って落ち着いて考えてみたら、
独自タグなら samwise.pl の書き換えナシに valda.plだけで
> if($U->HasAuthority(4,$S->Get('bbs'))){
> $text =~ s/[b]//g; $text =~ /[\/b]/<\/b>/g;
> ～～～
> }
ってやりゃ済むじゃん…＿|￣|○
272 ：256：03/12/03 15:37 ID:???: >>264-271さん
ありがとうございます。まとめると、
> if($U->HasAuthority(4,$S->Get('bbs'))){
> $text =~ s/[b]//g; $text =~ /[\/b]/<\/b>/g;
> ～～～
> }
で、「～～～」の部分は自分で置き換えるんでokですよね？

…でも置き換え方がよくわかりません。こんな厨に誰か助言を。。。
273 ：名無しさん＠ぜろちゃんねる：03/12/03 16:25 ID:???: >>272
～～～ってのは使いたいタグを同じように書けっていうこと
例は本文中の[b]をに、[/b]をに置き換えるという記述

でも[b]のような書き方は普通の文章でも表れるし、書き込むやつが
開始と閉じを間違いなく書くという保証もないしな
省略されましたの時もそうだけどdatの破壊は間違いなく起こるだろう
274 ：256：03/12/03 16:47 ID:???: >>273
ありがとうございます。あとは色々試してみることにしますです。
皆様、いろいろ教えて下さってありがとうございました！

＞datの破壊
閉じタグ忘れは命取り。。ですね（汗
275 ：◆rN6ij4/mI6 ：03/12/03 16:49 ID:???: たとえばゆいちゃっと2000(c)yuiの処理をそのまま使ったりとかｗ
> #このタグ閉じは、正しく閉じてある場合も余分に閉じます。（苦笑）
> #禁止タグ削除
> $text =~ s/\[\[.*font-size//ig;$text =~ s/\[\[.*style//ig;
> $text =~ s/\[\[.*width//ig;$text =~ s/\[\[.*height//ig;
> $text =~ s/\[\[.*cols//ig;$text =~ s/\[\[.*rows//ig;
> $text=~s/\[\[img.*\?//ig;$text =~ s/\[\[img.*mailto://ig;
> $text =~ s/\[\[bo//ig;$text =~ s/\[\[ba//ig;$text =~ s/\[\[bg//ig;
> $text =~ s/\[\[.*file:\/\///ig;
> #許可タグをエスケープ
> $text =~ s/\[\[a /__TAG__a /ig;$text =~ s/\[\[font/__TAG__font/ig;
> $text =~ s/\[\[img/__TAG__img/ig;$text =~ s/\[\[b/__TAG__b/ig;
> $text =~ s/\[\[sup/__TAG__sup/ig;$text =~ s/\[\[sub/__TAG__sub/ig;
> $text =~ s/\[\[c/__TAG__c/ig;$text =~ s/\[\[h/__TAG__h/ig;
> #他のタグは全て禁止
> $text =~ s!\[\[/!__TAG__/!ig;
> $text =~ s/\[\[/</ig;$text =~ s/__TAG__/</ig;$text =~ s/\]\]/>/g;
> @tags = split( /</ , $text ); $dmy = shift( @tags);
> foreach $tag ( @tags ){
> $tag =~s/([^>]*)>(.*)/$1/; $tag =~s/^\/(.*)//; $tag =~s/^([^\s]*).*/$1/;
> }
> $text.='>' if($text=~/<\/$/);
> @tags = reverse( @tags );
> foreach $tag ( @tags ){
> next if($tag =~/(img|^hr$|^br$)/i);
> $text.="</$tag>" if($tag);
> }
> $text =~s/<.*(img|href).*on.*=.*/TooManyTAG?/ig;

ごめん、ネタにしては長すぎた＿|￣|○
#省略されましたに関しては未考慮

>>273
意図的に<>を使わない限りdatは壊れないでしょ
表示が崩れるだけ
276 ：名無しさん＠ぜろちゃんねる：03/12/03 19:30 ID:???: サポートスクリプトで、有志の作成だから文句はいえないけど、
ヘッドライン。

かなり正規のモジュールをつかっていないし、
ヘッダーとかフッターとかどうなってるの？無駄な行おおくない？まとめようと思えばかなりまとまる・・
変更するのがｶﾅﾘ手間がかかるし、（そのごとに・・

もっとすっきりとまとまるものを・・・
277 ：名無しさん＠ぜろちゃんねる：03/12/03 19:33 ID:???: それこそ自分で修正するべきかと。。
278 ：名無しさん＠ぜろちゃんねる：03/12/04 10:32 ID:???: >>276
じゃ、すっきりまとめてうｐしてください
279 ：名無しさん＠ぜろちゃんねる：03/12/04 22:11 ID:???: >>278 本人ですか?助言として受け取ってほしいです。
280 ：名無しさん＠ぜろちゃんねる：03/12/05 13:39 ID:???: >>279
違いますよ
別に誰が作ったものでもいいのでよりよいものが欲しいだけです。
ということで、すっきりまとめてうpしてくださいね。お願いしますよ。
281 ：名無しさん＠ぜろちゃんねる：03/12/05 14:00 ID:???: >>280
>>279
282 ：名無しさん＠ぜろちゃんねる：03/12/05 14:14 ID:???: なんだ口だけかよ
283 ：名無しさん＠ぜろちゃんねる：03/12/05 16:25 ID:???: 削除支援スクリプトのスレッド対応版まだぁ？
284 ：Ｂ級住人/hoge ◆UDTUIS.pc. ：03/12/05 21:06 ID:???: ぜたのタグもどきは色替えだけなんですが、

[c=red]なんとかかんとか[/c]

のように一行に開始タグもどきと終了タグがあって初めて置換する仕様なんです。
だからとりあえず、閉じ忘れと、省略対策はしてある(つもり)。

あと新バージョンは触ってないのでわかりません。
旧バージョンではメッセージ欄の正規化の中でやってます。
285 ：名無しさん＠ぜろちゃんねる：03/12/05 23:54 ID:???: >284
あ、ぜたのまともな方だ。

209KB

掲示板に戻る全部前100 次100 最新50

READ.CGI - 0ch+ BBS 0.7.5 20220323
ぜろちゃんねるプラス