summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tl-update-tlnet
blob: cfc6607fe0720cae3f2ce71b4f4963aa6749040d (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
225
226
227
228
229
230
231
232
233
234
235
236
237
238
239
240
241
242
243
244
245
246
247
248
249
250
251
252
253
254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281
282
283
284
285
286
287
288
289
290
291
292
293
294
295
296
297
298
299
300
301
302
303
304
305
306
307
308
309
310
311
312
313
314
315
316
317
318
319
320
321
322
323
324
325
326
327
328
329
330
331
332
333
334
335
336
337
338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
355
356
#!/bin/sh -e
# Copyright 2008-2023 Norbert Preining
# This file is licensed under the GNU General Public License version 2
# or any later version.
# 
# Build a TeX Live tlnet area in a temporary directory, 
# then (unless -N) do a test installation from it,
# then (if the test install succeeded), update the live area,
# all as specified in the options.

vc_id='$Id$'
renice 20 $$ >/dev/null 2>&1
unset CDPATH
unset LS_COLORS

yyyy=2023

adjust_repo=1
check_consistency=true
chicken=false
cow_shell=/bin/sh
critical=
recreate=
scheme=full
testinstall=true
tlweb=/home/ftp/texlive/tlnet
update_install_pkg=true
verbose=
gpgcmd=

while test $# -gt 0; do
  case $1 in
  --adjust-repo)       adjust_repo=1;;		 # instopt
  --cow)               cow_shell=cow-shell;;     # see comments below
  --critical)          critical=--all;;
  --dest)              shift; tlweb=$1;;
  --dry-run|-n)        chicken=true;;
  --gpgcmd)            shift; gpgcmd="--gpgcmd \"$1\"";;
  --master)            shift; Master=$1;;
  --no-adjust-repo)    adjust_repo=0;;
  --no-consistency)    check_consistency=false;; # takes a long time.
  --no-install-pkg)    update_install_pkg=false;;# trunk update after freeze
  --no-testinstall|-N) testinstall=false;;       # and no updates; quit early.
  --recreate)          recreate=--recreate;;
  --scheme)            shift; scheme=$1;;        # scheme for test install.
  --testlocation)      shift; tltrybase=$1;;
  -v|-vv|-vvv)         verbose=$1;;
  --help)              echo "ustl. sorry."; exit 0;;
  --version)           echo "$vc_id"; exit 0;;
  *) echo "$0: unrecognized option \`$1'; see source." >&2
     exit 1;;
  esac
  shift
done

if test ! -r "$tlweb/tlpkg/texlive.tlpdb"; then
  cat <<END_NO_TLPDB >&2
$0: fatal: no file $tlweb/tlpkg/texlive.tlpdb.
$0: If you are setting up a new release, touch the file,
$0: and then use --critical --recreate.
$0: (Or copy in a previous tlnet manually; see releng.txt.)
$0: Goodbye.
END_NO_TLPDB
  # and typically we will fail because there are new messages
  # in the installer.  move the trial dir by hand to avoid
  # time-consuming full recreate more than once.
  exit 1
fi

if test -z "$Master"; then
  mydir=`dirname $0`
  Master=`cd $mydir/../.. && pwd`
fi
prg=`basename $0`

# If there are broken symlinks anywhere in the bin directories, give up
# right away. The nightly cron checks that there no symlinks anywhere else.
# Below, we check for broken symlinks in the bin/ dir as installed.
$Master/tlpkg/bin/tl-check-symlinks $Master/bin

# Keep the default out of ~ftp/texlive, which CTAN mirrors much of.
test -z "$tltrybase" \
&& tltrybase=`cd $tlweb/../.. && pwd`/tlnet-trial-`date +%y%m%d`-$$
tltry=$tltrybase/tlsrc.try
echo "$0: running from Master=$Master"
echo "$0: working in   tltry=$tltry"
echo "$0: output to    tlweb=$tlweb"

# Save current 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

# Keep new directory group-writable to texlive so MacTeX maintainer
# can update it too.
chmod g+ws $tltry
chgrp texlive $tltry || : # in case of strange system

