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 # Unless the database port is a positive integer, we really don't want to pass it.
65 $self->SUPER::Connect(
66 User => $RT::DatabaseUser,
67 Password => $RT::DatabasePassword,
74 Build the DSN for the RT database. doesn't take any parameters, draws all that
82 $RT::DatabasePort = undef unless (defined $RT::DatabasePort && $RT::DatabasePort =~ /^(\d+)$/);
83 $RT::DatabaseHost = undef unless (defined $RT::DatabaseHost && $RT::DatabaseHost ne '');
85 $self->SUPER::BuildDSN(Host => $RT::DatabaseHost,
86 Database => $RT::DatabaseName,
87 Port => $RT::DatabasePort,
88 Driver => $RT::DatabaseType,
89 RequireSSL => $RT::DatabaseRequireSSL,
90 DisconnectHandleOnDestroy => 1
96 eval "require RT::Handle_Vendor";
97 die $@ if ($@ && $@ !~ qr{^Can't locate RT/Handle_Vendor.pm});
98 eval "require RT::Handle_Local";
99 die $@ if ($@ && $@ !~ qr{^Can't locate RT/Handle_Local.pm});