texlive[41644] Master/tlpkg/libexec/mptopdf-extract: do an unzip -t

[commits+karl at tug.org]

Revision: 41644
          http://tug.org/svn/texlive?view=revision&revision=41644
Author:   karl
Date:     2016-07-06 22:37:41 +0200 (Wed, 06 Jul 2016)
Log Message:
-----------
do an unzip -t

Modified Paths:
--------------
    trunk/Master/tlpkg/libexec/mptopdf-extract

Modified: trunk/Master/tlpkg/libexec/mptopdf-extract
===================================================================
--- trunk/Master/tlpkg/libexec/mptopdf-extract	2016-07-06 20:32:03 UTC (rev 41643)
+++ trunk/Master/tlpkg/libexec/mptopdf-extract	2016-07-06 20:37:41 UTC (rev 41644)
@@ -17,11 +17,9 @@
 
 # We will extract them from the current context release.
 ctan=/home/ftp/mirror/rsync.tex.ac.uk/CTAN
-#context_zip=$ctan/macros/context/current/cont-tmf.zip
-# eventually ...
 context_zip=/home/ftp/mirror/www.pragma-ade.com/context/current/cont-tmf.zip
-if test ! -s $context_zip; then
-  echo "$0: no context zip:" >&2
+if unzip -tq $context_zip; then :; else
+  echo "$0: unzip -t failed on:" >&2
   ls -l $context_zip >&2
   exit 1
 fi
@@ -29,5 +27,6 @@
 # Working directory.
 workdir=/home/ftp/tex/mptopdf
 cd $workdir || exit 1
-rm -rf *
-unzip $context_zip $files
+mv * $workdir.prev
+unzip -q $context_zip $files
+ls -lt | head -3