I'm currently using Perl 5.6.0 on a Sun with DBD::Oracle using the
following:

sub DBConnect                                                                      
{                                                                                  
        my ($o_dbh);                                                               
        my ($dsn);                                                                 
                                                                                   
        $ENV{'ORACLE_HOME'} = $defs::DB{Home};                                     
                                                                                   
        $o_dbh = 
                DBI->connect("DBI:Oracle:host=$defs::DB{host};sid=$defs::DB{sid}",
                $defs::DB{userid}, $defs::DB{passwd},
                { RaiseError => 1,
                AutoCommit => 1,
                LongTruncOk =>1,
                LongReadLen => 65536,
                PrintError => 0 });
        &Error(DBI->errstr) if (! $o_dbh);
        return ($o_dbh);
}

Can someone assist me with translating this to DBD:Proxy?  I see how to
condense the first argument from the perldoc information, but the
anonymous hash with things like RaiseError, AutoCommit, etc. are stumping
me.  How do I pass those along when using DBD:Proxy?

My goal is to be able to use my Perl application on a host that doesn't
have an Oracle client available (NetBSD in particular), but Mac OS X would
be nice too.

--Chuck

Reply via email to