Changeset 1380 for branches/mt4.11/lib/MT/Core.pm

Timestamp:

02/20/08 20:46:49 (22 months ago)

Author:

bchoate

Message:

Added 'PerformanceLoggingPath' setting to allow configuration of path for performance logs. BugId:68319

Files:

• branches/mt4.11/lib/MT/Core.pm (modified) (2 diffs)

branches/mt4.11/lib/MT/Core.pm

@@ -499 +499 @@
             'PerformanceLogging' => { default => 0 },
             'PerformanceLoggingThreshold' => { default => 0.1 },
+            'PerformanceLoggingPath' => { handler => \&PerformanceLoggingPath },
             'ProcessMemoryCommand' => { handler => \&ProcessMemoryCommand },
         },
@@ -797 +798 @@
     require MT::WeblogPublisher;
     return MT::WeblogPublisher->core_archive_types;
+}
+
+sub PerformanceLoggingPath {
+    my $cfg = shift;
+    $cfg->set_internal( 'PerformanceLoggingPath', @_ ) if @_;
+    my $path = $cfg->get_internal('PerformanceLoggingPath');
+    unless (defined $path) {
+        require File::Spec;
+        $path = File::Spec->catdir( MT->instance->static_file_path,
+            'support', 'logs');
+        $cfg->set_internal('PerformanceLoggingPath', $path);
+    }
+    return $path;
 }