diff options
author | Karl Berry <karl@freefriends.org> | 2008-03-04 15:06:40 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2008-03-04 15:06:40 +0000 |
commit | 621311703ee3ada314ee131fa479786e3ee0c88c (patch) | |
tree | cee630260a8c19d3c5a902b2f400b8643732bc77 /Master/tlpkg/bin/tl-update-containers | |
parent | 502cd9e7f80c97d7ac88f8235e668f31a7a1c7ba (diff) |
stats
git-svn-id: svn://tug.org/texlive/trunk@6845 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/tlpkg/bin/tl-update-containers')
-rwxr-xr-x | Master/tlpkg/bin/tl-update-containers | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/Master/tlpkg/bin/tl-update-containers b/Master/tlpkg/bin/tl-update-containers index f0bc652afd9..9aaa36c3e51 100755 --- a/Master/tlpkg/bin/tl-update-containers +++ b/Master/tlpkg/bin/tl-update-containers @@ -78,7 +78,8 @@ sub main close(TMP); } - # collect packages to be updated: + # collect packages to be updated. + my %count; my @todopacks = (); for my $pkg (@packs) { my $oldrev = 0; @@ -87,6 +88,7 @@ sub main $oldrev = $archiverevs{$pkg}; } else { tllog($::LOG_DEBUG, "$pkg is new, found no containers\n"); + $count{"new"}++; } my $tlp = $tlpdb->get_package($pkg); @@ -96,12 +98,15 @@ sub main } else { tllog($::LOG_NORMAL, "$pkg has disappeared, removing its containers\n"); `rm $opt_containerdir/$pkg.*`; + $count{"remove"}++; } if ($oldrev == $newrev) { tllog($::LOG_DEBUG, "$pkg up to date\n"); + $count{"unchanged"}++; } elsif ($oldrev < $newrev) { push @todopacks, $pkg; + $count{"update"}++ if $oldrev; } else { die "This shouldn't happen! The revision of $pkg in texlive.tlpdb" . "($newrev) is OLDER than the one in" @@ -141,7 +146,8 @@ sub main or die "open(>$opt_containerdir/texlive.pkgver) failed: $!"; $tlpdb->generate_packagelist(\*TMP); close(TMP); - print "$0: all done.\n"; + print "$0: $count{new} new, $count{remove} removed, " + . "$count{update} updated.\n"; } else { print "$0: nothing to be done.\n"; } |