Changeset 1511

Show
Ignore:
Timestamp:
03/11/08 19:14:31 (2 years ago)
Author:
bchoate
Message:

Added request time report when DebugMode is enabled. Requires Time::HiRes.

Files:
1 modified

Legend:

Unmodified
Added
Removed

  • branches/release-31/lib/MT/App.pm

    r1479 r1511  
    673673    return if $app->{init_request}; 
    674674 
     675    if ($MT::DebugMode) { 
     676        require Time::HiRes; 
     677        $app->{start_request_time} = Time::HiRes::time(); 
     678    } 
     679 
    675680    if ($app->{request_read_config}) { 
    676681        $app->init_config(\%param) or return; 
    … …  
    22582263                        } 
    22592264                    } 
     2265                    $trace = "<li>" . sprintf("Request completed in %.3f seconds.", Time::HiRes::time() - $app->{start_request_time}) . "</li>\n" . $trace; 
    22602266                    if ($trace ne '') { 
    22612267                        $trace = '<ul>' . $trace . '</ul>'; 
    … …  
    23352341    $app->user( undef ); 
    23362342    delete $app->{$_} 
    2337         for qw( cookies perms session trace response_content _blog ); 
     2343        for qw( cookies perms session trace response_content _blog 
     2344            WeblogPublisher ); 
    23382345 
    23392346    my $driver = $MT::Object::DRIVER;