try comparing containers before updating.

git-svn-id: svn://tug.org/texlive/trunk@11383 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 10 insertions, 3 deletions

diff --git a/Master/tlpkg/bin/tl-update-tlnet b/Master/tlpkg/bin/tl-update-tlnet
index a0b6b6cb027..c74cf8e755c 100755
--- a/Master/tlpkg/bin/tl-update-tlnet
+++ b/Master/tlpkg/bin/tl-update-tlnet
@@ -40,6 +40,10 @@ if test ! -r "$tlweb/tlpkg/texlive.tlpdb"; then
   echo "$0: no tlpdb in $tlweb/tlpkg, goodbye." >&2
   exit 1
 fi
+
+# Save tlpdb in case of disaster.
+cp --force --backup $tlweb/tlpkg/texlive.tlpdb*systems/texlive/tlnet/2008/tlpkg/systems/texlive/tlnet/2008/tlpkg/ /tmp
+
 # Keep the default out of ~ftp/texlive/tlnet, which CTAN mirrors.
 test -z "$tlwebtrybase" \
 && tlwebtrybase=`cd $tlweb/../.. && pwd`/tlnet-trial-`date +%y%m%d`
@@ -142,16 +146,19 @@ if test -z "$unexpected_output"; then
   if $chicken; then
     echo "$0: Chicken mode, not updating anything."
   else
+    echo "$0: Test install ok, comparing containers."
+    time /home/karl/bin/cmpcont >/tmp/cmpcont 2>&1  # just a test
+    
+    echo "$0: Updating $tlweb from $tlwebtry."
     rm -rf $tlweb
     mv $tlwebtry $tlweb
-    echo "$0: Updated, removing test installation in $tlwebtrybase."
     rm -rf $tlwebtrybase
     echo "$0: Done."
   fi
   exit 0
 else
-  echo "$0: Test installation failed, not removing anything!" >&2
-  echo "$0: (Don't forget to clean up later, please.)" >&2
+  echo "$0: Test installation failed, not removing anything." >&2
+  echo "$0: Remember to clean up the trial dir, please." >&2
   echo "$0: Here is the unexpected output:" >&2
   echo "$unexpected_output" >&2
   echo