Beefy Boxes and Bandwidth Generously Provided by pair Networks
Perl-Sensitive Sunglasses
 
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 studying the Monastery: (7)
As of 2014-10-02 04:23 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?

    What is your favourite meta-syntactic variable name?














    Results (48 votes), past polls