diff options
author | Norbert Preining <preining@logic.at> | 2019-05-12 23:29:40 +0000 |
---|---|---|
committer | Norbert Preining <preining@logic.at> | 2019-05-12 23:29:40 +0000 |
commit | e29746a36f5615173b13d7deaf8ce0023e999232 (patch) | |
tree | 0ee20727e1dc496ad20c1db2a71d11138249636b /Master/texmf-dist | |
parent | c3c0059eef86ffbeef22b181f71fc7dc79437064 (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')
-rwxr-xr-x | Master/texmf-dist/scripts/texlive/tlmgr.pl | 15 |
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); |