summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2008-03-04 15:06:40 +0000
committerKarl Berry <karl@freefriends.org>2008-03-04 15:06:40 +0000
commit621311703ee3ada314ee131fa479786e3ee0c88c (patch)
treecee630260a8c19d3c5a902b2f400b8643732bc77
parent502cd9e7f80c97d7ac88f8235e668f31a7a1c7ba (diff)
stats
git-svn-id: svn://tug.org/texlive/trunk@6845 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/tlpkg/bin/tl-update-containers10
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";
}