a03f105604
Bug #195840 r=dougt git-svn-id: svn://10.0.0.236/trunk@139237 18797224-902f-48f8-a5cc-f745e15eee43
25 lines
474 B
Perl
Executable File
25 lines
474 B
Perl
Executable File
|
|
use strict;
|
|
use Getopt::Std;
|
|
require mozBDate;
|
|
require "Moz/Milestone.pm";
|
|
|
|
my $mfile;
|
|
getopts('m:');
|
|
if (defined($::opt_m)) {
|
|
$mfile = $::opt_m;
|
|
}
|
|
|
|
my $outfile = $ARGV[0];
|
|
my $build_num_file = $ARGV[1];
|
|
my $infile = "";
|
|
|
|
$infile = $ARGV[2] if ("$ARGV[2]" ne "");
|
|
|
|
if (defined($mfile)) {
|
|
my $milestone = &Moz::Milestone::getOfficialMilestone($mfile);
|
|
&mozBDate::SetMilestone($milestone);
|
|
}
|
|
&mozBDate::SubstituteBuildNumber($outfile, $build_num_file, $infile);
|
|
|