名前¶

RPC::PlServer - PlRPCサーバーを書くためのPerl拡張

概要¶

  # RPC::PlServerのサブクラスを作成します
  use RPC::PlServer;

  package MyServer;
  $MyServer::VERSION = '0.01';
  @MyServer::ISA = qw(RPC::PlServer);

  # Run()メソッドを１つの接続を扱うようにオーバーライト
  sub Run {
      my $self = shift;
      my $socket = $self->{'socket'};
  }

  # MyServerクラスのインスタンスの作成
  package main;
  my $server = MyServer->new({'localport' => '1234'}, \@ARGV);

  # 実際に実行させるポートにサーバーをバインドします
  $server->Bind();

説明¶

PlRPC (Perl RPC) は完全にPerlによってかかれたサーバーとクライントを 実装するためのパッケージです。この名前はSunのRPC(Remote Procedure Call)から 借りてきましたが、JavaのRMI("Remote Method Interface")と同じぐらいよいもの かもしれません。というのもPlRPCは非常に簡単なやり方でPerlのOOフレームワークの 完全なパワーを与えるからです。

RPC::PlServerはサーバー側で使われるパッケージです。そうなればRPC::PlClientが 何のためのものかはお分かりでしょう。両方のパッケージはRPC::PlServer::Commを 通信のために共有しています。これらの部分についてはPlRPC::Client(3)と RPC::PlServer::Commをご覧ください。

PlRPCはクライアントによって実行されるであろうメソッドのセットを定義することに より動きます。例えばサーバーはメソッド "multiply" をクライアントに提供すると します。そうすると関数の呼出しはクライアントでは以下のようになります

    @result = $client->multiply($a, $b);

これはサーバーでは以下のような対応する呼出しに対応づけられます

    @result = $server->multiply($a, $b);

引数と結果はサーバーへ、あるいはサーバーから自動的に魔法で転送されます。 （この魔法はPerlでの名前を持っています：Storableモジュールです。 この素晴らしいパッケージについてRaphael Manfrediに感謝します）。 簡単でしょ？ :-)

RPC::PlServer と RPC::PlClient は抽象的なサーバーとクライアントです： 独自のクラスを派生させる必要があります。

追加のオプション¶

RPC::PlServerはNet::Daemonのオプションと属性をすべて継承しており、さらに 以下のものを追加します:

cipher

この属性値はCrypt::DES、Crypt::IDEAあるいはブロック暗号化のための同じAPIを 持っているその他のクラスのインスタンスです。もしそのような属性を設定すると、 クライアントとサーバーの間の転送は、このオプションを使って暗号化されます。

maxmessage (--maxmessage=size)

サービス不能攻撃をさけるため、クライアントとサーバーの間で交換される メッセージの大きさは制限されます。デフォルトではその制限は65536バイト です。

users

これはクライアント・オブジェクトの属性は構成設定ファイルでの許可／拒否 (Permit/Deny)ルールのために使われます。その値は、与えられたクライアント から接続を許された、ユーザー名の配列へのリファレンスです。 構成設定ファイルの例は下記の構成設定ファイルをご覧ください。

エラーの取扱い¶

完全にPerlの例外をベースとしているので、RPCパッケージでのエラーの 取扱いはとても簡単です。そのため典型的なコードは以下のようになります:

  eval {
      # ここで何かをします。エラーについて何も面倒みません
      ...
  };
  if ($@) {
      # エラー発生
      ...
  }

サーバのコンストラクタ¶

  my $server = RPC::PlServer(\%options, \@args);

(クラス・メソッド) このコンストラクタはNet::Daemonパッケージから、 そのまま継承されています。詳しくはNet::Daemon(3)をご覧ください。

アクセス制御¶

  $ok = $self->AcceptApplication($app);
  $ok = $self->AcceptVersion($version);
  $ok = $self->AcceptUser($user, $password);

