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