-my %backends = (
- mysql => 'Apache::Session::MySQL',
- Pg => 'Apache::Session::Postgres',
-
- # Oracle => 'Apache::Session::Oracle',
-);
-
-my $session_class = $RT::WebSessionClass
- || $backends{$RT::DatabaseType}
- || 'Apache::Session::File';
-my $pm = "$session_class.pm";
-$pm =~ s|::|/|g;
-require $pm;
-
-# morning bug avoidance attempt -- pdh 20030815
-unless ( $RT::Handle->dbh && $RT::Handle->dbh->ping ) {
- $RT::Handle->Connect();
-}
-
-my $session_properties;
-if ( $session_class eq 'Apache::Session::File' ) {
- $session_properties = {
- Directory => $RT::MasonSessionDir,
- LockDirectory => $RT::MasonSessionDir,
- };
-} else {
- $session_properties = {
- Handle => $RT::Handle->dbh,
- LockHandle => $RT::Handle->dbh,
- };
-}
-
-eval {
- tie %session, $session_class, $SessionCookie, $session_properties
-};
-if ($@) {
-
- # If the session is invalid, create a new session.
+ # morning bug avoidance attempt -- pdh 20030815
+ unless ($RT::Handle->dbh && $RT::Handle->dbh->ping) {
+ $RT::Handle->Connect();
+ }