diff options
Diffstat (limited to 'Master/tlpkg')
| -rwxr-xr-x | Master/tlpkg/bin/ctan2tl | 2 | ||||
| -rwxr-xr-x | Master/tlpkg/bin/tlpkg-ctan-check | 41 |
2 files changed, 21 insertions, 22 deletions
diff --git a/Master/tlpkg/bin/ctan2tl b/Master/tlpkg/bin/ctan2tl index 983d2369093..d8c2f7affec 100755 --- a/Master/tlpkg/bin/ctan2tl +++ b/Master/tlpkg/bin/ctan2tl @@ -105,7 +105,7 @@ ctan2tds --ctan-dir=$ctan_dir1 $pkg || exit 1 cd $cooked || exit 1 printf "\n\f cooked\n" -rm -f $pkg/texmf*/TDS_READY # remove sentinel file +find $pkg -name TDS_READY -exec rm '{}' \; # remove sentinel file find -depth -type d | xargs rmdir 2>/dev/null # remove empty directories find $pkg \! -type d -printf "%TY%Tm%Td.%TH%TM %p\n" | sort -k2 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; |