Beefy Boxes and Bandwidth Generously Provided by pair Networks
Your skill will accomplish
what the force of many cannot
 
PerlMonks  

kprasanna_79's scratchpad

by kprasanna_79 (Hermit)
on Jan 20, 2005 at 08:17 UTC ( #423617=scratchpad: print w/ replies, xml ) Need Help??

its in a.pm sub db_connect { my ($eh) = @_; my $mode = _mode(); my $ca = ["dbi:Oracle:irsdb$mode",$ENV{HTTP_IRIPROJECT},$ENV{H +TTP_IRIPROJECT} . length($ENV{HTTP_IRIPROJ ECT})]; return new app::DB($ca,$eh); }
This connects well....where as the below code throughs timeout error
sub db_connect { my $self = shift; my $proj = $self->tag('sys_projectname'); my $database = 'irsdb'; if ($self->tag('sys_insiterootdir') =~ /insite/) { $database = 'instedb' } $database .= substr($self->tag('sys_runmode'),0,1); return new app::DB (["dbi:Oracle:$database", $proj, $proj . le +ngth($proj)], @_); }
My Signature:
s,,QSBTBOOB,s,y,B-Y,A-Z,d&&print
Log In?
Username:
Password:

What's my password?
Create A New User
Chatterbox?
and the web crawler heard nothing...

How do I use this? | Other CB clients
Other Users?
Others wandering the Monastery: (13)
As of 2014-10-31 18:01 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    For retirement, I am banking on:










    Results (222 votes), past polls