RPC::PlServerパッケージは、とても細かなアクセス制御スキームを 持っています：まず最初にNet::Daemonのホストをベースとした アクセス制御を継承しています。それはバージョンによる制御とユーザー認証も 加えています。これを実現するために、Net::DaemonからのメソッドAcceptは 3つのメソッドに分割されています。AcceptApplication、AcceptVersion そしてAcceptUserのそれぞれはTRUEまたはFALSEを返します。クライアントは、 その引数をapplication, version, userそしてpasswordとして 受け取ります。クライアントは上記のメソッドの全てがTRUEを返すときだけ 受け付けられます。

デフォルトの実装では以下のようになります: $selfが$appのサブクラス であれば、AcceptApplicationはTRUEを返します。AcceptVersionは要求された バージョンが${$class}::VERSION以下であればTRUEを返します。ユーザーが 接続を許されるかどうかはクライアント構成設定によります。 例は構成設定ファイルをご覧ください。

メソッドを基にしたアクセス制御¶

クライアントに任意のメソッドを呼び出す能力を与えることは、恐ろしい セキュリティホールになりかねません。そのためサーバーはmethods属性を 持っています。これはクラス名をキーに、値はメソッド名をキーとした ハッシュのリファレンスとするハッシュのリファレンスです。 つまり以下のようなハッシュだったとします：

    $self->{'methods'} = {
        'CalcServer' => {
            'NewHandle' => 1,
            'CallMethod' => 1 },
        'Calculator' => {
            'new' => 1,
            'multiply' => 1,
            'add' => 1,
            'divide' => 1,
            'subtract' => 1 }
        };

そして、クライアントはオブジェクトを作るためにCalcServerのNewHandle メソッドを使うことができますが、許可されたコンストラクタ Calculator->newを 通した場合だけです。一度、Calculatorが作成されると、サーバーはメソッド multiply、add、divide、subtractを呼び出すことができます。

構成設定ファイル¶

サーバーの構成設定ファイルはNet::Daemonから継承されています。 usersとcipher属性をクライアント・リストに追加しています。 このため典型的な構成設定ファイルは以下のようになります：

    # 外部モジュールのロード:　これはchroot()オプションを
    # 使わなければ必要ありません
    #require DBD::mysql;
    #require DBD::CSV;

    # 鍵の作成
    my $myhost_key = Crypt::IDEA->new('83fbd23390ade239');
    my $bob_key    = Crypt::IDEA->new('be39893df23f98a2');

    {
        # 'chroot' => '/var/dbiproxy',
        'facility' => 'daemon',
        'pidfile' => '/var/dbiproxy/dbiproxy.pid',
        'user' => 'nobody',
        'group' => 'nobody',
        'localport' => '1003',
        'mode' => 'fork',

        # アクセス制御
        'clients' => [
            # ローカルなLAN(192.168.1.*)は受け付けます
            {
                'mask' => '^192\.168\.1\.\d+$',
                'accept' => 1,
                'users' => [ 'bob', 'jim' ],
                'cipher' => $myhost_key
            },
            # myhost.company.comは受け付けます
            {
                'mask' => '^myhost\.company\.com$',
                'accept' => 1,
                'users' => [ {
                    'name' => 'bob',
                    'cipher' => $bob_key
                    } ]
            },
            # その他は全て拒絶します
            {
                'mask' => '.*',
                'accept' => 0
            }
        ]
    }

気をつけなければならないこと: 192.168.1*のユーザーリストにはスカラー値が 入っていますが、myhost.company.comのユーザリストにはハッシュへの リファレンスが入っています；これはユーザーの構成設定はユーザー・ベースの 暗号化になっているので、これが必要です。

使用例¶

