Changeset 497 for locker/update-system/bin/propose-update

Timestamp:

Oct 16, 2007, 11:20:19 PM (17 years ago)

Author:

quentin

Message:

Use new /mit/scripts/deploy format
Use full path to files in scripts-version file

File:

• locker/update-system/bin/propose-update (modified) (2 diffs)

locker/update-system/bin/propose-update

@@ -46 +46 @@
   my $cwd = cwd();
   chdir($dir) or die $!;
-  `athrun scripts gtar zxf "/mit/scripts/deploy$scriptsdev/$package.tar.gz"`; $? && die "Failed to unpack $package.tar.gz: $?";
+  `athrun scripts gtar zxf "/mit/scripts/deploy$scriptsdev/$package/$package.tar.gz"`;
+  if ($?) { chdir($cwd); system("rmdir", "$dir"); die "Failed to unpack $package.tar.gz: $?"; }
   my @files=`athrun scripts gfind . -mindepth 1 -maxdepth 1 | grep -v .admin`;
   if (@files <= 1) {
@@ -67 +68 @@
   my @aonly, @bonly, @both;
   $a = $b = 0;
-  my $debug = 1;
+  my $debug = 0;
   local $Data::Dumper::Indent = 0;
   while ($a <= $#a || $b <= $#a) {