new --check-all option

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

1 files changed, 20 insertions, 11 deletions

diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index ff3d84838cb..605d173bc7a 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -225,23 +225,18 @@ sub main
   
   if ($ARGV[0] eq "--list-not-treated") {
     print "List of tlps which are not in ctan-check:\n";
-    # We want to list only the 'normal' packages,
-    # that is, exclude meta-packages and binary packages.
-    my $non_normal = `ls $TL/bin`;
-    $non_normal =~ s/\n/\$|/g;
-    $non_normal .= '^0+texlive|^bin-|^collection-|^scheme-|^texlive-';
-    foreach my $b ($tlpdb->list_packages) {
+    foreach my $b (&normal_tlps) {
       my @foo = grep(/^$b$/, @WorkingTLP);
-      print "$b\n" if (($#foo < 0) and ($b !~ /$non_normal/));
+      print "$b\n" if ($#foo < 0);
     }
     exit 0;
-  }
-
-  if ($ARGV[0] eq "--check") {
+  } elsif ($ARGV[0] eq "--check") {
     $OPT{"verbose"} = 0;
-
     # for now, just check the few packages we have worked with.
     @ARGV = @WorkingTLP;
+  } elsif ($ARGV[0] eq "--check-all") {
+    $OPT{"verbose"} = 0;
+    @ARGV = &normal_tlps;
   }
 
   my $errcount = 0;
@@ -252,6 +247,20 @@ sub main
   return $errcount;
 }
 
+# gives a list with only the 'normal' packages,
+# that is, excluding meta-packages and binary packages
+# (and hyphen for the moment)
+sub normal_tlps
+{
+  my @normal;
+  my $non_normal = `ls $TL/bin`;
+  $non_normal =~ s/\n/\$|/g;
+  $non_normal .= '^0+texlive|^bin-|^collection-|^scheme-|^texlive-|^hyphen-';
+  foreach ($tlpdb->list_packages) {
+    push (@normal, $_) unless (/$non_normal/);
+  }
+  return @normal;
+}
 
 
 # Return 1 if TPM needs updating, 0 if ok.