HOME > パソコン > (続)【パソコン】画像掲示板 imgboard の小改造

【お知らせ(マウスでクリック)2010-10-04】

最新の記事 /   

<相鉄5000系さよなら乗車会ご当選通知書
1月の樽見鉄道(2009年)>

(続)【パソコン】画像掲示板 imgboard の小改造

記事ID別・パーマリンク: http://www.streetcar.jp/blog/index.php?e=783
記事タイトル: (続)【パソコン】画像掲示板 imgboard の小改造
記事YMD別・パーマリンク: http://www.streetcar.jp/blog/index.php?d=20090205
2006年4月2日
【パソコン】画像掲示板imgboardの小改造
http://www.streetcar.jp/ blog/ index.php? e=225

 もう・私自身も、すっかり忘れていた↑この記事ですが、最近...
>どこを書き換えたらいいのか教えて頂けないでしょうか?
 ・・・と言うお問い合わせを頂戴しました。
 ( ありがとうございました。)

 以前の記事には、具体的な改造方法を書いていませんでしたが、それは...
素人がやっつけ仕事?で作ったので、とても人様にお見せ出来る様な物では・・・
 ・・・と言う様な理由だったかと思います。

 ですので、改造は全て「自己責任」での参考とされて下さい。

 なお私は、もう・この掲示板スクリプトに付いて、新しい機能等・現状がどうなっているのか判りません。以前には、入室パスワードを設定していても、内部パラメーターのユーザー設定の誤りなのか、携帯からはパスワード無しで閲覧出来てしまう現象も確認しましたが、今はもう大丈夫なのでしょうか?
【 動作サンプルサイトは、終了しました。(2009-5-31) 】
【 実際に動作している、改造したサイト。 】
 本人もすっかり忘れていたのですが、以前・試しにインストールしてテストしたサイトが、まだ残っていました。実際に、具体的な動作がご覧になりたい方は、下記にどうぞ。
 infoseek isweb に作ったサイトですが、infoseek isweb light (無料版) は、外部からcgiを直接・呼び出せません。従って、下記の手順で見て下さい。

 下記のリンクをクリック します。
http://tramway.hp.infoseek.co.jp/
 左の絵のサイト(ページ)が開きます。
そのまま何秒かすると・・・

 次のアドレスに 自動で飛びます

http:// tramway. hp. infoseek. co.jp/ cgi-bin/ wema4perl/ wema.cgi

 左の絵のサイト(ページ)が開きます。

このページの、左上の「緑色の枠」
<td style="vertical-align: top;">【画像掲示板(imgboard)】(投稿時・パスワード認証中)Apache・Perl
http://tramway.hp.infoseek.co.jp/ cgi-bin/imgboard/imgboard.cgi</td>

 ・・・の 中のアドレス
http:// tramway. hp. infoseek. co.jp/ cgi-bin/ imgboard/ imgboard.cgi
 ・・・をクリックすると・・・

最終的に、imgboard のページにたどり着きます。

 もしくは、下記のアドレスをコピーして、ブラウザーのアドレス欄に直接・張り付けて接続して下さい。
http://tramway.hp.infoseek.co.jp/cgi-bin/imgboard/imgboard.cgi
( この↑サイトは、将来・削除するかも知れません。その節はご容赦を。) 





 この 画像掲示板 ( imgboard )、アップロードされた写真が多数になり、保持しているページが何ページにもなると、目的のページを見るのに・いちいち「次の○○件>」と言うボタンを何回もたたかないと移動出来ない様で、ちょっと不便でした。

 スクリプトを眺めていると、元々・・・

$pre_page・・・・・・・・・前のページ
$next_page・・・・・・・・次のページ
$total_page・・・・・・・合計の総ページ数
$disp_message・・・・各ページの親発言の数

 ・・・の変数が保持されていましたので、それらを利用して直接・指定したページに飛べる様にした物です。
 私が改造した版は、imgboard122r61d です。それ以外のバージョンに付いては、各自・工夫して対応して下さい。

 改造(書換)には、文字コードに注意して下さい。

 アーカイブを展開(解凍)して、出来たファイルの中の・・・

imgboard.cgi

 ・・・を書き換えます。解凍したばかりの状態で・・・


