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);
}
[download]

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)], @_);
}
[download]

My Signature:
s,,QSBTBOOB,s,y,B-Y,A-Z,d&&print