http://www.perlmonks.org?node_id=423617

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