4028:    ◆投稿者:  削除対象の左欄をチェック(複数指定可)、投稿時に入力した削除キーを下欄に入力し「削除」を押す<BR>
4029:HTML_END
4030:     }
4031:        }
4032:
4033:print<<HTML_END;
4034:    <INPUT TYPE="PASSWORD" NAME="passwd" SIZE="10" VALUE="$dd_guest_passwd">
4035:    </font>
4036:    <INPUT TYPE="SUBMIT" VALUE="削除">
4037:    </FORM>
4038:HTML_END
4039:

4040:&output_button_HTML;
4041:
4042:sub output_button_HTML{


↑この4040行目から・・・
 ( 現在の、一番新しいバージョン imgboard122r61h では、4463行目あたりの様です。)

4105:        # ワード検索時のページ変更ボタンは検索パラメータを引きずっていく
4106:        if($FORM{'mode'} eq "search_menu"){
4107:         print "<INPUT TYPE="HIDDEN" NAME="mode" VALUE="search_menu">n";
4108:         print "<INPUT TYPE="HIDDEN" NAME="SearchWords" VALUE="$FORM{'SearchWords'}">n";
4109:         print "<INPUT TYPE="HIDDEN" NAME="MatchMode" VALUE="$FORM{'MatchMode'}">n";
4110:        }
4111:        print "<INPUT TYPE="SUBMIT" VALUE="次の$disp_message 件>">n";
4112:        print "</FONT></TD>";
4113:        print "</FORM>n";
4114:    }else{
4115:        print "<TD bgcolor="#808080">これより先のページはありません </TD>";
4116:    }
4117:
4118:        print "</TR></TABLE>";
4119:}
4120:   

4121:    # 改造,非改造を問わず,クレジットの変更は固くお断りします。(著作権侵害となります)
4122:    # なお,当スクリプトの一部,あるいは全部を利用,あるいは参考にしたスクリプトを作成された場合も,
4123:    # かならず当リンクをその掲示板に付加してください。
4124:    print "<HR>n";
4125:    print "<DIV ALIGN="RIGHT">";


 ・・・4120行目↑までの、赤い文字の範囲 ( 上記では、途中を省略しています。)を、下記の記述に書き換えます。
 ( 現在の、一番新しいバージョン imgboard122r61h では、4543行目あたりの様です。)
 ( あくまでも一例です。)
 ( 分かりやすい様に、少し広く・区切りのいい範囲にしました。)

 下記の通り、4040行目から4120行目までを書き換えてみて下さい。
 ( 現在の一番新しいバージョン imgboard122r61h では 4463行目から4543行目まで )

&output_button_HTML;

