[Rt-commit] r6983 - rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/lib/RT

[ruz at bestpractical.com]

Author: ruz
Date: Tue Feb 13 08:41:21 2007
New Revision: 6983

Modified:
   rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/lib/RT/Shredder.pm

Log:
* use config module in shredder

Modified: rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/lib/RT/Shredder.pm
==============================================================================
--- rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/lib/RT/Shredder.pm	(original)
+++ rt/branches/3.7-EXPERIMENTAL-RTIR-2.2/lib/RT/Shredder.pm	Tue Feb 13 08:41:21 2007
@@ -77,7 +77,7 @@
 1) Locate the appropriate shredder SQL dump file.  In the WebUI, when
    you use shredder, the path to the dump file is displayed.  It also
    gives the option to download the dump file after each wipeout.  Or
-   it can be found in your C<$RT::ShredderStoragePath>.
+   it can be found in your C<$ShredderStoragePath>.
 
 2) Load the shredder SQL dump into your RT database.  The details will
    be different for each database and RT configuration, consult your
@@ -104,7 +104,7 @@
 $DependenciesLimit, new_limit );>
 
 
-=head2 $RT::ShredderStoragePath
+=head2 $ShredderStoragePath
 
 Directory containing Shredder backup dumps.
 
@@ -667,7 +667,7 @@
 =head4 StoragePath
 
 Returns an absolute path to the storage dir.  See
-L<CONFIGURATION/$RT::ShredderStoragePath>.
+L<CONFIGURATION/$ShredderStoragePath>.
 
 See also description of the L</GetFileName> method.
 
@@ -675,8 +675,8 @@
 
 sub StoragePath
 {
-    return $RT::ShredderStoragePath ||
-        File::Spec->catdir( $RT::VarPath, qw(data RT-Shredder) );
+    return scalar( RT->Config->Get('ShredderStoragePath') )
+        || File::Spec->catdir( $RT::VarPath, qw(data RT-Shredder) );
 }
 
 my %active_dump_state = ();