にあさんが提供しているうぇぶ会議室システムの拡張機能です。
うぇぶ会議室を設置しているサーバーの容量(file数)が多くなり過ぎて
記事を他のサーバーに移していませんか?
本スクリプトはその様な場合に移動した記事へのリンクを移動先のサーバーのアドレスへ変換する物です。
Name | Purpose | Link | Comments |
---|---|---|---|
movedmsg.pl | Script本体 移動した記事のURIを変換する |
アーカイブファイルに含まれています | このモジュールはうぇぶ会議室のスクリプトと同じディレクトリに入れておく |
site.pl | うぇぶ会議室の設定file | うぇぶ会議室に含まれています | |
forum.pl | うぇぶ会議室のSubroutine郡 |
[site.pl] [forum.pl] [movedmsg.pl]
movedmsg.plをrequire する。
require "movedmsg.pl";
package forum;
&Movedmsg'FilterOutputをcallする。
forum.pl中のline_out_convert
subroutine
に追加する。
sub line_out_convert {
local(*_) = @_;
&Movedmsg'FilterOutput(*_);
s/\r\n?/\n/g;
s/\n/\r\n/g;
}
Variable Name | Explanation |
---|---|
$Movedmsg'article_expr |
記事file名のmatch式
|
$Movedmsg'mirror_site |
移動先addressの共通path
以降に出てくる定義を簡略化するために使用
|
@Movedmsg'moved_info |
記事の移動情報を定義する配列。 会議室名、移動先のパス(記事が置かれているディレクトリまで指定)、移動した記事番号の範囲を "="で連結して、
"会議室名=移動先のpath=記事番号の範囲", と列挙する。 同じ会議室名の定義は複数出現してもよい。(移動記事の番号が不連続な場合等)
記事番号範囲はハイフン("-")で 必ず "小さい番号-大きい番号"の順で記述する。
と記述すると、testの会議室の記事 1から100までが$Movedmsg'mirror_site/test/で指定されるaddressに 変換される。 |