Changeset 1779 for branches/release-33/lib/MT/WeblogPublisher.pm

Timestamp:

04/05/08 02:21:23 (20 months ago)

Author:

bchoate

Message:

Avoid rebuilding files within the same build operation (particularly helps for date-based archive rebuilds). BugId:69032

Files:

• branches/release-33/lib/MT/WeblogPublisher.pm (modified) (5 diffs)

branches/release-33/lib/MT/WeblogPublisher.pm

@@ -29 +29 @@
     my $this  = {@_};
     my $cfg   = MT->config;
+    if ( !exists $this->{start_time} ) {
+        $this->{start_time} = time;
+    }
     if ( !exists $this->{NoTempFiles} ) {
         $this->{NoTempFiles} = $cfg->NoTempFiles;
@@ -109 +112 @@
     };
 
+}
+
+sub start_time {
+    my $pub = shift;
+    $pub->{start_time} = shift if @_;
+    return $pub->{start_time};
 }
 
@@ -809 +818 @@
     }
 
+    # Calculate file path and URL for the new entry.
+    my $file = File::Spec->catfile( $root_path, $map->{__saved_output_file} );
+
+    ## Untaint. We have to assume that we can trust the user's setting of
+    ## the archive_path, and nothing else is based on user input.
+    ($file) = $file =~ /(.+)/s;
+
+    # compare file modification time to start of build process. if it
+    # is greater than the start_time, then we shouldn't need to build this
+    # file again
+    my $fmgr = $blog->file_mgr;
+    if (my $mod_time = $fmgr->file_mod_time($file)) {
+        return 1 if $mod_time >= $mt->start_time;
+    }
+
     if ( $archiver->category_based ) {
         $category = $specifier{Category};
@@ -850 +874 @@
     local $ctx->{current_timestamp_end} = $end   if $end;
 
-    my $fmgr = $blog->file_mgr;
     $ctx->{__stash}{blog} = $blog;
 
-    # Calculate file path and URL for the new entry.
-    my $file = File::Spec->catfile( $root_path, $map->{__saved_output_file} );
     require MT::FileInfo;
 
@@ -907 +928 @@
     my ($rel_url) = ( $url =~ m|^(?:[^:]*\:\/\/)?[^/]*(.*)| );
     $rel_url =~ s|//+|/|g;
-
-    ## Untaint. We have to assume that we can trust the user's setting of
-    ## the archive_path, and nothing else is based on user input.
-    ($file) = $file =~ /(.+)/s;
 
     # Clear out all the FileInfo records that might point at the page