diff options
Diffstat (limited to 'rt/lib/RT/Handle.pm')
-rw-r--r-- | rt/lib/RT/Handle.pm | 101 |
1 files changed, 0 insertions, 101 deletions
diff --git a/rt/lib/RT/Handle.pm b/rt/lib/RT/Handle.pm deleted file mode 100644 index 5cdb65e5b..000000000 --- a/rt/lib/RT/Handle.pm +++ /dev/null @@ -1,101 +0,0 @@ -# BEGIN LICENSE BLOCK -# -# Copyright (c) 1996-2003 Jesse Vincent <jesse@bestpractical.com> -# -# (Except where explictly superceded by other copyright notices) -# -# This work is made available to you under the terms of Version 2 of -# the GNU General Public License. A copy of that license should have -# been provided with this software, but in any event can be snarfed -# from www.gnu.org. -# -# This work is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# Unless otherwise specified, all modifications, corrections or -# extensions to this work which alter its source code become the -# property of Best Practical Solutions, LLC when submitted for -# inclusion in the work. -# -# -# END LICENSE BLOCK -=head1 NAME - - RT::Handle - RT's database handle - -=head1 SYNOPSIS - - use RT::Handle; - -=head1 DESCRIPTION - -=begin testing - -ok(require RT::Handle); - -=end testing - -=head1 METHODS - -=cut - -package RT::Handle; - -use strict; -use vars qw/@ISA/; - -eval "use DBIx::SearchBuilder::Handle::$RT::DatabaseType; -\@ISA= qw(DBIx::SearchBuilder::Handle::$RT::DatabaseType);"; -#TODO check for errors here. - -=head2 Connect - -Connects to RT's database handle. -Takes nothing. Calls SUPER::Connect with the needed args - -=cut - -sub Connect { -my $self=shift; - -# Unless the database port is a positive integer, we really don't want to pass it. - -$self->SUPER::Connect( - User => $RT::DatabaseUser, - Password => $RT::DatabasePassword, - ); - -} - -=item BuildDSN - -Build the DSN for the RT database. doesn't take any parameters, draws all that -from the config file. - -=cut - - -sub BuildDSN { - my $self = shift; -$RT::DatabasePort = undef unless (defined $RT::DatabasePort && $RT::DatabasePort =~ /^(\d+)$/); -$RT::DatabaseHost = undef unless (defined $RT::DatabaseHost && $RT::DatabaseHost ne ''); - - $self->SUPER::BuildDSN(Host => $RT::DatabaseHost, - Database => $RT::DatabaseName, - Port => $RT::DatabasePort, - Driver => $RT::DatabaseType, - RequireSSL => $RT::DatabaseRequireSSL, - DisconnectHandleOnDestroy => 1 - ); - - -} - -eval "require RT::Handle_Vendor"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Handle_Vendor.pm}); -eval "require RT::Handle_Local"; -die $@ if ($@ && $@ !~ qr{^Can't locate RT/Handle_Local.pm}); - -1; |