CGI-BBS > 電子掲示板 > 簡易BBS > minibbsでURL表示の位置を変えたい


カレッヂ
カレッヂ


質問者 りく  投稿日 1/7(日) 18:37:52  [削除] (返信・回答が付いた後にこの質問の削除はできません)
お世話になります。

簡易BBS -Type2- version 1.33でURLの表示をタイトル（Subject）の下にもってきたいのですが、
うまく動かせません。HTMLの感覚でいじってしまったのがいけないのか。。。
いくら動かしても名前やemailの下にきてしまいます。

下記がいじった後のソースです。
どなたかアドバイスいただけないでしょうか。

        elsif ($begin && /^subject\t(.*)/) {

                $subject = $1;

                print "<TABLE WIDTH=450 BORDER=0 CELLPADDING=0 CELLSPACING=0><TR><TD width=100%><FONT SIZE=+1 COLOR=\"#eeeeee\">\n";
                if ($rm) { print "<input type=checkbox name=\"target\" value=\"$number\">削除  "; }
                print "$subject<BR>\n";
        }


#以下が問題のURL表示の部分です。
        elsif ($begin && /^url\t(.*)/) { $url = $1;
        if ($url ne '') { print "<a href=\"http://$url\" target=\"_blank\">http://$url</a><BR><p><p>\n"; }
}
#以上

        elsif ($begin && /^name\t(.*)/) { $name = $1; print "<ul><li>by $name "; }
        elsif ($begin && /^email\t(.*)/) {

                $email = $1;
                if ($email ne '') { print "<a href=\"mailto:$email\"><font class=\"clsPlainText\">$email</a>"; }
        }

        elsif ($begin && /^date\t(.*)/) { $date = $1; print " $date\n"; print "No:$number "; }
        elsif ($begin && /^host\t(.*)/) {

                $host = $1;
                if ($view_host) { print "Host:$host "; }
                else { print "<!-- $host -->\n"; }
        }

        elsif ($begin && /^agent\t(.*)/) {

                $agent = $1;
                if ($view_agent) { print "Agent:$agent "; }
                else { print "<!-- $agent -->\n"; }
        }


        elsif ($begin && /^\t$/) {

                $begin = 0;
                print "</ul><blockquote>\n";
                if ($IE) { print ""; }
                if ($pre == 1 || $pre eq '') { $pre = 1; print "<pre>\n"; }
        }

        elsif ($begin2 && /^\t(.*)/) {

                $value = $1;
                if ($pre == -1) { print "$value<br>\n"; }
                else { print "$value\n"; }
        }
        elsif ($begin && /^image\t(.*)/) { $image = $1; }
#        elsif ($begin && /^url\t(.*)/) { $url = $1; }
        elsif ($begin && /^pre\t(.*)/) { $pre = $1; }
        elsif ($begin && /^length\t(.*)/) { $length = $1; print "<!-- $length --><p>\n"; }


        elsif ($boundary ne '' && /^$boundary$/) {

                $begin2 = 0;
                if ($pre == 1) { print "</pre>\n"; }
                print "<p>\n";

                if ($image) { print "<img src=\"http://$image\"><p>\n"; }
#                if ($url) { print "<a href=\"http://$url\" target=\"_blank\">http://$url</a><p>\n"; }

返信(回答)する

Ｗｅｂ裏技