The Tor Browser / file comparison
comparison: config/milestone.pl
config/milestone.pl
- changeset 0
- 6474c204b198
equal
deleted
inserted
replaced
| -1:000000000000 | 0:c71d2de1f7e8 |
|---|---|
| 1 #!/usr/bin/perl -w | |
| 2 # This Source Code Form is subject to the terms of the Mozilla Public | |
| 3 # License, v. 2.0. If a copy of the MPL was not distributed with this | |
| 4 # file, You can obtain one at http://mozilla.org/MPL/2.0/. | |
| 5 | |
| 6 use Getopt::Long; | |
| 7 | |
| 8 use strict; | |
| 9 use vars qw( | |
| 10 $OBJDIR | |
| 11 $SRCDIR | |
| 12 $TOPSRCDIR | |
| 13 $SCRIPTDIR | |
| 14 @TEMPLATE_FILE | |
| 15 $MILESTONE_FILE | |
| 16 $MILESTONE | |
| 17 $MILESTONE_NUM | |
| 18 @MILESTONE_PARTS | |
| 19 $MINI_VERSION | |
| 20 $MICRO_VERSION | |
| 21 $opt_debug | |
| 22 $opt_template | |
| 23 $opt_uaversion | |
| 24 $opt_symbolversion | |
| 25 $opt_help | |
| 26 ); | |
| 27 | |
| 28 $SCRIPTDIR = $0; | |
| 29 $SCRIPTDIR =~ s/[^\/]*$//; | |
| 30 push(@INC,$SCRIPTDIR); | |
| 31 | |
| 32 require "Moz/Milestone.pm"; | |
| 33 | |
| 34 &GetOptions('topsrcdir=s' => \$TOPSRCDIR, 'srcdir=s' => \$SRCDIR, 'objdir=s' => \$OBJDIR, 'debug', 'help', 'template', 'uaversion', 'symbolversion'); | |
| 35 | |
| 36 if (defined($opt_help)) { | |
| 37 &usage(); | |
| 38 exit; | |
| 39 } | |
| 40 | |
| 41 if (defined($opt_template)) { | |
| 42 @TEMPLATE_FILE = @ARGV; | |
| 43 if ($opt_debug) { | |
| 44 print("TEMPLATE_FILE = --@TEMPLATE_FILE--\n"); | |
| 45 } | |
| 46 } | |
| 47 | |
| 48 if (!defined($SRCDIR)) { $SRCDIR = '.'; } | |
| 49 if (!defined($OBJDIR)) { $OBJDIR = '.'; } | |
| 50 | |
| 51 $MILESTONE_FILE = "$TOPSRCDIR/config/milestone.txt"; | |
| 52 @MILESTONE_PARTS = (0, 0, 0, 0); | |
| 53 | |
| 54 # | |
| 55 # Grab milestone (top line of $MILESTONE_FILE that starts with a digit) | |
| 56 # | |
| 57 my $milestone = Moz::Milestone::getOfficialMilestone($MILESTONE_FILE); | |
| 58 | |
| 59 if (@TEMPLATE_FILE) { | |
| 60 my $TFILE; | |
| 61 | |
| 62 foreach $TFILE (@TEMPLATE_FILE) { | |
| 63 my $BUILT_FILE = "$OBJDIR/$TFILE"; | |
| 64 $TFILE = "$SRCDIR/$TFILE.tmpl"; | |
| 65 | |
| 66 if (-e $TFILE) { | |
| 67 | |
| 68 Moz::Milestone::build_file($TFILE,$BUILT_FILE); | |
| 69 | |
| 70 } else { | |
| 71 warn("$0: No such file $TFILE!\n"); | |
| 72 } | |
| 73 } | |
| 74 } elsif(defined($opt_uaversion)) { | |
| 75 # Only expose the major milestone in the UA string, hide the patch level | |
| 76 # (bugs 572659 and 870868). | |
| 77 my $uaversion = Moz::Milestone::getMilestoneMajor($milestone) . ".0"; | |
| 78 print "$uaversion\n"; | |
| 79 } elsif(defined($opt_symbolversion)) { | |
| 80 # Only expose major milestone and alpha version. Used for symbol versioning | |
| 81 # on Linux. | |
| 82 my $symbolversion = Moz::Milestone::getMilestoneMajor($milestone) . | |
| 83 Moz::Milestone::getMilestoneABWithNum($milestone); | |
| 84 print "$symbolversion\n"; | |
| 85 } else { | |
| 86 print "$milestone\n"; | |
| 87 } | |
| 88 | |
| 89 sub usage() { | |
| 90 print <<END | |
| 91 `milestone.pl [--topsrcdir TOPSRCDIR] [--objdir OBJDIR] [--srcdir SRCDIR] --template [file list] --uaversion --symbolversion` # will build file list from .tmpl files | |
| 92 END | |
| 93 ; | |
| 94 } |