# cp/link files in a loop so we can exclude the mactex files, which is a
# waste of time, and more importantly can uselessly fail due to permissions.
for f in $tlweb/*; do
  if echo "$f" | grep mactex >/dev/null; then
    : # skip mactex
  elif test "x$cow_shell" = xcow-shell; then
    cp -al "$f" $tltry  # assume GNU cp so we can link instead of copy
    # However, cow-shell is evidently introducing strange errors on the 
    # tug.org server we switched to in 2020, causing the release (tlnet)
    # directory to be modified even when changes should be kept to the
    # test (tltry) directory (ultimately resulting in checksum errors
    # since the containers and tlpdb don't match, after a failed rebuild).
    # This can be confirmed with a test hierarchy and build; see tltestnet.
    # So, do not use cow-shell.
  else
    # no cow-shell, straight copy.
    cp -a "$f" $tltry   # still assuming GNU cp for -a
  fi
done

# Update packages in our working dir.
# These shell assignments have to come outside the cow-shell.
echo "$prg: Updating $tltry (from $Master) with $cow_shell..."
containers_prog="$Master/tlpkg/bin/tl-update-containers"
containers_args=" $verbose -location $tltry $critical $recreate $gpgcmd"
containers_invoke="$containers_prog $containers_args"
#
update_install_prog=$Master/tlpkg/bin/tl-update-install-pkg
update_install_invoke="$update_install_prog $gpgcmd -o $tltry"
#
cd $tltry
$cow_shell <<END_COW
echo "$prg: Updating containers with (critical=$critical recreate=$recreate gpgcmd=$gpgcmd)"
echo "$prg:   $containers_invoke"
if $containers_invoke; then :; else
  echo "$prg: tl-update-containers failed, goodbye." >&2
  exit 1
fi

# We don't want to update the install packages if we're updating the
# "frozen" release (tlnet-final) after we've moved on to the pretest.
# See tlpkg/doc/releng.txt.
if $update_install_pkg; then
  # 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 "$prg: Updating install pkg with"
  echo "$prg:   $update_install_invoke"
  if $update_install_invoke; then :; else
    echo "$prg: tl-update-install-pkg failed, goodbye." >&2
    exit 1
  fi
else
  :
fi
END_COW

# cow-shell leaves this around, haven't tracked down (or reported).
rm -f $tltry/.ilist

# if not doing the test installation, don't push anything out.
$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-*  # subdir is YYYYMMDD

# create test TL install profile.
# We set TEXMFVAR for the sake of luaotfload-tool.
echo "# texlive-profile from $0 `date`
selected_scheme scheme-$scheme
TEXDIR $tltryinst/$yyyy
TEXMFLOCAL $tltryinst/texmf-local
TEXMFSYSCONFIG $tltryinst/$yyyy/texmf-config
TEXMFSYSVAR $tltryinst/$yyyy/texmf-var
TEXMFVAR $tltryinst/$yyyy/texmf-uvar
TEXMFHOME ~/texmf
tlpdbopt_install_docfiles 1
tlpdbopt_install_srcfiles 1
tlpdbopt_create_formats 1
instopt_letter 0
instopt_adjustpath 0
instopt_adjustrepo $adjust_repo
" >texlive.profile

# silence envvar warnings and the welcome message.
TEXLIVE_INSTALL_ENV_NOCHECK=1; export TEXLIVE_INSTALL_ENV_NOCHECK
TEXLIVE_INSTALL_NO_WELCOME=1; export TEXLIVE_INSTALL_NO_WELCOME

# Minimal PATH from here on! E.g., we don't want the test install to
# find its own mktexlsr, but only have the programs in the test
# environment available.
PATH=/usr/bin

tlnet_install_log=`pwd`/update-tlnet-install.log
tlnet_install_cmd="install-tl -location $tltry -profile texlive.profile"
echo "$prg: `date`"
echo "$prg: Running test install (log: $tlnet_install_log)..."
echo "$prg:   (in `pwd`)"
echo "$prg:   $tlnet_install_cmd"
perl $tlnet_install_cmd >$tlnet_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 $tlnet_install_log \
  | sed '/The following environment variables/,/^ ------/d' \
  | grep -Ev '^ ------' \
  | grep -Ev '^$' \
  | grep -Ev '^cryptographic signature of' \
  | 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 ' \
  | grep -Ev '^(re-)?running mktexlsr' \
  | grep -Ev '^mktexlsr: Updating ' \
  | grep -Ev '^mktexlsr: Done' \
  | grep -Ev '^writing fmtutil.cnf to' \
  | grep -Ev '^writing updmap.cfg to' \
  | grep -Ev '^writing language.(dat|def|dat.lua) to' \
  | grep -Ev '^pre-generating all format file' \
  | grep -Ev '^making ConTeXt MkIV cache' \
  | grep -Ev '^running ' \
  | grep -Ev '^done running ' \
  | grep -Ev '^finished ' \
  | grep -Ev '^Welcome to TeX Live' \
  | grep -Ev '^The TeX Live web site' \
  | grep -Ev '^contains updates' \
  | grep -Ev '^TeX Live is a joint project of the TeX user groups' \
  | grep -Ev '^please consider supporting it by joining the group' \
  | grep -Ev '^The list of groups is available' \
  | grep -Ev '^Add ' \
  | grep -Ev '^Most importantly, add ' \
  | grep -Ev '^to your PATH for current and future sessions' \
  | grep -Ev ' \(if not dynamically found\)' \
  | grep -Ev 'install-tl: done' \
  | grep -Ev '^Logfile: ' \
  | grep -Ev '^Time used for installing ' \
  | grep -Ev '^setting up ConTeXt cache' \
  | grep -Ev '^resolvers +\|' \
  | grep -Ev '^system +\|' \
  | grep -Ev '^mtxrun +\|' \
  | grep -Ev '^done$' \
  | cat`

failure=false
ignore_unexpected_output=false #true, if frustration
if test -n "$unexpected_output"; then
  $ignore_unexpected_output || failure=true
  echo >&2
  echo "$prg: Test installation failed." >&2
  echo "$prg: Here is the unexpected output, from $tlnet_install_log:" >&2
  echo "$unexpected_output" >&2
  echo "$prg: (end of unexpected output)." >&2
fi

# more consistency checks.
if test $failure = false; then
  for cmd in \
   "$Master/tlpkg/bin/tlgpg-verify $tltry/tlpkg/texlive.tlpdb.sha512" \
   "$Master/tlpkg/bin/tl-compare-tlpdbs $critical $tltry/tlpkg/texlive.tlpdb" \
   "$Master/tlpkg/bin/tl-check-symlinks $tltryinst/$yyyy/bin" \
   "$tltryinst/$yyyy/bin/*/tlmgr --repository $tltry update --list" \
   "$tltryinst/$yyyy/bin/*/updmap-sys -n" \
   "$tltryinst/$yyyy/bin/*/mktexlsr -n --verbose" \
   "$Master/tlpkg/bin/tl-check-tlnet-consistency --location=$tltry" \
  ; do
    cmdname=`echo "$cmd" | awk '{print $1}'`
    if echo "$cmdname" | grep check-tlnet-consistency >/dev/null; then
      # skip consistency check if requested (for development only).
      $check_consistency || continue
    fi
    basecmd=`basename $cmdname`
    echo "$prg: `date`"
    echo "$prg: Running $basecmd ($cmd)"
    outfile=/tmp/tlnet.$basecmd
    if $cmd >$outfile 2>&1; then :; else
      echo "$prg: $basecmd failed ($cmd):" >&2
      sed 8q $outfile >&2
      echo "... see $outfile for full output ..." >&2
      echo >&2
      failure=true
    fi
  done
