Changeset 1372 for branches/release-30/lib/MT/Core.pm

Timestamp:

02/14/08 22:31:01 (22 months ago)

Author:

bchoate

Message:

Initial work for performance logging.

Files:

• branches/release-30/lib/MT/Core.pm (modified) (2 diffs)

branches/release-30/lib/MT/Core.pm

@@ -499 +499 @@
             # Basename settings
             'AuthorBansenameLimit' => { default => 30 },
+            'PerformanceLogging' => { default => 0 },
+            'PerformanceLoggingThreshold' => { default => 0.1 },
+            'ProcessMemoryCommand' => { handler => \&ProcessMemoryCommand },
         },
         upgrade_functions => \&load_upgrade_fns,
@@ -801 +804 @@
 }
 
+sub ProcessMemoryCommand {
+    my $cfg = shift;
+    $cfg->set_internal( 'ProcessMemoryCommand', @_ ) if @_;
+    my $cmd = $cfg->get_internal('ProcessMemoryCommand');
+    unless ($cmd) {
+        my $os = $^O;
+        if ($os eq 'darwin') {
+            $cmd = 'ps $$ -o rss=';
+        }
+        elsif ($os eq 'linux') {
+            $cmd = 'ps -p $$ -o rss=';
+        }
+        elsif ($os eq 'MSWin32') {
+            $cmd = { command => q{tasklist /FI "PID eq $$" /FO TABLE /NH},
+                regex => qr/([\d,]+) K/ };
+        }
+    }
+    return $cmd;
+}
+
 sub SecretToken {
     my $cfg = shift;