サルではできない、自宅で手軽に、なんちゃってニュースサーバ(perl版)

※ コメントは、適当なニュースグループか、乾燥板かメールで。(2007年4月07日)

このページで解説してる改造やスクリプトは、自由に使っていただいてかまいませんし、自由に改変していただいてかまいません。その際、特に私に断わる必要はありません。でも、ナイスな改良を思いついたら、教えてくれるとうれしいかも。

更新履歴

2007年4月08日: perl版に特化したページを公開。

基本方針

NNTPサーバには、perlモジュールのNNMLを使う。
配送には、NNML附属のnnmirrorを使う。
非固定IPでドメイン名が必要なら、ダイナミックDNSを使う。

という方針ですが、Windowsの場合はexe版の方がずっと簡単です。が、他のOS使ってるとか、プログラム改造したいとかなら、そっちじゃ無理です。こっちを見てください。

インストール

perlのインストール

perlがなければ、perlをインストールしてください。WindowsだとActivePerlが使えます。方法は例えば、「ActivePerlのインストール方法 - Windows で perl を使おう！」とか。Cygwin環境やMingw環境のperlでも大丈夫なはず。parでexe化したい人はActivePerlの方がよいかも。

Windows以外なら、大抵は入ってるんじゃないかな? 入ってなかったら何か探してインストールしてください。

NNMLのインストール

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.02をダウンロードして、適当なディレクトリに展開するだけです。複数の人が使うコンピュータだったり、公開サーバや相互配送を考えていたりするのなら、セキュリティ的に安全な場所に置いてください。(nntpサーバ用のパスワードを生書きしたりするから。)

exeファイルは、使わないなら消してよいです。でかいし。parで作ったexeファイルは、perlインタプリタを内蔵してるので非常に大きいんだわ。

スクリプトの設定

exe版の設定の項目で、hoge.batをhoge.plに、hoge.exeをperl hoge.plに読み換えればOK。 USERとHOMEが既に設定されてるような環境なら、該当する行を削ってよし。(ってゆうか、start_server.pl使わずに直接server.pl使ってもいいし。)

ActivePerlのためのハック

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;
}

になります。

これで、保存して、エディタを終了すれば、ここでの作業は取り敢えず終わりです。

Pathを付加するためのハック

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;

とします。

あとは、保存してエディタを終わるだけ。ファイルのパーミッションは、元に戻しといた方がいいかも。

nnmirrorのパッケージ化

parを使ってexe版で作る都合上、nnmirrorをパッケージ化してます。perl版では不要なんですが、exe版とソースが別になるのもあれなんで。NNmirror.pmという名前で置いてますので、どこをどういじったかは、自分で確かめてください。

parによるexe化

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。

おわり