create/add README.TEXLIVE with the lines of removed files from $moreclean

git-svn-id: svn://tug.org/texlive/trunk@5869 c570f23f-e606-0410-a88d-b1316a301751

1 files changed, 39 insertions, 2 deletions

diff --git a/Master/tlpkg/bin/ctan2tds b/Master/tlpkg/bin/ctan2tds
index 4ad956f3ba0..786e028f816 100755
--- a/Master/tlpkg/bin/ctan2tds
+++ b/Master/tlpkg/bin/ctan2tds
@@ -1447,7 +1447,7 @@ sub donormal {
    &SYSTEM("rmdir $DEST/*/$whichformat/$package 2> /dev/null");
 
    killfiles($cleanpatt);
-   killfiles($moreclean{$package}) if $moreclean{$package};
+   killmorefiles($moreclean{$package}) if $moreclean{$package};
 
    my $postnormal = $specialpostnormal{$package};
    eval ($postnormal) if $postnormal;
@@ -1643,6 +1643,43 @@ sub runjob {
     }
 }
 
+# remove additional files matching something in $moreclean
+# create a README.TEXLIVE which lists the removed files
+#
+sub killmorefiles {
+   my ($killpatt) = @_;
+   my $fh;
+   my @delfiles;
+   for (grep (/$killpatt/, @filenames)) { 
+     print "\t Remove $_\n";
+     unlink $_; 
+     push @delfiles, $_;
+   }
+   
+   for (grep (/\.ps$/, @filenames)) { 
+     (my $pdf = $_) =~ s/ps$/pdf/;
+     next unless grep (/$pdf/, @filenames);
+     print "\t Remove ps $_ (since have $pdf)\n";
+     unlink $_; 
+     push @delfiles, $_;
+   }  
+   # create/add some lines to README.TEXLIVE
+   if (@delfiles) {
+     open RTL, ">>README.TEXLIVE" or warn "Cannot create README.TEXLIVE\n";
+     print RTL <<EOF;
+
+The following files have been removed from the current package
+due to licensing conditions or missing source code. Please find
+these files on the CTAN!
+EOF
+     foreach my $f (@delfiles) {
+       print RTL "\t$f\n";
+     }
+     print RTL "\n";
+     close RTL;
+   }
+}
+
 # remove all files matching something in $killpatt.
 # also remove .ps files for which we have a .pdf.
 #
@@ -3010,7 +3047,7 @@ sub MAKEpst {
    &dotex;
    &dotype1;   
    killfiles($cleanpatt);
-   killfiles($moreclean{$package}) if $moreclean{$package};
+   killmorefiles($moreclean{$package}) if $moreclean{$package};
    &SYSTEM("mkdir -p $DEST/tex/latex/$package");
    &SYSTEM("mv $DEST/tex/generic/$package/*sty $DEST/tex/latex/$package");
    &SYSTEM("mv $DEST/doc/generic/$package/*sty $DEST/tex/latex/$package");