#! /usr/local/bin/perl

#

# This Source Code Form is subject to the terms of the Mozilla Public

# License, v. 2.0. If a copy of the MPL was not distributed with this

# file, You can obtain one at http://mozilla.org/MPL/2.0/.

require('coreconf.pl');

#######-- read in variables on command line into %var

&parse_argv;

### do the copy

print STDERR "RELEASE TREE / MODULE =  $var{RELEASE_TREE} $var{MODULE}\n";

# 1

if ($var{RELEASE} eq "") { exit; } # Can't do release here, so exit.

# 2

#if (! ($var{RELEASE} =~ /\//)) {   # if no specific version is specified in RELEASE variable

#    $component = $var{RELEASE};

#}

#else {  # if a subcomponent/version is given in the RELEASE variable

#        $var{RELEASE} =~ m|^([^/]*)/|;  

#	$component = $1;           # everything before the first slash;

#    }

# 3

$path = $var{RELEASE};

# 4

# find out what directory we would create for 'today'

$year = (localtime)[5] + 1900;

$month = (localtime)[4] + 1;

$day = (localtime)[3];

$today = sprintf( "%d%02d%02d", $year, $month, $day );

# 5

# if version is null, then set the version to today.

if ($var{"RELEASE_VERSION"} eq "") {

    $var{"RELEASE_VERSION"} = $today;

}

#6

$version = $var{"RELEASE_VERSION"};  # set RELEASE_VERSION to passed in variable

#7

# if version is today, then we will want to make a 'current' link.

if ($version eq $today) {

    $create_current = 1;

}

#8

# version can be a) passed in value from command line, b) value in manifest.mn

# or c) computed value such as '19970909'

$dir = "$var{'RELEASE_TREE'}/$path";

#9

if (! (-e "$dir/$version" && -d "$dir/$version")) {

    print "making dir $dir \n";

    &rec_mkdir("$dir/$version");

}

print "version = $version\n";

print "path = $path\n";

print "var{release_tree} = $var{'RELEASE_TREE'}\n";

print "dir = $dir   = RELEASE_TREE/path\n";

#10

if ($create_current == 1) {

# unlinking and linking always occurs, even if the link is correct

    print "unlinking $dir/current\n";

    unlink("$dir/current");

    print "putting version number $today into 'current' file..";

    open(FILE,">$dir/current") || die " couldn't open current\n";

    print FILE "$today\n";

    close(FILE);

    print " ..done\n"

}

&rec_mkdir("$dir/$version/$var{'RELEASE_MD_DIR'}");

&rec_mkdir("$dir/$version/$var{'RELEASE_XP_DIR'}");

foreach $jarfile (split(/ /,$var{FILES}) ) {

    print STDERR "---------------------------------------------\n";

    $jarinfo = $var{$jarfile};

    ($jardir,$jaropts) = split(/\|/,$jarinfo);

    if ($jaropts =~ /f/) {

      print STDERR "Copying files $jardir....\n";

    }

    else {

      print STDERR "Copying jar file $jarfile....\n";

    }

    print "jaropts = $jaropts\n";

    if ($jaropts =~ /m/) {

      $destdir = $var{"RELEASE_MD_DIR"};

      print "found m, using MD dir $destdir\n";

    }

    elsif ($jaropts =~ /x/) {

      $destdir = $var{"RELEASE_XP_DIR"};

      print "found x, using XP dir $destdir\n";

    }

    else {

      die "Error: must specify m or x in jar options in $jarinfo line\n";

    }

    $distdir = "$dir/$version/$destdir";

    if ($jaropts =~ /f/) {

      print "splitting: \"$jardir\"\n";

      for $srcfile (split(/ /,$jardir)) {

#if srcfile has a slash

	if ($srcfile =~ m|/|) {

#pull out everything before the last slash into $1

	  $srcfile =~ m|(.*)/|;

	  $distsubdir = "/$1";

	  print "making dir $distdir$distsubdir\n";

	  &rec_mkdir("$distdir$distsubdir");

	}

	print "copy: from $srcfile\n";

	print "      to   $distdir$distsubdir\n";

	$srcprefix = "";

	if ($jaropts =~/m/) {

	  $srcprefix = "$var{'PLATFORM'}/";

	}

	system("cp $srcprefix$srcfile $distdir$distsubdir");

      }

    }

    else {

      $srcfile = "$var{SOURCE_RELEASE_PREFIX}/$jardir/$jarfile";

      print "copy: from $srcfile\n";

      print "      to   $distdir\n";

      system("cp $srcfile $distdir");

    }

  }