[Box Backup-commit] COMMIT r1841 - box/chris/general/infrastructure

boxbackup-dev at fluffy.co.uk boxbackup-dev at fluffy.co.uk
Wed Sep 19 21:52:32 BST 2007


Author: chris
Date: 2007-09-19 21:52:32 +0100 (Wed, 19 Sep 2007)
New Revision: 1841

Modified:
   box/chris/general/infrastructure/makeparcels.pl.in
Log:
Don't include the install-backup-client script in Windows builds, as it's
pretty useless without Cygwin, and of marginal use with it (refs #24).


Modified: box/chris/general/infrastructure/makeparcels.pl.in
===================================================================
--- box/chris/general/infrastructure/makeparcels.pl.in	2007-09-19 20:52:00 UTC (rev 1840)
+++ box/chris/general/infrastructure/makeparcels.pl.in	2007-09-19 20:52:32 UTC (rev 1841)
@@ -101,8 +101,12 @@
 	my $dir = parcel_dir($parcel);
 	print MAKE "\ttest -d $dir || mkdir $dir\n";
 	
-	open SCRIPT,">parcels/scripts/install-$parcel" or die "Can't open installer script for $parcel for writing";
-	print SCRIPT "#!/bin/sh\n\n";
+	unless ($target_windows)
+	{
+		open SCRIPT,">parcels/scripts/install-$parcel" or die
+			"Can't open installer script for $parcel for writing";
+		print SCRIPT "#!/bin/sh\n\n";
+	}
 	
 	for(@{$parcel_contents{$parcel}})
 	{
@@ -136,21 +140,34 @@
 			$name = $1;
 		}
 
-		print SCRIPT "install $name $install_into_dir\n";
+		unless ($target_windows)
+		{
+			print SCRIPT "install $name $install_into_dir\n";
+		}
 	}
+
+	unless ($target_windows)
+	{	
+		close SCRIPT;
+		chmod 0755,"parcels/scripts/install-$parcel";
+	}
 	
-	close SCRIPT;
-	
-	chmod 0755,"parcels/scripts/install-$parcel";
-	
 	my $root = parcel_root($parcel);
-	print MAKE "\tcp parcels/scripts/install-$parcel $dir\n";
+
+	unless ($target_windows)
+	{
+		print MAKE "\tcp parcels/scripts/install-$parcel $dir\n";
+	}
+
 	print MAKE "\t(cd parcels; tar cf - $root | gzip -9 - > $root.tgz )\n";
 	
 	print MAKE "\n";
-	
-	print MAKE "install-$parcel:\n";
-	print MAKE "\t(cd $dir; ./install-$parcel)\n\n";
+
+	unless ($target_windows)
+	{	
+		print MAKE "install-$parcel:\n";
+		print MAKE "\t(cd $dir; ./install-$parcel)\n\n";
+	}
 }
 
 print MAKE <<__E;




More information about the Boxbackup-commit mailing list