texlive[50443] Master/tlpkg/bin: add ctan link in doc.html

[commits+karl at tug.org]

Revision: 50443
          http://tug.org/svn/texlive?view=revision&revision=50443
Author:   karl
Date:     2019-03-18 18:40:47 +0100 (Mon, 18 Mar 2019)
Log Message:
-----------
add ctan link in doc.html

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

Modified: trunk/Master/tlpkg/bin/tl-update-auto
===================================================================
--- trunk/Master/tlpkg/bin/tl-update-auto	2019-03-18 11:35:23 UTC (rev 50442)
+++ trunk/Master/tlpkg/bin/tl-update-auto	2019-03-18 17:40:47 UTC (rev 50443)
@@ -223,7 +223,7 @@
 if $diff $temp.doc.cur $temp.doc.new >$temp.doc.diff; then
   $verbose "  doc.html ok."
 else
-  $chicken $cp $temp.doc.new doc.html
+  $chicken $cp $temp.doc doc.html
   update_list="$update_list doc.html"
 fi
 fi # !config_scripts_only

Modified: trunk/Master/tlpkg/bin/tl-update-docindex
===================================================================
--- trunk/Master/tlpkg/bin/tl-update-docindex	2019-03-18 11:35:23 UTC (rev 50442)
+++ trunk/Master/tlpkg/bin/tl-update-docindex	2019-03-18 17:40:47 UTC (rev 50443)
@@ -1,7 +1,7 @@
 #!/usr/bin/env perl
 # $Id$
 # Make index file of all HTML and PDF documentation (printed on stdout).
-# Originally written 2009, Manuel Pégourié-Gonnard. WTFPL v2.
+# Originally written 2009, Manuel P\'egouri\'e-Gonnard. WTFPL v2.
 
 BEGIN {
     $0 =~ m#(.*)/(.*)#; ($progdir, $progname) = ($1, $2);
@@ -32,7 +32,8 @@
 <h1>TeX Live documentation</h1>
 
 <p>This document lists links to all HTML and PDF files for packages and guides
-contained in TeX Live, sorted by package name.</p>
+contained in <a href="https://tug.org/texlive/">TeX Live</a>, sorted by
+package name.</p>
 END_HEADER
 
     print_all_pkg($tlpdb);
@@ -76,7 +77,7 @@
     my $name = $tlpkg->name;
     my @docfiles = $tlpkg->docfiles;
 
-    # if no adequate documentation is found, print nothing
+    # if no adequate documentation is found, print nothing
     @docfiles = grep { m/\.(html|pdf)/ } @docfiles;
     return if @docfiles == 0;
     $n++; # list counter
@@ -104,7 +105,8 @@
 
     # print package name with shortdesc
     my $dir = dirname($docfiles[0]);
-    push @lines, qq#\n<li><b><a href="$dir">$name</a></b>:<small>\n#;
+    push @lines, qq#\n<li><b><a href="$dir">$name</a></b><small>\n#;
+    push @lines, qq#(<a href="https://ctan.org/pkg/$name">CTAN</a>):\n#;
     my $shortdesc = $tlpkg->shortdesc;
     push @lines, "$shortdesc\n" if defined $shortdesc;
     #warn "$name\n" if not defined $shortdesc;
@@ -115,10 +117,11 @@
         my $name = basename($file);
         $list .= qq#<a href="$file">$name</a>#;
         my $dflanguage = $tlpkg->{'docfiledata'}{$file}{'language'};
-        $list .= " ($dflanguage)" if defined $dflanguage;
-        $list .= ",\n";
+        $list .= " ($dflanguage) "
+                 if (defined $dflanguage && $dflanguage ne "en");
+        $list .= "\n";
     }
-    $list =~ s/,\n$/./;
+    $list =~ s/( )?\n$/./;
     push @lines, "$list\n</small></li>\n";
 }