I'm using the examples in the O' Reilly Perl DBI book when use the
cipher statement
I get missing new errors, I also had to add 'use' statements ( not
mentioned in the examples )
[vince@desk perl]$ sudo dbiproxy --config proxy.cfg --debug --logfile /
dev/tty
[sudo] password for vince:
Error while processing config file proxy.cfg: Can't locate auto/Crypt/
IDEA/new.al in @INC (@INC contains: /usr/local/lib64/perl5/site_perl/
5.10.0/x86_64-linux-thread-multi /usr/local/lib/perl5/site_perl/
5.10.0 /usr/lib64/perl5/vendor_perl/5.10.0/x86_64-linux-thread-multi /
usr/lib/perl5/vendor_perl/5.10.0 /usr/lib/perl5/vendor_perl /usr/lib64/
perl5/5.10.0/x86_64-linux-thread-multi /usr/lib/perl5/5.10.0 /usr/lib/
perl5/site_perl .) at proxy.cfg line 6
at /usr/lib/perl5/vendor_perl/5.10.0/Net/Daemon.pm line 188. at /usr/
lib/perl5/vendor_perl/5.10.0/Net/Daemon/Log.pm line 136.
[vince@desk perl]$
here is my config file
[vince@desk perl]$ cat proxy.cfg
#use DBD::Proxy;
use Thread;
use Crypt::IDEA;
{
facility => 'daemon',
pidfile => '/var/dbiproxy/dbiproxy.pid',
user => 'vince',
group => 'vince',
localport => '3333',
mode => 'fork',
# access control
clients => [
# accept local lan ( 192.168.1.* )
{
mask => '^192\.168\.1\.\d+$',
accept => 1
},
# accept off site machines but with a cypher
{
mask => '^192\.168\.2\.\d+$',
accept => 1,
cipher => Crypt::IDEA->new( 'be39893df23f98a2' )
},
# Deny everything else
{
mask => '.*',
accept => 0
}
]
}
[vince@desk perl]$
Apparently no one uses this since all the examples I found were
exactly the same
as the one in the book, and none mentioned the 'use' statements I
needed.
