diff options
Diffstat (limited to 'rt/lib/RT/Handle.pm')
-rw-r--r-- | rt/lib/RT/Handle.pm | 53 |
1 files changed, 53 insertions, 0 deletions
diff --git a/rt/lib/RT/Handle.pm b/rt/lib/RT/Handle.pm new file mode 100644 index 000000000..6b74f361b --- /dev/null +++ b/rt/lib/RT/Handle.pm @@ -0,0 +1,53 @@ +#$Header: /home/cvs/cvsroot/freeside/rt/lib/RT/Handle.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $ + +=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; + +eval "use DBIx::SearchBuilder::Handle::$RT::DatabaseType; + +\@ISA= qw(DBIx::SearchBuilder::Handle::$RT::DatabaseType);"; + +#TODO check for errors here. + +=head2 Connect + +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. +$RT::DatabasePort = undef unless (defined $RT::DatabasePort && $RT::DatabasePort =~ /^(\d+)$/); + +$self->SUPER::Connect(Host => $RT::DatabaseHost, + Database => $RT::DatabaseName, + User => $RT::DatabaseUser, + Password => $RT::DatabasePassword, + Port => $RT::DatabasePort, + Driver => $RT::DatabaseType, + RequireSSL => $RT::DatabaseRequireSSL, + ); + +} +1; |