diff options
| author | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2010-07-13 16:15:10 +0000 |
|---|---|---|
| committer | Manuel Pégourié-Gonnard <mpg@elzevir.fr> | 2010-07-13 16:15:10 +0000 |
| commit | 4ffc1f87ae8dc7ec2e6e154a8d7708f03ee777bd (patch) | |
| tree | 672210574fc7c6bb7bb66d3b89ebd1d664b929ab | |
| parent | c060770550d641267d9f1a7f9460f1f632e82b75 (diff) | |
Include CTAN url in README.TEXLIVE.
git-svn-id: svn://tug.org/texlive/trunk@19425 c570f23f-e606-0410-a88d-b1316a301751
| -rwxr-xr-x | Master/tlpkg/libexec/ctan2tds | 16 |
1 files changed, 11 insertions, 5 deletions
diff --git a/Master/tlpkg/libexec/ctan2tds b/Master/tlpkg/libexec/ctan2tds index fd2841a8d31..645b815a86a 100755 --- a/Master/tlpkg/libexec/ctan2tds +++ b/Master/tlpkg/libexec/ctan2tds @@ -1757,7 +1757,6 @@ $standardclean = '\.head|\.tmp|\.dvi|\.log|\.out|\.aux|\.toc|\.lof|\.lot' 'ednotes' => 'perpage.sty', # copy from bigfoot 'easy' => '.*\.pdf|doc.html.tgz', # no source 'epslatex-fr' => 'R?Danger.eps', # unneeded - 'eqexam' => 'doc/eqexamman.pdf', # no source 'flacards' => 'flacards.pdf', 'gfsartemisia' => 'A*Specimen.pdf', # nonfree 'gfsbaskerville'=> 'B*Specimen.pdf', # nonfree @@ -1770,7 +1769,6 @@ $standardclean = '\.head|\.tmp|\.dvi|\.log|\.out|\.aux|\.toc|\.lof|\.lot' 'linguex' => 'cgloss4e.sty', # symlink 'piechartmp' => 'piechartmp.pdf', 'ptptex' => '(overcite|cite|wrapfig).sty', # duplicated - 'rangen' => 'doc/rangen_man.pdf', # no source 'stix' => 'STIX_Font_Release_Documentation_2010.pdf', # no source 'stubs' => 'stubs.pdf', # no source 'susy' => 'susy.pdf', # no source @@ -2403,13 +2401,21 @@ sub killfiles } if ($more && @delfiles) { + # get package url on CTAN + my $ctan_url = '.'; + chomp (my $ctan_root = `tlpkginfo --ctan-root`); + chomp (my $ctan_dir = `tlpkginfo --ctan-dir $packagedir`); + if (not $?) { + $ctan_dir =~ s!$ctan_root/!!; + $ctan_url = " at\n\thttp://mirror.ctan.org/$ctan_dir"; + } # create/update README.TEXLIVE. open (RTL, ">README.TEXLIVE") || warn "open(>README.TEXLIVE) failed: $!"; - print RTL <<'EOF'; + print RTL <<"EOF"; The following files have been removed in the TeX Live installation of the current package, typically due to duplication, lack of space, or -missing source code. You can find these files on CTAN. If questions or -concerns, email tex-live@tug.org. +missing source code. You can find these files on CTAN$ctan_url +If questions or concerns, email tex-live\@tug.org. EOF foreach my $f (@delfiles) { |