sub output_button_HTML{

    print "<P ALIGN=right><TABLE border=2 CELLSPACING=5 CELLPADDING=0><TR>";

    if($pre_page > 0){

       # 先頭へジャンプ
       if($pre_page > 0){
        print "<FORM ACTION="$cgi_name" METHOD="POST">";
        print "<TD><FONT SIZE=-1>";
        print "<INPUT TYPE="HIDDEN" NAME="page" VALUE=1>n";
        print "<INPUT TYPE="HIDDEN" NAME="amode" VALUE=$FORM{'amode'}>n";
        print "<INPUT TYPE="HIDDEN" NAME="p1" VALUE=$FORM{'p1'}>n";
        print "<INPUT TYPE="HIDDEN" NAME="p2" VALUE=$FORM{'p2'}>n";
        print "<INPUT TYPE="HIDDEN" NAME="bbsaction" VALUE="page_change">n";
        print "$POSTADDP{'BUTTONTOPFORM'}n"; # 将来拡張用

        # ワード検索時のページ変更ボタンは検索パラメータを引きずっていく
        if($FORM{'mode'} eq "search_menu"){
         print "<INPUT TYPE="HIDDEN" NAME="mode" VALUE="search_menu">n";
         print "<INPUT TYPE="HIDDEN" NAME="SearchWords" VALUE="$FORM{'SearchWords'}">n";
         print "<INPUT TYPE="HIDDEN" NAME="MatchMode" VALUE="$FORM{'MatchMode'}">n";
        }
        print "<INPUT TYPE="SUBMIT" VALUE=" 先 頭(P.1) ">n";
        print "</FONT></TD>";
        print "</FORM>n";
       }

       # 前の?件へジャンプ
        print "<FORM ACTION="$cgi_name" METHOD="POST">";
        print "<TD><FONT SIZE=-1>";
        print "<INPUT TYPE="HIDDEN" NAME="page" VALUE=$pre_page>n";
        print "<INPUT TYPE="HIDDEN" NAME="bbsaction" VALUE="page_change">n";
        print "<INPUT TYPE="HIDDEN" NAME="amode" VALUE=$FORM{'amode'}>n";
        print "<INPUT TYPE="HIDDEN" NAME="p1" VALUE=$FORM{'p1'}>n";
        print "<INPUT TYPE="HIDDEN" NAME="p2" VALUE=$FORM{'p2'}>n";
        print "$POSTADDP{'BUTTONPREVFORM'}n"; # 将来拡張用

        # ワード検索時のページ変更ボタンは検索パラメータを引きずっていく
        if($FORM{'mode'} eq "search_menu"){
         print "<INPUT TYPE="HIDDEN" NAME="mode" VALUE="search_menu">n";
         print "<INPUT TYPE="HIDDEN" NAME="SearchWords" VALUE="$FORM{'SearchWords'}">n";
         print "<INPUT TYPE="HIDDEN" NAME="MatchMode" VALUE="$FORM{'MatchMode'}">n";
        }
        print "<INPUT TYPE="SUBMIT" VALUE="<前の$disp_message件(P.$pre_page)">n";
        print "</FONT></TD>";
        print "</FORM>n";
    }else{
        print "<TD></TD>";
    }

    # 下部のページ切替えボタンのHTML
    if($next_page <= $total_page){

        print "<FORM ACTION="$cgi_name" METHOD="POST">n";
        print "<TD><FONT SIZE=-1>";
        print "<INPUT TYPE="HIDDEN" NAME="page" VALUE=$next_page>n";
        print "<INPUT TYPE="HIDDEN" NAME="bbsaction" VALUE="page_change">n";
        print "<INPUT TYPE="HIDDEN" NAME="amode" VALUE=$FORM{'amode'}>n";
        print "<INPUT TYPE="HIDDEN" NAME="p1" VALUE=$FORM{'p1'}>n";
        print "<INPUT TYPE="HIDDEN" NAME="p2" VALUE=$FORM{'p2'}>n";
        print "$POSTADDP{'BUTTONNENTFORM'}n"; # 将来拡張用

        # ワード検索時のページ変更ボタンは検索パラメータを引きずっていく
        if($FORM{'mode'} eq "search_menu"){
         print "<INPUT TYPE="HIDDEN" NAME="mode" VALUE="search_menu">n";
         print "<INPUT TYPE="HIDDEN" NAME="SearchWords" VALUE="$FORM{'SearchWords'}">n";
         print "<INPUT TYPE="HIDDEN" NAME="MatchMode" VALUE="$FORM{'MatchMode'}">n";
        }
        print "<INPUT TYPE="SUBMIT" VALUE="次の$disp_message件(P.$next_page)>">n";

print "<td>";
    print " このペ-ジ=P.";
    $now_page=$next_page-1;
    print "<font color="#0000ff"><b>";
    print "$now_page";
    print "</b></font>";
    print "</td><td>";
    print " 最終ペ-ジ=P.";
    print "<font color="#ff0000"><b>";
    print "$total_page";
    print "</b></font>";
print "</td>";


        print "</FONT></TD>";


        print "</FORM>n";


print "</td><td>";
print "<FORM ACTION="imgboard.cgi" METHOD="POST"><TD>";
print "<INPUT TYPE="HIDDEN" NAME="bbsaction" VALUE="page_change">";
print "<SELECT NAME="page">";


# ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
# $kurikaeshiの初期値は「$total_page+1」
# $bangouの初期値は「1」
        my $kurikaeshi = $total_page+1;
        my $bangou = 1;
# 条件部分で「$kurikaeshi」を「1」減らす
        while ( $kurikaeshi = $kurikaeshi - 1 ) {
        if ( $bangou == $now_page ) {
        print "<OPTION VALUE="$bangou" SELECTED>P. $bangou</OPTION>n";
        $bangou = $bangou + 1;        # 「$bangou」を「1」増やす
        } else {
        print "<OPTION VALUE="$bangou">P. $bangou</OPTION>n";
        $bangou = $bangou + 1;        # 「$bangou」を「1」増やす
        }
        }
# ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■


print "</SELECT>";
print "</td><td>";
print "<INPUT TYPE="SUBMIT" VALUE=" 移 動 " />";
print "</TD></FORM>";

print "</TR></TABLE>";
print "<P ALIGN=right><font size="-1">各ペ-ジ・親発言($disp_message)件/全($total_page)ペ-ジ/親発言+コメント($max_message)件を超えると古い記事から削除されます</font>";


    }else{


        print "<TD bgcolor="#808080">これより先のペ-ジはありません </TD>";


print "<td>";
    print " このペ-ジ=P.";
    $now_page=$next_page-1;
    print "<font color="#0000ff"><b>";
    print "$now_page";
    print "</b></font>";
    print "</td><td>";
    print " 最終ペ-ジ=P.";
    print "<font color="#ff0000"><b>";
    print "$total_page";
    print "</b></font>";
print "</td>";


print "</td><td>";
print "<FORM ACTION="imgboard.cgi" METHOD="POST"><TD>";
print "<INPUT TYPE="HIDDEN" NAME="bbsaction" VALUE="page_change">";
print "<SELECT NAME="page">";


# ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■
# $kurikaeshiの初期値は「$total_page+1」
# $bangouの初期値は「1」
        my $kurikaeshi = $total_page+1;
        my $bangou = 1;
# 条件部分で「$kurikaeshi」を「1」減らす
        while ( $kurikaeshi = $kurikaeshi - 1 ) {
        if ( $bangou == $now_page ) {
        print "<OPTION VALUE="$bangou" SELECTED>P. $bangou</OPTION>n";
        $bangou = $bangou + 1;        # 「$bangou」を「1」増やす
        } else {
        print "<OPTION VALUE="$bangou">P. $bangou</OPTION>n";
        $bangou = $bangou + 1;        # 「$bangou」を「1」増やす
        }
        }
# ■■■■■■■■■■■■■■■■■■■■■■■■■■■■■■


print "</SELECT>";
print "</td><td>";
print "<INPUT TYPE="SUBMIT" VALUE=" 移 動 " />";
print "</TD></FORM>";


print "</TR></TABLE>";
print "<P ALIGN=right><font size="-1">各ペ-ジ・親発言($disp_message)件/全($total_page)ペ-ジ/親発言+コメント($max_message)件を超えると古い記事から削除されます</font>";


    }


        print "</TR></TABLE>";
}

   



 以上で完成です。これで、任意のページにジャンプ出来る様になると思います。うまく行くといいですね。!




