summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts
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 /Master/texmf-dist/scripts
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
Diffstat (limited to 'Master/texmf-dist/scripts')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl15
1 files changed, 15 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);