mirror of
https://github.com/mozilla/gecko-dev.git
synced 2024-10-09 11:25:00 +00:00
Evil temporary workaround fix for pull problem. Keep this file in sync with config/mozBDate.pm
This commit is contained in:
parent
de4337e464
commit
9c9793ac9d
131
build/mac/mozBDate.pm
Executable file
131
build/mac/mozBDate.pm
Executable file
@ -0,0 +1,131 @@
|
||||
#
|
||||
# The contents of this file are subject to the Netscape Public
|
||||
# License Version 1.1 (the "License"); you may not use this file
|
||||
# except in compliance with the License. You may obtain a copy of
|
||||
# the License at http://www.mozilla.org/NPL/
|
||||
#
|
||||
# Software distributed under the License is distributed on an "AS
|
||||
# IS" basis, WITHOUT WARRANTY OF ANY KIND, either express or
|
||||
# implied. See the License for the specific language governing
|
||||
# rights and limitations under the License.
|
||||
#
|
||||
# The Original Code is mozilla.org code.
|
||||
#
|
||||
# The Initial Developer of the Original Code is Netscape
|
||||
# Communications Corporation. Portions created by Netscape are
|
||||
# Copyright (C) 1998-2000 Netscape Communications Corporation. All
|
||||
# Rights Reserved.
|
||||
#
|
||||
# Contributor(s):
|
||||
#
|
||||
|
||||
package mozBDate;
|
||||
|
||||
use strict;
|
||||
use IO::File;
|
||||
|
||||
BEGIN {
|
||||
use Exporter ();
|
||||
use vars qw ($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
|
||||
|
||||
$VERSION = 1.00;
|
||||
@ISA = qw(Exporter);
|
||||
@EXPORT = qw(&UpdateBuildNumber &SubstituteBuildNumber);
|
||||
%EXPORT_TAGS = ( );
|
||||
@EXPORT_OK = qw();
|
||||
}
|
||||
|
||||
sub write_number($) {
|
||||
my ($file, $num) = @_;
|
||||
unlink($file);
|
||||
open(OUT, ">$file") || die "$file: $!\n";
|
||||
print OUT "$num\n";
|
||||
close(OUT);
|
||||
}
|
||||
|
||||
sub UpdateBuildNumber($$) {
|
||||
|
||||
my ($outfile, $official) = @_;
|
||||
|
||||
# XP way of doing the build date.
|
||||
# 1998091509 = 1998, September, 15th, 9am local time zone
|
||||
my ($sec,$min,$hour,$mday,$mon,$year,$wday,$yday,$isdst) = localtime;
|
||||
|
||||
# localtime returns year minus 1900
|
||||
$year = $year + 1900;
|
||||
my $build_number = sprintf("%04d%02d%02d%02d", $year, 1+$mon, $mday, $hour);
|
||||
|
||||
if ("$outfile" eq "") {
|
||||
print "$build_number\n";
|
||||
return;
|
||||
}
|
||||
|
||||
if ($official) {
|
||||
&write_number($outfile, $build_number);
|
||||
} else {
|
||||
|
||||
my $old_num = -1;
|
||||
|
||||
# Only overwrite file if contents are not already set to 0
|
||||
if ( -e $outfile ) {
|
||||
open(OLD, "<$outfile") || die "$outfile: $!\n";
|
||||
$old_num = <OLD>;
|
||||
chomp($old_num);
|
||||
close(OLD);
|
||||
}
|
||||
|
||||
if ($old_num != 0) {
|
||||
&write_number($outfile, "0000000000");
|
||||
}
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
sub SubstituteBuildNumber($$$) {
|
||||
|
||||
my ($outfile, $build_num, $infile) = @_;
|
||||
my $INFILE = new IO::File;
|
||||
my $OUTFILE = new IO::File;
|
||||
|
||||
open $INFILE, "<$build_num";
|
||||
my $build = <$INFILE>;
|
||||
close $INFILE;
|
||||
chomp $build;
|
||||
|
||||
if ("$infile" ne "") {
|
||||
open $INFILE, "<$infile" || die;
|
||||
} else {
|
||||
open $INFILE, "<$outfile" || die;
|
||||
}
|
||||
open $OUTFILE, ">${outfile}.old" || die;
|
||||
|
||||
while (<$INFILE>) {
|
||||
|
||||
my $id = $_;
|
||||
my $temp;
|
||||
if ($id =~ "Build ID:") {
|
||||
$temp = "Build ID: " . $build;
|
||||
$id =~ s/Build ID:\s\d+/$temp/;
|
||||
print $OUTFILE $id;
|
||||
}
|
||||
elsif ($id =~ "NS_BUILD_ID") {
|
||||
$temp = "NS_BUILD_ID " . $build;
|
||||
$id =~ s/NS_BUILD_ID\s\d+/$temp/;
|
||||
print $OUTFILE $id;
|
||||
}
|
||||
else {
|
||||
print $OUTFILE $_;
|
||||
}
|
||||
}
|
||||
|
||||
close $INFILE;
|
||||
close $OUTFILE;
|
||||
|
||||
unlink $outfile;
|
||||
rename "${outfile}.old", "$outfile";
|
||||
}
|
||||
|
||||
END {};
|
||||
|
||||
1;
|
||||
|
Loading…
Reference in New Issue
Block a user