summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2019-05-12 23:29:40 +0000
committerNorbert Preining <preining@logic.at>2019-05-12 23:29:40 +0000
commite29746a36f5615173b13d7deaf8ce0023e999232 (patch)
tree0ee20727e1dc496ad20c1db2a71d11138249636b
parentc3c0059eef86ffbeef22b181f71fc7dc79437064 (diff)
support tlmgr repository status, format will change, docs missing
git-svn-id: svn://tug.org/texlive/trunk@51110 c570f23f-e606-0410-a88d-b1316a301751
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl15
-rw-r--r--Master/tlpkg/TeXLive/TLPDB.pm6
2 files changed, 21 insertions, 0 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl
index 6d9e7528bd8..48ea6683d5a 100755
--- a/Master/texmf-dist/scripts/texlive/tlmgr.pl
+++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl
@@ -4545,6 +4545,21 @@ sub action_repository {
$localtlpdb->save;
return ($F_OK);
}
+ if ($what eq "status") {
+ if (!defined($remotetlpdb)) {
+ init_tlmedia_or_die();
+ }
+ if (!$remotetlpdb->is_virtual) {
+ print "main: ", $remotetlpdb->location, ", verification status: ", $remotetlpdb->is_verified, "\n";
+ return ($F_OK);
+ } else {
+ for my $t ($remotetlpdb->virtual_get_tags()) {
+ my $tlpdb = $remotetlpdb->virtual_get_tlpdb($t);
+ print "$t: ", $tlpdb->location, ", verification status: ", $tlpdb->is_verified, "\n";
+ }
+ return($F_OK);
+ }
+ }
# we are still here, unknown command to repository
tlwarn("$prg: unknown subaction for tlmgr repository: $what\n");
return ($F_ERROR);
diff --git a/Master/tlpkg/TeXLive/TLPDB.pm b/Master/tlpkg/TeXLive/TLPDB.pm
index 4b41110bbdb..902f8e7586f 100644
--- a/Master/tlpkg/TeXLive/TLPDB.pm
+++ b/Master/tlpkg/TeXLive/TLPDB.pm
@@ -79,6 +79,7 @@ C<TeXLive::TLPDB> -- A database of TeX Live Packages
$tlpdb->is_virtual;
$tlpdb->virtual_add_tlpdb($tlpdb, $tag);
$tlpdb->virtual_remove_tlpdb($tag);
+ $tlpdb->virtual_get_tags();
$tlpdb->virtual_get_tlpdb($tag);
$tlpdb->virtual_get_package($pkg, $tag);
$tlpdb->candidates($pkg);
@@ -2561,6 +2562,11 @@ sub make_virtual {
return 1;
}
+sub virtual_get_tags {
+ my $self = shift;
+ return keys %{$self->{'tlpdbs'}};
+}
+
sub virtual_get_tlpdb {
my ($self, $tag) = @_;
if (!$self->is_virtual) {