| カテゴリー:パソコン | 00:00:00 | comments (0) | trackback (1) |




  Hatena::Bookmark  
 del.icio.us
twitter経由でコメント




コメント

コメントする

 (管理者の「チェック後・反映」の時が有ります)
 (なお投稿頂きましたコメントは著作権・著作隣接権・著作人格権・等を放棄(不行使)して頂きます)








トラックバックURL

 (管理者の「チェック後・反映」の時が有ります)
 (なお投稿頂きましたトラックバックは著作権・著作隣接権・著作人格権・等を放棄(不行使)して頂きます)

 ( 1クリックで全選択されます ▼ )

 ( トラックバックURLは変化します。最新の物をご利用下さい。 )

トラックバック

iswebの広告がバグっている

昨日あたりからかこちらが設置しているWEBSITEのパーツが表示されなくなっていた。ふと気づいたらiswebの上側の広告がpanasonicの広告になっていた。検索などで調べてみるとこの自動挿入...

| Taka Blog | 2009-06-05 01:39 PM |

最新の記事 / このページの一番上へ /   

<相鉄5000系さよなら乗車会ご当選通知書
1月の樽見鉄道(2009年)>


[読み易く] [標準]
文字[大] [標準]


follow me on twitter
@streetcar
Follow me !

@portram
こちらはBot(無人投稿)アカウントです

プロフィール

カテゴリー

アーカイブ


カウントダウン

リンク


スクリプト



新着記事


アクセスランキング


検索



コメント


トラックバック

144

シンジケート

この日記のはてなブックマーク数 del.icio.us - Everybody's bookmarks
track feed
Locations of visitors to this page

Amazon 広告


Google 広告


ValueCommerce広告

spacer.gifspacer.gifspacer.gifspacer.gifspacer.gif
ベストリザーブ

LinkShare広告

 iTunes Music Store(Japan)spacer.gif iTunes Store(Japan)spacer.gifANAの旅行サイト ANA SKY WEB TOURspacer.gif











▼ テスト

テスト


アクセス解析&SEM/SEO講座&ブログ for オンラインショップ開業