texlive[72510] Master/tlpkg/bin: have to scp ctan mirmon.state;

[commits+karl at tug.org]

Revision: 72510
          https://tug.org/svn/texlive?view=revision&revision=72510
Author:   karl
Date:     2024-10-10 00:13:22 +0200 (Thu, 10 Oct 2024)
Log Message:
-----------
have to scp ctan mirmon.state; change cutoff to 60 hours while ctan mirmon is running daily

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

Modified: trunk/Master/tlpkg/bin/tl-update-auto
===================================================================
--- trunk/Master/tlpkg/bin/tl-update-auto	2024-10-09 20:53:30 UTC (rev 72509)
+++ trunk/Master/tlpkg/bin/tl-update-auto	2024-10-09 22:13:22 UTC (rev 72510)
@@ -264,8 +264,9 @@
     echo "$0: ctan mirror list already updated today, skipping update:" >&2
     ls -lt $mirrors4tl >&2
     
+#     && rsync rsync://rsync.dante.ctan.org/MirMon/mirmon.state $ctan_mirmon; then
   elif wget --quiet https://ctan.org/tex-archive/CTAN.sites -O $ctan_mirrors \
-     && rsync rsync://rsync.dante.ctan.org/MirMon/mirmon.state $ctan_mirmon; then
+     && scp -pq ctan.org:/serv/ctan/scripts/mirmon-2.11/mirmon.state $ctan_mirmon; then
     #echo "got new mirror data"; ls -ltr $TMPDIR
     $mydir/tl-update-ctan-mirrors -v $ctan_mirrors $ctan_mirmon \
       >$mirrors4tl.new

Modified: trunk/Master/tlpkg/bin/tl-update-ctan-mirrors
===================================================================
--- trunk/Master/tlpkg/bin/tl-update-ctan-mirrors	2024-10-09 20:53:30 UTC (rev 72509)
+++ trunk/Master/tlpkg/bin/tl-update-ctan-mirrors	2024-10-09 22:13:22 UTC (rev 72510)
@@ -5,9 +5,10 @@
 # or any later version.
 #
 # Write parsable list of active CTAN mirrors; run from tl-update-auto cron.
-# Needed input:
-#   http://ctan.org/mirrors (aka CTAN.sites and README.mirrors)
-#   rsync://comedy.dante.de/MirMon/mirmon.state
+# 
+# Needed input are the files from:
+#   https://ctan.org/mirrors (aka CTAN.sites and README.mirrors)
+#   (via scp) ctan.org:/serv/ctan/scripts/mirmon-2.11/mirmon.state
 #     (on web: https://ctan.org/mirrors/mirmon)
 
 use strict;
@@ -16,6 +17,8 @@
 
 my $prg;
 my $verbose = 0;
+my $AGE_HOURS_CUTOFF = 60; # omit a mirror if it's older than this
+# switch back to 36 after CTAN mirmon is back in shape.
 
 exit (&main ());
 
@@ -62,7 +65,7 @@
     } else {
       # mirrors can be stale and yet not have no_time for their status.
       my $age_hours = (time() - $age) / (60 * 60);
-      if ($age_hours > 36) {
+      if ($age_hours > $AGE_HOURS_CUTOFF) {
         printf STDERR "mirror age %.1f hours, skipping: $m\n", $age_hours
           if $verbose;
       } else {