sunday-only for mirror lists

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

1 files changed, 15 insertions, 13 deletions

diff --git a/Master/tlpkg/bin/tl-update-auto b/Master/tlpkg/bin/tl-update-auto
index bbdec92023b..6e3f3f1ded4 100755
--- a/Master/tlpkg/bin/tl-update-auto
+++ b/Master/tlpkg/bin/tl-update-auto
@@ -251,21 +251,23 @@ fi # !config_scripts_only
 
 #  ctan mirror list from ctan.
 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/mirrors -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
-    $verbose "  $mirrors4tl ok."
+if test `date +%w` = 0; then             # only update on Sundays
+  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/mirrors -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
+      $verbose "  $mirrors4tl ok."
+    else
+      $chicken $mv $mirrors4tl.new $mirrors4tl
+      update_list="$update_list $mirrors4tl"
+    fi
   else
-    $chicken $mv $mirrors4tl.new $mirrors4tl
-    update_list="$update_list $mirrors4tl"
+    echo "$0: ctan mirror data not retrievable, skipping." >&2
   fi
-else
-  echo "$0: ctan mirror data not retrievable, skipping." >&2
 fi
 fi # !config_scripts_only