summaryrefslogtreecommitdiff
path: root/Master/tlpkg/bin/tlpkg-ctan-check
diff options
context:
space:
mode:
Diffstat (limited to 'Master/tlpkg/bin/tlpkg-ctan-check')
-rwxr-xr-xMaster/tlpkg/bin/tlpkg-ctan-check41
1 files changed, 20 insertions, 21 deletions
diff --git a/Master/tlpkg/bin/tlpkg-ctan-check b/Master/tlpkg/bin/tlpkg-ctan-check
index 3b8e8f7c0af..4e417fdc5f5 100755
--- a/Master/tlpkg/bin/tlpkg-ctan-check
+++ b/Master/tlpkg/bin/tlpkg-ctan-check
@@ -16,7 +16,7 @@ use TeXLive::TLPDB;
use File::Basename;
my $tlpdb;
-my $TL;
+my $Master;
our %OPT;
my @WorkingTLP = qw(
@@ -218,37 +218,35 @@ my @WorkingTLP = qw(
york-thesis
ziffer zwgetfdate
);
-
exit (&main ());
sub main
{
- # get the Master dir
- chomp (my $Master = `cd $mydir/../.. && pwd`);
- $TL = $Master;
- # First we load the current texlive.tlpdb
- $tlpdb = TeXLive::TLPDB->new ("root" => "$Master");
- die("Cannot find tlpdb in $Master!\n") unless defined($tlpdb);
+ # get the Master dir and texlive.tlpdb
+ chomp ($Master = `cd $mydir/../.. && pwd`);
+ $tlpdb = TeXLive::TLPDB->new ("root" => $Master);
+ die "Cannot find tlpdb in $Master!" unless defined $tlpdb;
$OPT{"verbose"} = 0;
+ if ($ARGV[0] eq "--verbose") {
+ $OPT{"verbose"} = 1;
+ shift @ARGV;
+ }
if ($ARGV[0] eq "--list-not-treated") {
- print "List of tlps which are not in ctan-check:\n";
- foreach my $b (&normal_tlps) {
- my @foo = grep(/^$b$/, @WorkingTLP);
- print "$b\n" if ($#foo < 0);
+ print "TeX Live packages not in $0:\n";
+ for my $b (&normal_tlps ()) {
+ print "$b\n" if ! grep (/^$b$/, @WorkingTLP);
}
- exit 0;
+ @ARGV = (); # no normal checks
+
} elsif ($ARGV[0] eq "--check") {
- # for now, just check the few packages we have worked with.
+ # check all/only those packages we have actually run through this mill.
@ARGV = @WorkingTLP;
} elsif ($ARGV[0] eq "--check-all") {
- @ARGV = &normal_tlps;
- } elsif ($ARGV[0] eq "--verbose") {
- $OPT{"verbose"} = 1;
- shift @ARGV;
+ @ARGV = &normal_tlps ();
}
my $errcount = 0;
@@ -262,10 +260,11 @@ sub main
# 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`;
+ my $non_normal = `ls $Master/bin`;
$non_normal =~ s/\n/\$|/g;
$non_normal .= '^0+texlive|^bin-|^collection-|^scheme-|^texlive-|^hyphen-';
foreach ($tlpdb->list_packages) {
@@ -275,7 +274,7 @@ sub normal_tlps
}
-# Return 1 if TPM needs updating, 0 if ok.
+# Return 1 if package needs updating, 0 if ok.
#
sub do_tlp
{
@@ -302,7 +301,7 @@ sub do_tlp
my @compared = ();
for my $file (@tpm_files) {
#warn "checking file $file\n";
- my $tl_file = "$TL/$file";
+ my $tl_file = "$Master/$file";
if (! -e $tl_file) {
warn "$tl_file: TL file missing\n";
next;