fetch.pl: get GNU standards documents from gnulib

Pulling these files from gnulib, instead of getting them directly
from their official home, means that all the files fetched by fetch.pl
come from Savannah Git repositories, which is particularly important
right now as Savannah CVS repositories are currently inaccessible via
the web, see
https://lists.gnu.org/archive/html/savannah-hackers/2026-02/msg00024.html
et seq.

* fetch.pl (to_fetch): Get all gnustandards files from gnulib instead.
  (savannah_url): Remove special case for gnustandards.

diff --git a/build-aux/fetch.pl b/build-aux/fetch.pl
index d8a305132eff23737db48a7757b30ceda6cd682d..8b77f2ddddaef5861ebd8cea9afb96bc1faa70e0 100755 (executable)
--- a/build-aux/fetch.pl
+++ b/build-aux/fetch.pl
@@ -66,12 +66,10 @@ our %to_fetch = (
   'doc' => {
     gnulib => [
       'doc/gendocs_template',
-    ],
-    gnustandards => [
-      'gnustandards/fdl.texi',
-      'gnustandards/gnu-oids.texi',
-      'gnustandards/make-stds.texi',
-      'gnustandards/standards.texi',
+      'doc/fdl.texi',
+      'doc/gnu-oids.texi',
+      'doc/make-stds.texi',
+      'doc/standards.texi',
     ],
   },
   'lib/Autom4te' => {
@@ -132,22 +130,10 @@ sub savannah_url($$)
 {
   my ($repo, $filename) = @_;
 
-  $repo = urlquote ($repo);
-  $filename = urlquote ($filename);
+  my $cgit_base = 'https://git.savannah.gnu.org/cgit/';
+  my $cgit_op   = '.git/plain/';
 
-  # The GNU Coding Standards are still maintained in CVS.
-  if ($repo eq 'gnustandards')
-    {
-      my $cvsweb_base = 'https://cvs.savannah.gnu.org/viewvc/*checkout*/';
-      return $cvsweb_base . $repo . '/' . $filename;
-    }
-  else
-    {
-      my $cgit_base = 'https://git.savannah.gnu.org/cgit/';
-      my $cgit_op   = '.git/plain/';
-
-      return $cgit_base . $repo . $cgit_op . $filename;
-  }
+  return $cgit_base . urlquote($repo) . $cgit_op . urlquote($filename);
 }