config/aboutime.pl

   1
   2 use strict;
   3 use Getopt::Std;
   4 require mozBDate;
   5 require "Moz/Milestone.pm";
   6
   7 my $mfile;
   8 getopts('m:');
   9 if (defined($::opt_m)) {
  10     $mfile = $::opt_m;
  11 }
  12
  13 my $outfile = $ARGV[0];
  14 my $build_num_file = $ARGV[1];
  15 my $infile = "";
  16
  17 $infile = $ARGV[2] if ("$ARGV[2]" ne "");
  18
  19 if (defined($mfile)) {
  20     my $milestone = &Moz::Milestone::getOfficialMilestone($mfile);
  21     &mozBDate::SetMilestone($milestone);
  22 }
  23 &mozBDate::SubstituteBuildNumber($outfile, $build_num_file, $infile);
  24