From bug 326465 - make unwrap_full_update space-aware (rewrite in perl for ease of coding and maintenance)

tools/update-packaging/unwrap_full_update.pl

@@ -0,0 +1,62 @@
+#!/usr/bin/perl -w
+#
+# This tool unpacks a full update package generated by make_full_update.sh
+# Author: Benjamin Smedberg
+#
+
+# -----------------------------------------------------------------------------
+# By default just assume that these tools exist on our path
+
+use Getopt::Std;
+
+my ($MAR, $BZIP2, $archive, @marentries, @marfiles);
+
+if (defined($ENV{"MAR"})) {
+    $MAR = $ENV{"MAR"};
+}
+else {
+    $MAR = "mar";
+}
+
+if (defined($ENV{"BZIP2"})) {
+    $BZIP2 = $ENV{"BZIP2"};
+}
+else {
+    $BZIP2 = "bzip2";
+}
+
+sub print_usage
+{
+    print "Usage: unwrap_full_update.pl [OPTIONS] ARCHIVE\n\n";
+    print "The contents of ARCHIVE will be unpacked into the current directory.\n\n";
+    print "Options:\n";
+    print "  -h show this help text\n";
+}
+
+getopts("h");
+
+if (defined($::opt_h) || scalar(@ARGV) != 1) {
+    print_usage();
+    exit 1;
+}
+
+$archive = $ARGV[0];
+@marentries = `"$MAR" -t "$archive"`;
+
+$? && die("Couldn't run \"$MAR\" -t");
+
+shift @marentries;
+
+system("$MAR -x \"$archive\"") == 0 || die "Couldn't run $MAR -x";
+
+foreach (@marentries) {
+    tr/\n\r//d;
+    my @splits = split(/\t/,$_);
+    my $file = $splits[2];
+
+    system("mv \"$file\" \"$file.bz2\"") == 0 ||
+      die "Couldn't mv \"$file\"";
+    system("\"$BZIP2\" -d \"$file.bz2\"") == 0 ||
+      die "Couldn't decompress \"$file\"";
+}
+