1 #$Header: /home/cvs/cvsroot/freeside/rt/lib/RT/Handle.pm,v 1.1 2002-08-12 06:17:07 ivan Exp $
5 RT::Handle - RT's database handle
15 ok(require RT::Handle);
25 eval "use DBIx::SearchBuilder::Handle::$RT::DatabaseType;
27 \@ISA= qw(DBIx::SearchBuilder::Handle::$RT::DatabaseType);";
29 #TODO check for errors here.
33 Takes nothing. Calls SUPER::Connect with the needed args
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+)$/);
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,