From e106e92c7ccca608ed368f78374b5d40e0abe7b2 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Thu, 16 May 2019 10:12:50 +0000 Subject: import tlmgr repository status output git-svn-id: svn://tug.org/texlive/trunk@51140 c570f23f-e606-0410-a88d-b1316a301751 --- Master/texmf-dist/scripts/texlive/tlmgr.pl | 10 ++++++++-- 1 file changed, 8 insertions(+), 2 deletions(-) (limited to 'Master') diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl index 48ea6683d5a..45400e016f4 100755 --- a/Master/texmf-dist/scripts/texlive/tlmgr.pl +++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl @@ -4550,12 +4550,18 @@ sub action_repository { init_tlmedia_or_die(); } if (!$remotetlpdb->is_virtual) { - print "main: ", $remotetlpdb->location, ", verification status: ", $remotetlpdb->is_verified, "\n"; + my $verstat = $remotetlpdb->verification_status; + print "main ", $remotetlpdb->location, " ", + ($::machinereadable ? "$verstat " : ""), + $VerificationStatusDescription{$verstat}, "\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"; + my $verstat = $tlpdb->verification_status; + print "$t ", $tlpdb->location, " ", + ($::machinereadable ? "$verstat " : ""), + $VerificationStatusDescription{$verstat}, "\n"; } return($F_OK); } -- cgit v1.2.3