I'm not much of a perl coder be gentle.
when I try the examples in the O'Reilly book and as shown on
http://docstore.mik.ua/orelly/linux/dbi/ch08_02.htm
I eventually got it to work by inserting some 'use' statements
( see my config file below )
But when I try the cipher i get the following error messages:
**************
[vi...@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.
[vi...@desk perl]$
********
if I comment out the cipher statement below it works????
Yes I have IDEA installed.
Here is my config file
[vi...@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
}
]
}
[vi...@desk perl]$
--
The Tree of Learning bears the noblest fruit, but noble fruit tastes bad.
