※ コメントは、適当なニュースグループか、乾燥板かメールで。(2007年4月07日)
このページで解説してる改造やスクリプトは、自由に使っていただいてかまいま せんし、自由に改変していただいてかまいません。その際、特に私に断わる必要 はありません。でも、ナイスな改良を思いついたら、教えてくれるとうれしいか も。
という方針ですが、Windowsの場合はexe版の方がずっ と簡単です。が、他のOS使ってるとか、プログラム改造したいとかなら、そっち じゃ無理です。こっちを見てください。
perlがなければ、perlをインストールしてください。WindowsだとActivePerlが 使えます。方法は例えば、「ActivePerlのインストール方 法 - Windows で perl を使おう！」とか。Cygwin環境やMingw環境のperlで も大丈夫なはず。parでexe化したい人はActivePerlの方がよいかも。
Windows以外なら、大抵は入ってるんじゃないかな? 入ってなかったら何か探し てインストールしてください。
cpanを使って、NNML::Serverをインストールしてください。質問には、好みで答 えればよし。ActivePerl ＋CPANによるモジュールインストール方法は、まあ探せば何かあります。それ以外のperlで のcpanの使い方も、まあ、探せばあ るはず。
どこに何がインストールされたのかは、インストール画面の最後のあたりで分か ります。後で必要になるのでチェックしといてください。まあ、忘れてても大体 の見当はつきますが。ActivePerlの場合、perlをインストールしたディレクトリ をc:\perlとすると、c:\perl\site\lib\NNMLあたりの下に*.pmが入って、 c:\perl\binあたりにnnmirror.batが入ってるはず。ドキュメントは、 c:\perl\html\site\lib\NNMLとかc:\perl\html\binとか。普通のperlだとhtmlま では作ってくれないかも。perldoc使えってか?
「ActivePerlならcpanじゃなくてPPMでどうだ?」って意見もあるかもしれません が、PPMだと附属のnnmirrorをインストールしてくれないっぽいので、cpanの方 がよさげ。
つぎに、ニュースの記事を収める場所(base)を用意します。NNMLのインストール 時にbaseの設定をデフォルトのままにした人は、homeの下にMailというディレク トリ(フォルダ)を作ってください。ただし、ActivePerlの場合は、homeという概 念がないので、次の項を参考にして作ってください。baseの設定をいじった人は、 それに合わせて作ってください。(exe版では~/newsにしている。)
つぎに上で作ったbaseのディレクトリの下に「active」という名前の空のファイ ルを作ってください。Windowsの場合は、例えば、「右クリック→新規作成→テ キスト ドキュメント」でファイルを作って、名前を変更するとか。
ちなみに、baseのデフォルト値が「~/Mail」になってるのは、NNMLの作成動機と からんですようです。
exe版と同じ、nnml+0.03をダウンロードして、適 当なディレクトリに展開するだけです。複数の人が使うコンピュータだったり、 公開サーバや相互配送を考えていたりするのなら、セキュリティ的に安全な場所 に置いてください。(nntpサーバ用のパスワードを生書きしたりするから。)
exeファイルは、使わないなら消してよいです。でかいし。parで作ったexeファ イルは、perlインタプリタを内蔵してるので非常に大きいんだわ。
exe版の設定の 項目で、hoge.batをhoge.plに、hoge.exeをperl hoge.plに読み換えればOK。 USERとHOMEが既に設定されてるような環境なら、該当する行を削ってよし。(っ てゆうか、start_server.pl使わずに直接server.pl使ってもいいし。)
ActivePerlの場合、未実装の関数(getpwnamとgetpwuid)が引っかかるので、NNML のConfig.pmに手を入れる必要があります。
まず、c:\perl\html\site\lib\NNMLみたいなところにConfig.pmというファイル があることを確認してください。実際にいじる前にコピーを作っておくこと。バッ クアップ用です。つぎに、Config.pmを書き込み可能にしてください。Windowsだ とConfig.pmのプロパティ開いて読み取り専用のチェックボックスを外し、セキュ リティ・タブでEveryoneにフルコントロールを許可するとか、そんな感じ。
つぎに、Config.pmを編集します。これはテキストファイルなので、適当なテキ ストエディタ(メモ帳とか)で開いてください。80行目あたりに「sub home」で始 まる関数定義があって、その中に「my $home = (getpwnam($user))[7];」という 行があるんで、これを「my $home = $ENV{'HOME'} || $ENV{'LOGDIR'} || (getpwuid($user))[7];」に書きかえます。
これで、関数homeの定義は、
sub home {
my $self = shift;
return $self->{_home} if exists $self->{_home};
my $user = $ENV{'USER'} || $ENV{'LOGNAME'} || getpwuid($<);
my $home = (getpwnam($user))[7];
$self->{_home} = $home;
}
から、
sub home {
my $self = shift;
return $self->{_home} if exists $self->{_home};
my $user = $ENV{'USER'} || $ENV{'LOGNAME'} || getpwuid($<);
my $home = $ENV{'HOME'} || $ENV{'LOGDIR'} || (getpwuid($user))[7];
$self->{_home} = $home;
}
になります。
これで、保存して、エディタを終了すれば、ここでの作業は取り敢えず終わりで す。
NNMLは、Path:ヘッダをいじってくれないので、自分のサイトをPath:に加えたけ れば、Connection.pmに手を入れる必要があります。必須ではないですが、普通 のサーバとの連携を考えるとやっといた方がよいでしょう。
Config.pmと同じディレクトリにある、Connection.pmを編集します。エディタで開 くまでの要領は、Config.pmのときと同じ。
577行目あたりの「sub NNML::Server::unspool」で始まる関数定義の中身をいじ ります。588行目あたりから、
while (defined ($ent = <$sf>)) {
chomp($ent);
next unless $ent;
my($ctl, $art) = split /\n/, $ent, 2;
my ($msgid, $extra_group, $create) = split /\t/, $ctl;
なんて部分があるんですが、この直後に「 $art = add_path($art);」とい
う行を加えて、
while (defined ($ent = <$sf>)) {
chomp($ent);
next unless $ent;
my($ctl, $art) = split /\n/, $ent, 2;
my ($msgid, $extra_group, $create) = split /\t/, $ctl;
$art = add_path($art);
とします。つぎに、609行目あたりの「sub inject_article {」という行の前に、
sub add_path {
my $art = shift;
my ($head, $body) = split /^$/m, $art, 2;
my @header = split /\n/, $head;
for (0 .. $#header) {
if ($header[$_] =~ /^Path:\s/) {
$header[$_] =~ s/^Path:\s+(\S)/Path: $Config->{pathhost}!$1/
if $header[$_] !~ /$Config->{pathhost}!/;
last;
}
}
return join("\n", @header) . "\n" . $body;
}
という関数定義を加えます。
どうも、認証関係でバグがあるみたいなので、また、Connection.pmをハックし ます。
528行目あたりに「sub accept_article」で始まる関数定義があるんですが、そ の中の(539行目あたり)、
my $create = NNML::Auth::perm($self,'create');
という行を、
my $create = NNML::Auth::perm($self,'create') ? 1 : 0;
とします。
あとは、保存してエディタを終わるだけ。ファイルのパーミッションは、元に戻 しといた方がいいかも。
parを使ってexe版で作る都合上、nnmirrorをパッケージ化してます。perl版では 不要なんですが、exe版とソースが別になるのもあれなんで。NNmirror.pmという 名前で置いてますので、どこをどういじったかは、自分で確かめてください。
perlスクリプトをexeファイルにする方法はいくつかあるんですが、ここではpar を使います。exeファイルが不要な方は、この項は要りません。
parのインストールは適当に探せば何かあると思います。この辺のページだと最 新版のActivePerlじゃ駄目なようなことを書いてるけど、5.8.8.816ではちゃん と動いてます。以前に入れようとしたときは、cygwinやmingwのperlじゃ駄目で、 ActivePerlでppm使って入れたら大丈夫だったような記憶がある。
server.plとnn_users.plをexe化するには、それぞれ、pps.batとppu.batを実行 してください。何やってるかは、中見れば分かるはず。「-M attributes.pm」は、 threads使ったから必要になったのかな?
以降は、exe版の該当する項目で、hoge.batを hoge.plに、hoge.exeをperl hoge.plに読み換えればOK。
おわり