[Rt-commit] r12778 - rt/branches/3.8-TESTING/lib

[sunnavy at bestpractical.com]

Author: sunnavy
Date: Mon Jun  2 03:03:31 2008
New Revision: 12778

Modified:
   rt/branches/3.8-TESTING/lib/RT.pm.in

Log:
fix relative LogDir and GnuPG homedir

Modified: rt/branches/3.8-TESTING/lib/RT.pm.in
==============================================================================
--- rt/branches/3.8-TESTING/lib/RT.pm.in	(original)
+++ rt/branches/3.8-TESTING/lib/RT.pm.in	Mon Jun  2 03:03:31 2008
@@ -152,6 +152,17 @@
     # If the user does that, do what they mean.
     $RT::WebPath = '' if ($RT::WebPath eq '/');
 
+    # fix relative LogDir and GnuPG homedir
+    unless ( File::Spec->file_name_is_absolute( $Config->Get('LogDir') ) ) {
+        $Config->Set( LogDir =>
+              File::Spec->catfile( $BasePath, $Config->Get('LogDir') ) );
+    }
+
+    my $gpg = $Config->Get('GnuPGOptions');
+    unless ( File::Spec->file_name_is_absolute( $gpg->{homedir} ) ) {
+        $gpg->{homedir} = File::Spec->catfile( $BasePath, $gpg->{homedir} );
+    }
+
     RT::I18N->Init;
 }