#!/bin/sh -e
# Copyright 2008 Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
# 
# Update a TeX Live tlnet area, with testing.

vc_id='$Id$'
unset CDPATH
unset LS_COLORS

yyyy=2008

chicken=false
critical=
recreate=
do_testinstall=true
verbose=


while test $# -gt 0; do
  case $1 in
  --critical)          critical=--all;;
  --dry-run|-n)        chicken=true;;
  --master)            shift; Master=$1;;
  --no-testinstall|-N) do_testinstall=false;;
  --recreate)          recreate=--recreate;;
  --testlocation)      shift; tltrybase=$1;;
  -v|-vv|-vvv)	       verbose=$1;;
  --help)              echo "xxtodo. Sorry."; exit 0;;
  --version)           echo "$vc_id"; exit 0;;
  --*) echo "$0: unrecognized option \`$1'." >&2
       exit 1;;
  *) tlweb=$1;;
  esac
  shift
done

test -z "$tlweb" && tlweb=/home/ftp/texlive/tlnet/$yyyy
if test -z "$Master"; then
  mydir=`dirname $0`
  Master=`cd $mydir/../.. && pwd`
fi

if test ! -r "$tlweb/tlpkg/texlive.tlpdb"; then
  echo "$0: no tlpdb in $tlweb/tlpkg, goodbye." >&2
  exit 1
fi

# Keep the default out of ~ftp/texlive/tlnet, which CTAN mirrors.
test -z "$tltrybase" \
&& tltrybase=`cd $tlweb/../.. && pwd`/tlnet-trial-`date +%y%m%d`
tltry=$tltrybase/tlsrc.try
echo "$0: Using tlweb=$tlweb"         # top level network directory, mirrored
echo "$0: Using tltry=$tltry"   # local working dir

# Save tlpdb in case of disaster.
cp --force --backup $tlweb/tlpkg/texlive.tlpdb* /tmp

# 
# Be sure we're starting the test cleanly.
rm -rf $tltrybase
mkdir -p $tltry
cp -al $tlweb/* $tltry  # assuming GNU cp

# Update packages in our working dir.
echo "$0: Updating $tltry in cow-shell..."
cd $tltry
cow-shell <<END_COW
echo "$0: Running tl-update-containers..."
$Master/tlpkg/bin/tl-update-containers \
  $verbose -location $tltry $critical $recreate

# It is scary, but I guess we should update the installer package every
# day, partly for the sake of doc.html and partly so it actually gets
# tested.  Hopefully we don't break the Perl modules very often.
echo "$0: Running tl-update-install-pkg..."
$Master/tlpkg/bin/tl-update-install-pkg -o $tltry
END_COW

# if not doing the test installation, never push anything out.
$do_testinstall || exit 0

# 
# Now we have an updated tlweb in $tltry where only the changed files
# are actual files, the rest are hard links.
# Try to make a test installation.
cd $tltrybase
tltryinst=$tltrybase/tlinst.try

zcat $tltry/install-tl-unx.tar.gz | tar -xf -
cd install-tl
# create TL install profile:
echo "# texlive-profile from $0
selected_scheme scheme-full
TEXDIR $tltryinst/$yyyy
TEXDIRW $tltryinst/$yyyy
TEXMFSYSCONFIG $tltryinst/$yyyy/texmf-config
TEXMFSYSVAR $tltryinst/$yyyy/texmf-var
TEXMFLOCAL $tltryinst/texmf-local
TEXMFHOME ~/texmf
option_doc 1
option_fmt 1
option_letter 0
option_src 1
option_symlinks 0
" >texlive.profile

echo "$0: Running test install (log: `pwd`/install.log)..."
perl install-tl -location $tltry -profile texlive.profile >install.log 2>&1\
|| true # install-tl can fail, but we test the output, so don't abort.

# the following long grep command should filter away all *normal*
# installation messages.
# if there are any other messages they will end up on stdout and 
# thus be noticed.
unexpected_output=`cat install.log \
  | grep -Ev '^Automated TeX Live installation using profile' \
  | grep -Ev '^Installing from:' \
  | grep -Ev '^Platform: ' \
  | grep -Ev '^Distribution: inst' \
  | grep -Ev '^Directory for temporary files' \
  | grep -Ev '^Loading ' \
  | grep -Ev '^Installing to:' \
  | grep -Ev '^Installing ' \
  | grep -Ev '^(re-)?running mktexlsr' \
  | grep -Ev '^mktexlsr: Updating ' \
  | grep -Ev '^mktexlsr: Done' \
  | grep -Ev '^writing fmtutil.cnf data to' \
  | grep -Ev '^writing updmap.cfg to' \
  | grep -Ev '^writing language.(dat|def) data to' \
  | grep -Ev '^running updmap-sys' \
  | grep -Ev '^pre-generating all format file' \
  | grep -Ev 'running post install action for' \
  | grep -Ev '^ See \./index.html for links to documentati' \
  | grep -Ev '^ (http://tug.org/texlive/) contains any upda' \
  | grep -Ev '^ TeX Live is a joint project of the TeX user groups' \
  | grep -Ev '^ please consider supporting it by joining the group b' \
  | grep -Ev '^ list of groups is available on the web at' \
  | grep -Ev '^ Add ' \
  | grep -Ev '^ Most importantly, add ' \
  | grep -Ev '^ to your PATH for current and future sessions' \
  | grep -Ev '^ Welcome to TeX Live' \
  | grep -Ev 'install-tl: done' \
  | grep -Ev '^Logfile: ' \
  | grep -Ev '^Time used for installing ' \
  | cat`


# 
if test -z "$unexpected_output"; then
  # no unexpected output, so ship the new packages.
  cd $tltrybase
  if $chicken; then
    echo "$0: Chicken mode, not updating anything."
  else
    echo "$0: Test install ok, comparing containers."   # just a test
    (cd $tltry/archive && time /home/karl/bin/cmpcont) >/tmp/cmpcont 2>&1 || true
    
    echo "$0: Updating $tlweb from $tltry."
    rm -rf $tlweb
    mv $tltry $tlweb
    rm -rf $tltrybase
    echo "$0: Done."
  fi
  exit 0
else
  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
  echo "$0: Full transcript file: `pwd`/install.log" >&2
  echo "$0: install-tl's complete log file: $tltryinst/$yyyy/install-tl.log" >&2
  exit 1
fi