【 スクリプト改造工房 PART 5 】

[0001 nobodyさん 02/08/01 18:19 ID:???]

#================================
# スレッドの説明
#================================

「スクリプトを改造したいけどやりかたわかんないよー」という人がいましたら
ここで聞いてください。ひょっとしたらアドバイス出来るかもしれません。

質問するときは以下の点に注意して書いて下さい

(1) そのスクリプトの内容と置いてある場所を明記する (txtファイルでUPすればなお良い)
(2) どんな風に改造して欲しいのか？ (完成イメージHTMLを用意すればなお良し)
(3) 出来るだけ詳しく書くこと。少しは自分で考えること。できれば御礼も言ったほうが良い

※答えてくれないからといって逆ギレする厨はお断り

#================================
# 過去のスレッド
#================================

【PART1】行方不明
【PART2】http://pc.2ch.net/test/read.cgi/perl/986986227/
【PART3】http://pc.2ch.net/php/kako/988/988808396.html (HTML化済み)

[0576 nobodyさん 03/01/09 00:37 ID:???]

>>574
# ealis_cfg.cgi
以下の行を追加
$INI{'res_view'} = 5; # レスの表示数

# ealis_let-std.pl
sub lettering 内にあるif文を書き換える
if ($oyaflag) {
    #この中はそのまま
} else {
    if($flag != 2) { print "<br><hr width=\"95%\" size=1 class=r noshade>\n"; $flag = 2;}
    $resflag = 1;
    if (@res >= $INI{'res_view'}) {
        shift @res;
    }
    push @res, join("\t", $name, $color, $ipaddr, $font, $comment, $date);
}

以下を追加
sub printres {
    foreach (@res) {
        my($name, $color, $ipaddr, $font, $comment, $date) = split /\t/;
        print qq[\t<table border=0 cellspacing=0 cellpadding=0><tr><td nowrap valign=top>\n].
              qq[\t<font color="$color"><b>$name</b><!-- $ipaddr --> ></font></td>\n].
              qq[\t\t<td$font><font color="$color">$comment</font>\n].
              qq[\t\t<span class="stamp">($date)</span></td></tr></table>\n];
    }
    $resflag = 0;
    @res = ();
}

[0577 nobodyさん 03/01/09 00:38 ID:???]

(続き)
# ealis.cgi
106行目あたりにある if($flag){ &reswindow($_[0]);} の上に
if($resflag) { printres(); }
を追加。119行目あたりにもあるので同様に。