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

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]/<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/<br>/g; # 改行
> $val =~ s/ +<br>/<br>/g; # 空白+<br>
> $val =~ s/(　)+<br>/<br>/g; # 空白+<br>
> }
> 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/<br>/g;
> $val =~ s/ +<br>/<br>/g; $val =~ s/(　)+<br>/<br>/g;
> $val=~ s/[b]/<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]/<b>/g; $text =~ /[\/b]/<\/b>/g;
> 〜〜〜
> }
ってやりゃ済むじゃん…＿|￣|○