#
# 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;