texlive[62120] Master/tlpkg/bin/tl-update-auto: check distributed

[commits+karl at tug.org]

Revision: 62120
          http://tug.org/svn/texlive?view=revision&revision=62120
Author:   karl
Date:     2022-02-21 19:01:32 +0100 (Mon, 21 Feb 2022)
Log Message:
-----------
check distributed cacert.pem -> our curl-ca-bundle.crt

Modified Paths:
--------------
    trunk/Master/tlpkg/bin/tl-update-auto

Modified: trunk/Master/tlpkg/bin/tl-update-auto
===================================================================
--- trunk/Master/tlpkg/bin/tl-update-auto	2022-02-21 17:59:18 UTC (rev 62119)
+++ trunk/Master/tlpkg/bin/tl-update-auto	2022-02-21 18:01:32 UTC (rev 62120)
@@ -247,17 +247,15 @@
 fi # !config_scripts_only
 
 
-# 
 ctan mirror list from ctan. Skip every other day,
-# just because daily seems a bit much.
+# 
 ctan mirror list from ctan. Update daily since there is constant
+# churn. Something awry with the probing?
 #  || test `expr $(date +%d) % 2` = 0
-# But no, let's do it every day for a while until mirror list
-# is more stable.
 if $config_scripts_only; then :; else
   ctan_mirrors=$TMPDIR/mirrors           # incoming data from CTAN
   ctan_mirmon=$TMPDIR/mirmon.state
   mirrors4tl=tlpkg/installer/ctan-mirrors.pl  # massaged for TL
 
-  if wget --quiet http://ctan.org/tex-archive/CTAN.sites -O $ctan_mirrors \
+  if wget --quiet https://ctan.org/tex-archive/CTAN.sites -O $ctan_mirrors \
      && rsync rsync://comedy.dante.de/MirMon/mirmon.state $ctan_mirmon; then
     $mydir/tl-update-ctan-mirrors $ctan_mirrors $ctan_mirmon >$mirrors4tl.new
     if $diff $mirrors4tl $mirrors4tl.new; then
@@ -276,6 +274,24 @@
 fi # !config_scripts_only || !odd_day_num
 
 
+# 
 curl cert bundle. Every other day is more than often enough.
+if $config_scripts_only || test `expr $(date +%d) % 2` = 0; then :; else
+  curl_cert_src=https://curl.se/ca/cacert.pem
+  curl_cert_dl=$TMPDIR/cacert.pem
+  curl_cert_inst=tlpkg/installer/curl/curl-ca-bundle.crt
+  if wget --quiet $curl_cert_src -O $curl_cert_dl; then
+    if cmp -s $curl_cert_dl $cert_cert_inst; then
+      $verbose "  `basename $curl_cert_inst` ok."
+    else
+      $chicken $cp $curl_cert_dl $curl_cert_inst
+      update_list="$update_list $curl_cert_inst"
+    fi
+  else
+    echo "$0: cert bundle ($curl_bundle_src) not retrievable, skipping." >&2
+  fi
+fi # !config_scripts_only || !odd_day_num
+
+
 # 
 svn commits.
 status=0
 if test -z "$update_list"; then