Fix bug 84216: add option to Mac build scripts to pull by date (options pull_by_date). r=peterv,sr=scc

build/mac/build_scripts/Moz/BuildCore.pm

@@ -331,9 +331,9 @@ sub CheckoutModules($)
 #//--------------------------------------------------------------------------------------------------
 #// Checkout
 #//--------------------------------------------------------------------------------------------------
-sub Checkout($)
+sub Checkout($$)
 {
-    my($checkout_list) = @_;
+    my($checkout_list, $pull_date) = @_;
     
     unless ( $main::build{pull} ) { return; }
 
@@ -385,7 +385,9 @@ sub Checkout($)
         
         # strip surrounding space from date
         @cvs_co[$date] =~ s/^\s*|\s*$//g;
-        
+        if (@cvs_co[$date] eq "") {
+            @cvs_co[$date] = $pull_date;
+        }
         # print "Going to check out '@cvs_co[$module]', '@cvs_co[$revision]', '@cvs_co[$date]'\n";
         push(@cvs_co_list, \@cvs_co);
     }
@@ -444,8 +446,19 @@ sub RunBuild($$$$)
     {
         my($hours) = 8;     # update files checked in during last 8 hours
         FastUpdate($hours);
-    } else {
-        Checkout($input_files->{"checkoutdata"});
+    } else
+    {
+        my($pull_date) = "";
+        if ($main::options{pull_by_date})
+        {
+            # acceptable CVS date formats are (in local time):
+            # ISO8601 (e.g. "1972-09-24 20:05") and Internet (e.g. "24 Sep 1972 20:05").
+            # Perl's localtime() string format also seems to work.
+            $pull_date = localtime().""; # force string interp.
+            print "Pulling by date $pull_date\n";
+            
+        }
+        Checkout($input_files->{"checkoutdata"}, $pull_date);
     }
     
     unless ($do_build) { return; }

build/mac/build_scripts/MozillaBuildFlags.txt

@@ -35,6 +35,7 @@ apprunner       0
 resources       0
 
 options_flags
+pull_by_date    0
 chrome_jars     1
 chrome_files    0
 use_jars        1