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 )

[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]$

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]$

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.



Reply via email to