十分に時間を使いましたから、言葉ではなく例をお見せしましょう :-) MD5ダイジェストのためのサーバーという簡単なサーバーを書きましょう。 このサーバーは外部パッケージ MD5を使いますが、クライアントには、この パッケージMD5(3)をインストールする必要はありません。ここではサーバーの ソースを示します。クライアントの部分はRPC::PlClient manページに あります。 RPC::PlClient(3)をご覧ください。

    #!/usr/bin/perl -wT
    #  -T スィッチに注意してください！ これはPerlサーバーには常にお勧めします。

    use strict;               # 常によい選択です

    require RPC::PlServer;
    require MD5;


    package MD5_Server;  # クライアントはアプリケーション "MD5_Server"を
                         # 要求する必要があります

    $MD5_Server::VERSION = '1.0'; # もしバージョン 1.1を要求するのであれば、
                                  # クライアントは拒絶されます
    @MD5_Server::ISA = qw(RPC::PlServer);

    eval {
        # 以下のサーバーオプションは構成設定フィルまたはコマンドラインで
        # 上書きすることができます。
        my $server = MD5_Server->new({
        'pidfile'    => '/var/run/md5serv.pid',
        'configfile' => '/etc/md5serv.conf',
        'facility'   => 'daemon', # デフォルト
        'user'       => 'nobody',
        'group'      => 'nobody',
        'localport'  => 2000,
        'logfile'    => 0,        # syslogを使用
            'mode'       => 'fork',   # Unixには推奨
            'methods'    => {
            'MD5_Server' => {
            'ClientObject' => 1,
            'CallMethod' => 1,
            'NewHandle' => 1
            },
            'MD5' => {
            'new' => 1,
            'add' => 1,
            'hexdigest' => 1
            },
            }
        });
        $server->Bind();
    };

セキュリティ¶

言わなければならないことがあります:PlRPCをベースとしたサーバーには潜在的に セキュリティ上の問題があります！私はセキュリティ問題を避けるために全力を 尽くしてきましたが、何かを落としているかもしれません。セキュリティは設計の 結果ですが、設計の結果だけではありません。（よく知られている問題ですが...）

以下の設計原則を強くお勧めします：

"信用されている"ユーザーに対する保護¶

perlsec

perlのセキュリティに関するFAQ(perldoc perlsec)を読み、-Tスィッチを使ってください。

汚染モードperl

-Tスィッチを使いなさい。 私は本気です！

データの検証

検証しないで文字列を汚染モードからはずさないでください。2回検証すると さらによいでしょう。例えばCallMethodは、それにメソッドを強制する前に、 まずオブジェクト・ハンドルが適切かどうかをチェックします

制約的であれ

メソッドへのアクセスをクライアントに与える前に2回考えましょう。

perlsec

そして私が忘れている場合には： perlsec man ページを読みましょう。 :-)

信用されていないユーザに対する保護¶

ホスト・ベースの認証

PlRPC は組込みのホスト・ベースの認証スキームを持っています； それを使ってください！ 構成設定ファイルをご覧ください。

ユーザー・ベースの認証

PlRPC は組込みのユーザー・ベースの認証スキームを持っています； それを使ってください！ 構成設定ファイルをご覧ください。

暗号化

PlRPCで暗号化を使うことはとても簡単です。クライアントと暗号化なしで 通信するのには何ら絶対的な理由はありません。さらに：私は2つのフェーズの 暗号化を推奨します。最初のフェーズはログイン・フェーズで、ここでは ホストをベースとしたキーを使います。ユーザーが認証されたら、ユーザを ベースとするキーに切り替えます。例としてDBI::ProxyServerをご覧ください。

作者と著作権(AUTHOR AND COPYRIGHT)¶

The PlRPC-modules are

  Copyright (C) 1998, Jochen Wiedmann
                      Am Eisteich 9
                      72555 Metzingen
                      Germany

                      Phone: +49 7123 14887
                      Email: [email protected]

  All rights reserved.

You may distribute this package under the terms of either the GNU General Public License or the Artistic License, as specified in the Perl README file.

参考資料¶

RPC::PlClient(3), RPC::PlServer::Comm(3), Net::Daemon(3), Net::Daemon::Log(3), Storable(3), Sys::Syslog(3), Win32::EventLog(3)

例のアプリケーションについてはDBI::ProxyServer(3)をご覧ください。