rt/lib/RT/Handle.pm

   1 #$Header: /home/cvs/cvsroot/freeside/rt/lib/RT/Handle.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $
   2
   3 =head1 NAME
   4
   5   RT::Handle - RT's database handle
   6
   7 =head1 SYNOPSIS
   8
   9   use RT::Handle;
  10
  11 =head1 DESCRIPTION
  12
  13 =begin testing
  14
  15 ok(require RT::Handle);
  16
  17 =end testing
  18
  19 =head1 METHODS
  20
  21 =cut
  22
  23 package RT::Handle;
  24
  25 eval "use DBIx::SearchBuilder::Handle::$RT::DatabaseType;
  26
  27 \@ISA= qw(DBIx::SearchBuilder::Handle::$RT::DatabaseType);";
  28
  29 #TODO check for errors here.
  30
  31 =head2 Connect
  32
  33 Takes nothing. Calls SUPER::Connect with the needed args
  34
  35 =cut
  36
  37 sub Connect {
  38 my $self=shift;
  39
  40 # Unless the database port is a positive integer, we really don't want to pass it.
  41 $RT::DatabasePort = undef unless (defined $RT::DatabasePort && $RT::DatabasePort =~ /^(\d+)$/);
  42
  43 $self->SUPER::Connect(Host => $RT::DatabaseHost,
  44                          Database => $RT::DatabaseName,
  45                          User => $RT::DatabaseUser,
  46                          Password => $RT::DatabasePassword,
  47                          Port => $RT::DatabasePort,
  48                          Driver => $RT::DatabaseType,
  49                          RequireSSL => $RT::DatabaseRequireSSL,
  50                         );
  51
  52 }
  53 1;