fi

# Format creation check, in case fmtutil's exit status wasn't right.
# This might not exist if the test install didn't get this far.
install_tl_log=$tltryinst/$yyyy/install-tl.log

if test -r $install_tl_log \
   && grep -i '^fmtutil.*error.*' $install_tl_log >/dev/null; then
  echo >&2
  echo "$prg: seems fmtutil failed, check: $install_tl_log" >&2
  failure=true
else
  : # appease -e
fi

# In all cases, make copies in /tmp for inspection in case of
# undetected failure.
cp -f $tlnet_install_log /tmp
test ! -r $install_tl_log || cp -f $install_tl_log /tmp

if $failure || $chicken; then
  echo >&2
  echo "$prg: tl-update-tlnet transcript file: $tlnet_install_log" >&2
  echo "$prg: install-tl log file: $install_tl_log" >&2
  echo "$prg: Copies of both are in /tmp." >&2
  echo "$prg: Please rm -rf the trial dir." >&2
  if $failure; then
    exit 1
  elif $chicken; then
    echo
    echo "$prg: Chicken mode, not updating anything."
    exit 0
  else
    echo "$prg: impossible non-failure non-chicken." >&2
    exit 2
  fi
fi

# 
# no unexpected output, so ship the new packages.
cd $tltrybase
echo "$prg: Updating $tlweb from $tltry."
# copy any mactex files since we didn't link them.
for f in $tlweb/*mactex*; do
  test ! -r $f || cp -pf $f $tltry
done

# mv then rm to avoid the mirmon probe failing during the rm.
mv $tlweb $tltrybase/tlnet.old
mv $tltry $tlweb
rm -rf $tltrybase

# We checked this above also, but check again.
# We've removed the cwd, so cd out of it.
cd /tmp || exit 1
$Master/tlpkg/bin/tlgpg-verify $tlweb/tlpkg/texlive.tlpdb.sha512

echo "$0: Done."

exit 0