texlive[66609] Master/tlpkg/bin/tl-update-ctan-mirrors: output ok:

[commits+karl at tug.org]

Revision: 66609
          http://tug.org/svn/texlive?view=revision&revision=66609
Author:   karl
Date:     2023-03-21 14:55:58 +0100 (Tue, 21 Mar 2023)
Log Message:
-----------
output ok: msgs only with -vv

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

Modified: trunk/Master/tlpkg/bin/tl-update-ctan-mirrors
===================================================================
--- trunk/Master/tlpkg/bin/tl-update-ctan-mirrors	2023-03-21 00:51:56 UTC (rev 66608)
+++ trunk/Master/tlpkg/bin/tl-update-ctan-mirrors	2023-03-21 13:55:58 UTC (rev 66609)
@@ -1,6 +1,6 @@
 #!/usr/bin/env perl
 # $Id$
-# Copyright 2011-2020 Norbert Preining
+# Copyright 2011-2023 Norbert Preining
 # This file is licensed under the GNU General Public License version 2
 # or any later version.
 #
@@ -21,7 +21,7 @@
 
 sub main {
   if (@ARGV != 2 && @ARGV != 3) {
-    die "Usage: $0 [-v] CTAN_SITES MIRMON_STATE.\n";
+    die "Usage: $0 [-v[v]] CTAN_SITES MIRMON_STATE.\n";
   }
   ($prg = $0) =~ s,^.*/,,;
   
@@ -28,6 +28,9 @@
   if ($ARGV[0] eq "-v") {
     $verbose = 1;
     shift @ARGV;
+  } elsif ($ARGV[0] eq "-vv") {
+    $verbose = 2;
+    shift @ARGV;
   }
   
   my %good_urls = read_mstate($ARGV[1]);
@@ -95,7 +98,7 @@
       $country = $2;
       # make many names a little shorter
       $country =~ s/^The //;
-      warn " got country $country, with mirror $mirror\n" if $verbose;
+      warn " got country $country, with mirror $mirror\n" if $verbose > 1;
 
     } elsif (m!^ +URL: (ftp|https?|rsync)://([-a-zA-Z0-9.]+)/([-\w/]*)!) {
       next if $1 eq "rsync"; # we can't use rsync, so skip
@@ -125,7 +128,7 @@
   if (exists $good_urls_ref->{$url}) {
     if ($good_urls_ref->{$url}) {
       $mirref->{$continent}{$country}{$url} = 1;
-      warn "  ok: $url\n" if $verbose;
+      warn "  ok: $url\n" if $verbose > 1;
     } else {
       warn "  probe not ok, skipped: $url\n" if $verbose;
     }