Changeset 2328 for box/trunk/infrastructure/parcelpath.pl

Timestamp:

05/10/2008 16:14:24 (4 years ago)

Author:

chris

Message:

Move parcel_* functions into BoxPlatform? package to share them with
other scripts.

Add a script to print the path to the current parcel directory, for
use in configure.ac to allow this to be placed in substitutions
(contrib/windows/installer/boxbackup.mpi in particular).

File:

• box/trunk/infrastructure/parcelpath.pl (copied) (copied from box/trunk/infrastructure/msvc/getversion.pl) (1 diff)

box/trunk/infrastructure/parcelpath.pl

@@ -1 +1 @@
 #!perl
 
+unless (@ARGV == 2)
+{
+        die "Usage: $0 <parcel-name> <target-os>\n";
+}
+
 $basedir = $0;
-$basedir =~ s/\\[^\\]*$//;
-$basedir =~ s/\\[^\\]*$//;
-$basedir =~ s/\\[^\\]*$//;
-$basedir =~ s/\\[^\\]*$//;
-$basedir =~ s/\\[^\\]*$//;
+$basedir =~ s|/.*||;
+$basedir .= "/..";
 -d $basedir or die "$basedir: $!";
 chdir $basedir or die "$basedir: $!";
+require "infrastructure/BoxPlatform.pm.in";
 
-require "$basedir\\infrastructure\\BoxPlatform.pm.in";
-
-open VERSIONFILE, "> $basedir/lib/common/BoxVersion.h" 
-        or die "BoxVersion.h: $!";
-print VERSIONFILE "#define BOX_VERSION \"$BoxPlatform::product_version\"\n";
-close VERSIONFILE;
+print BoxPlatform::parcel_dir(@ARGV) . "\n";
 
 exit 0;