#! /usr/local/bin/perl # ↑この上のPerlのパスを書き換えるのはお約束ですね #========================================================================================== # # マルチボード掲示板システム 『MultiBBS』ver 1.3 : メッセージ削除スクリプト # # Copyright Shinobu Suzuki 1998. All rights reserved. #----------------------------------------------------------------------------------------- # HomePage : http://www.aikis.or.jp/~s-suzuki/cgilabo/ # E-mail : s-suzuki@aikis.or.jp # Version : 1.32 # Update : 1999/02/27 #----------------------------------------------------------------------------------------- # ■MultiBBSシステムの指定されたボードのメッセージを削除します # ■入力されたパスワードをもとにモードの判定をします # ■管理者やボード主催者はすべてのメッセージを削除できます # ■ユーザーは自分の設定したパスワードに合致するメッセージだけを削除できます # ■簡単なドメイン別のアクセス制限(プロキシ制限等)ができます # **** # ■このスクリプトは config.cgi を参照しています # ■このファイルを設置しなければ、MultiBBSのメニューには表示されません #========================================================================================== # 初期設定 #----------------------------------------------------------------------------------------- # CERN HTTPDなどのサーバーの場合で、ファイル関係のエラーが # 出る場合、設置するディレクトリのフルパスを指定してみて下 # さい。なお、最後は / で終わること。 # 例) $path = "/home/users/s-suzuki/public_html/bbs/"; #---------------------------------------------------------- $path = ""; #---------------------------------------------------------- # 共通設定ファイルの指定 #---------------------------------------------------------- require "$path"."config.cgi"; #---------------------------------------------------------- # 外部からの(イタズラ)書き込みを禁止する場合、以下に、ス # クリプトのURLを記入する。(サーバーやブラウザによっては # うまくいかないこともあります) # 例:$script_url = 'http://www.aikis.or.jp/~s-suzuki/multibbs/remove.cgi'; #---------------------------------------------------------- $script_url = ''; #---------------------------------------------------------- # 書き込みの後のリロードに失敗する場合(File Not Foundので # る場合)、CGIスクリプトを設置するディレクトリ名をURLで指 # 定すると成功する場合があるそうです。 # ※この機能については未確認です # ※biglobeでは成功するそうです # ※v1.24より記述方法を変更しています # ※最後は / で終わること。 # 例:$rerload_url = 'http://www.aikis.or.jp/~s-suzuki/multibbs/'; #---------------------------------------------------------- $reload_url = ''; #===================================================================== # これより、処理の開始 #===================================================================== $| = 1; # ファイルバッファリングをしない &form; # フォーム入力された値の分解 &read_master_key; # 管理用マスターキー読み込み &read_domainlist; # 制限するドメインリストの読み込み &init; # 各種データ変数の初期化 &read_cfg; # ボード定義ファイルの読み込み #---------------------------------------------------------- # スクリプトの動作を決定($FORM{'task'}で判定) #---------------------------------------------------------- if ( $FORM{'task'} eq 'list' ) { # 編集データのリスト表示 &removelist; } elsif ( $FORM{'task'} eq 'remove') { # 編集画面 &remove_data; } else { &main; exit; } #===================================================================== # 処理はここまで(以下は、サブルーチン) #===================================================================== #---------------------------------------------------------------------- # 通常の画面表示ルーチン #---------------------------------------------------------------------- #----------------------------------------------------------------- # メイン画面 #----------------------------------------------------------------- sub main { if ($maintenance ne 0 ) { &error("ただ今、メンテナンス中です。"); } &html_header("MultiBBS:メッセージの削除"); print "