Changeset 1369 for branches/release-30/lib/MT/App.pm

Timestamp:

02/14/08 21:09:26 (22 months ago)

Author:

bchoate

Message:

Broke CMS into smaller parts to reduce memory footprint and group code into logical parts. BugId:58666

Files:

• branches/release-30/lib/MT/App.pm (modified) (5 diffs)

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

@@ -532 +532 @@
     if ($ENV{MOD_PERL}) {
         if ($app->{response_message}) {
-            $app->{apache}->status_line(($app->response_code || 200) . " " 
-                                        . $app->{response_message});
+            $app->{apache}->status_line(($app->response_code || 200)
+                                        . ($app->{response_message} ? ' ' . $app->{response_message} : '');
         } else {
             $app->{apache}->status($app->response_code || 200);
@@ -613 +613 @@
     if ($MT::DebugMode & 128) {
         MT->add_callback('pre_run', 1, $app, sub { $app->pre_run_debug });
-        MT->add_callback('post_run', 1, $app, sub { $app->post_run_debug });
+        MT->add_callback('takedown', 1, $app, sub { $app->post_run_debug });
     }
     $app->{vtbl} = $app->registry("methods");
@@ -2072 +2072 @@
         }
 
+        my $mode = $app->mode || 'default';
+
         REQUEST:
         {
             my $requires_login = $app->{requires_login};
-
-            my $mode = $app->mode || 'default';
 
             my $code = $app->handlers_for_mode($mode);
@@ -2161 +2161 @@
                     my @forward_params = @{ $app->{forward_params} }
                         if $app->{forward_params};
+                    $app->{forward_params} = undef;
                     my $content = $code->($app, @forward_params);
                     $app->response_content($content)
@@ -2170 +2171 @@
 
             if (my $new_mode = $app->{forward}) {
-                $app->mode($new_mode, @{ $app->{forward_params} || [] });
+                $mode = $new_mode;
                 goto REQUEST;
             }