3 # Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com>
5 # (Except where explictly superceded by other copyright notices)
7 # This work is made available to you under the terms of Version 2 of
8 # the GNU General Public License. A copy of that license should have
9 # been provided with this software, but in any event can be snarfed
12 # This work is distributed in the hope that it will be useful, but
13 # WITHOUT ANY WARRANTY; without even the implied warranty of
14 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
15 # General Public License for more details.
17 # Unless otherwise specified, all modifications, corrections or
18 # extensions to this work which alter its source code become the
19 # property of Best Practical Solutions, LLC when submitted for
20 # inclusion in the work.
26 RT::Handle - RT's database handle
36 ok(require RT::Handle);
49 eval "use DBIx::SearchBuilder::Handle::$RT::DatabaseType;
50 \@ISA= qw(DBIx::SearchBuilder::Handle::$RT::DatabaseType);";
51 #TODO check for errors here.
55 Connects to RT's database handle.
56 Takes nothing. Calls SUPER::Connect with the needed args
63 if ( $RT::DatabaseType eq 'Oracle' ) {
64 $ENV{'NLS_LANG'} = ".UTF8";
67 $self->SUPER::Connect( User => $RT::DatabaseUser,
68 Password => $RT::DatabasePassword, );
70 $self->dbh->{LongReadLen} = $RT::MaxAttachmentSize;
76 Build the DSN for the RT database. doesn't take any parameters, draws all that
84 # Unless the database port is a positive integer, we really don't want to pass it.
85 $RT::DatabasePort = undef unless (defined $RT::DatabasePort && $RT::DatabasePort =~ /^(\d+)$/);
86 $RT::DatabaseHost = undef unless (defined $RT::DatabaseHost && $RT::DatabaseHost ne '');
89 $self->SUPER::BuildDSN(Host => $RT::DatabaseHost,
90 Database => $RT::DatabaseName,
91 Port => $RT::DatabasePort,
92 Driver => $RT::DatabaseType,
93 RequireSSL => $RT::DatabaseRequireSSL,
94 DisconnectHandleOnDestroy => 1
100 eval "require RT::Handle_Vendor";
101 die $@ if ($@ && $@ !~ qr{^Can't locate RT/Handle_Vendor.pm});
102 eval "require RT::Handle_Local";
103 die $@ if ($@ && $@ !~ qr{^Can't locate RT/Handle_Local.pm});