酒日記

Solaris8 再インストール。2時間じゃ終わらない(^^; 今回は奢って、 / に 7G (Companion CD もインストール時に突っ込んだら / に 3.8G が最低必要、て言われたもんで)、swap に 512M、残りを /export/home にしてみた。

ま、それはそれとして、この日記、最近は覚え書きしか書いてない気がする。日々の感動(なんだそれ)とか、思うところとかがないから、こうなるのかしらん。

写真も撮ってないし、暗室にも入ってないし、ストレス発散といえば酒飲むか買い物するかだし。 精神的に不健康。肉体的にも不健康。

DBI::ProxyServer 覚え書き。

サーバ側。DBI::ProxyServer モジュールは入っているとして、
＃ バイナリパッケージ(RPM、Win の ActivePerl の PPM) で入れたりすると Net::Daemon や PlRPC が入ってなくて動かない、という問題があるかも。
プロクシ起動スクリプト (proxy.pl) を作る。

#!/usr/bin/perl
use DBI::ProxyServer;
DBI::ProxyServer::main(@ARGV);

これだけ。コンフィグファイル (proxy.conf) も作る。

{
  'pidfile' => '/tmp/dbiproxy.pid',
  'user' => 'nobody',
  'group' => 'nobody',
  'localport' => '3333',
  'logfile' => undef,
  'clients' => [
		# Accept
                { 'mask' => '^192\.168\.0\.\d+$',
                  'accept' => 1,
                },
		# Deny
                { 
                  'mask' => '.*',
                  'accept' => 0
                }
  ]
}

起動は perl proxy.pl --configfile=proxy.conf & として、 指定した port (この場合 3333) を Listen してるかどうか netstat -a で確認。

クライアントの設定は、今までの connect メソッドの第一引数を dsn の値として設定するだけ。

$dbh = DBI->connect("dbi:Proxy:hostname=$host;port=$port;dsn=$db",
                     $user, $passwd);

簡単。