[446] | 1 | #!/usr/athena/bin/perl |
---|
| 2 | |
---|
| 3 | use File::Spec::Functions qw(:ALL); |
---|
| 4 | use File::Copy; |
---|
| 5 | use File::Path; |
---|
| 6 | use Data::Dumper; |
---|
| 7 | use Getopt::Long; |
---|
| 8 | use Cwd; |
---|
| 9 | use strict; |
---|
| 10 | use warnings; |
---|
| 11 | |
---|
| 12 | my $scriptsdev = ""; |
---|
| 13 | |
---|
| 14 | GetOptions( |
---|
| 15 | #"redo-delete" => \$redodelete, |
---|
| 16 | # "redo-add" => \$redoadd, |
---|
| 17 | # "redo-replace" => \$redoreplace, |
---|
| 18 | # "redo-diff" => \$redodiff, |
---|
| 19 | # "redo-all" => sub {$redodelete = $redoadd = $redoreplace = $redodiff = 1;}, |
---|
| 20 | "dev" => sub {$scriptsdev = "dev";}, |
---|
| 21 | ); |
---|
| 22 | |
---|
| 23 | if (@ARGV < 3) { |
---|
| 24 | print STDERR "Usage: $0 package oldversion newversion\n"; |
---|
| 25 | exit(1); |
---|
| 26 | } |
---|
| 27 | |
---|
| 28 | my ($package, $oldversion, $newversion) = @ARGV; |
---|
| 29 | my ($old, $new, $updatename) = ($package.'-'.$oldversion, $package.'-'.$newversion, $package.'-'.$oldversion.'-to-'.$newversion); |
---|
| 30 | |
---|
| 31 | my $proposaldir = $updatename.".proposal"; |
---|
| 32 | my $outdir = catdir("/mit/scripts/deploy$scriptsdev/updates/", $updatename); |
---|
| 33 | |
---|
| 34 | (-d $proposaldir) or die "Can't find $proposaldir, did you run propose-update?\n"; |
---|
| 35 | (-d $outdir || mkdir($outdir)) or die "mkdir($outdir) failed: $!"; |
---|
| 36 | |
---|
| 37 | my $olddir = catdir($proposaldir,$old); |
---|
| 38 | my $newdir = catdir($proposaldir,$new); |
---|
| 39 | (-d $olddir && -d $newdir) or die "Packages not unpacked?\n"; |
---|
| 40 | |
---|
| 41 | sub readFileList($) { |
---|
| 42 | my ($list) = @_; |
---|
| 43 | open(LIST, $list) or die "Can't read $list: $!\n"; |
---|
| 44 | my @files = map { chomp; s|$newdir\/?||g; [split(' ', $_, 2)] } <LIST>; |
---|
| 45 | close(LIST); |
---|
| 46 | return @files; |
---|
| 47 | } |
---|
| 48 | |
---|
| 49 | my @todelete = readFileList(catfile($proposaldir, "files.delete")); |
---|
| 50 | my @toadd = readFileList(catfile($proposaldir, "files.add")); |
---|
| 51 | my @toreplace = readFileList(catfile($proposaldir, "files.replace")); |
---|
| 52 | |
---|
| 53 | open(CHECKMD5, ">", catfile($outdir, "check.md5")) or die "Can't open check.md5: $!"; |
---|
[447] | 54 | print CHECKMD5 map { join(" ", @{$_})."\n" } @todelete, @toreplace; |
---|
[446] | 55 | close(CHECKMD5); |
---|
| 56 | |
---|
| 57 | open(ABSENT, ">", catfile($outdir, "oldfiles.absent")) or die "Can't open oldfiles.absent: $!"; |
---|
| 58 | print ABSENT map { $_->[1]."\n" } @toadd; |
---|
| 59 | close(ABSENT); |
---|
| 60 | |
---|
| 61 | open(DELETE, ">", catfile($outdir, "files.delete")) or die "Can't open files.delete: $!"; |
---|
| 62 | print DELETE map { $_->[1]."\n" } @todelete, @toreplace; |
---|
| 63 | close(DELETE); |
---|
| 64 | |
---|
| 65 | my $outfiledir = catdir($outdir, "newfiles"); |
---|
| 66 | (-d $outfiledir || mkdir($outfiledir)) or die "Can't mkdir($outfiledir)\n"; |
---|
| 67 | |
---|
| 68 | foreach my $file (@toadd, @toreplace) { |
---|
| 69 | my $filename = $file->[1]; |
---|
| 70 | my $src = catfile($newdir, $filename); |
---|
| 71 | my $dest = catfile($outfiledir, $filename); |
---|
| 72 | my (undef, $dir, undef) = splitpath($dest); |
---|
| 73 | mkpath($dir); |
---|
| 74 | copy($src, $dest) or die "Couldn't copy $filename from $src to $dest: $!"; |
---|
| 75 | } |
---|
| 76 | |
---|
| 77 | copy(catfile($proposaldir, "update.diff"), catfile($outdir, "update.diff")) or die "Couldn't copy update.diff: $!"; |
---|
| 78 | |
---|
| 79 | open (SCRIPT, ">", catfile($outdir, "update")) or die "Couldn't write update: $!"; |
---|
| 80 | printf SCRIPT <<'EOF', $updatename, $new; |
---|
| 81 | #!/bin/bash |
---|
| 82 | set -e -o noclobber |
---|
| 83 | |
---|
| 84 | die () { echo "$1" >&2; exit 1; } |
---|
| 85 | |
---|
| 86 | patchdir=$(dirname "$0") |
---|
| 87 | |
---|
| 88 | >.scripts-security-upd-lock || die "error: Unable to obtain update lock." |
---|
| 89 | |
---|
| 90 | echo "[$PWD] begin dry run" |
---|
| 91 | |
---|
| 92 | xargs -n1 test ! -e <"$patchdir/oldfiles.absent" || die "error: Conflicting files exist." |
---|
| 93 | md5sum -c "$patchdir/check.md5" || die "error: MD5 check failed." |
---|
[448] | 94 | patch -stN --dry-run --no-backup-if-mismatch -p2 <"$patchdir/update.diff" || die "error: Patch dry run failed." |
---|
[446] | 95 | |
---|
| 96 | echo "[$PWD] dry run OK, applying update" |
---|
| 97 | |
---|
| 98 | mv .scripts-version .scripts-version.old |
---|
[447] | 99 | patch -stN --no-backup-if-mismatch -p2 <"$patchdir/update.diff" || : |
---|
[446] | 100 | xargs rm -f <"$patchdir/files.delete" |
---|
| 101 | cp -a "$patchdir/newfiles/." . |
---|
| 102 | (cat .scripts-version.old; date; echo "%s"; echo "%s") >>.scripts-version |
---|
| 103 | rm -f .scripts-version.old |
---|
| 104 | |
---|
| 105 | rm -f .scripts-security-upd-lock |
---|
| 106 | |
---|
| 107 | echo "[$PWD] done" |
---|
| 108 | |
---|
| 109 | exit 0 |
---|
| 110 | EOF |
---|
| 111 | chmod 0755, catfile($outdir, "update"); |
---|