Hi Monks!
I am trying to work with this code that uses CGI::Application and I am having an issue where in the "cgiapp_init" I need to connect to two different databases, it works on the first one but if I try to pass the dbh value for the second it doesn't work, maybe I am passing it wrong, if someone has any idea it would be great:
...
sub cgiapp_init {
my $self = shift;
my $db = 'myServer';
my $user = 'user';
my $pass = 'pass';
my $sql_dbh = DBI->connect( "DBI:ODBC:$db", $user, $pass )
|| print "Connect fail: $!";
my $as400_db = 'AS400';
my $as400_user = 'user;
my $as400_pass = 'pass';
my $as400_driver = DBI->connect( "DBI:ODBC:$as400_db", $as400_use
+r, $as400_pass )
|| print "Connect fail: $!";
$self->param('mydbh' => $mssql_dbh, 'mydbh400' => $as400_driver )
+;
}
...
sub one {
my $self = shift;
# Get database connection
my $dbh = $self->param('mydbh');
...
}
sub two {
my $self = shift;
# Get database connection
my $dbh = $self->param('mydbh400');
...
}
...
Thanks for the Help!
-
Are you posting in the right place? Check out Where do I post X? to know for sure.
-
Posts may use any of the Perl Monks Approved HTML tags. Currently these include the following:
<code> <a> <b> <big>
<blockquote> <br /> <dd>
<dl> <dt> <em> <font>
<h1> <h2> <h3> <h4>
<h5> <h6> <hr /> <i>
<li> <nbsp> <ol> <p>
<small> <strike> <strong>
<sub> <sup> <table>
<td> <th> <tr> <tt>
<u> <ul>
-
Snippets of code should be wrapped in
<code> tags not
<pre> tags. In fact, <pre>
tags should generally be avoided. If they must
be used, extreme care should be
taken to ensure that their contents do not
have long lines (<70 chars), in order to prevent
horizontal scrolling (and possible janitor
intervention).
-
Want more info? How to link
or How to display code and escape characters
are good places to start.
|