summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/scripts
diff options
context:
space:
mode:
authorNorbert Preining <preining@logic.at>2018-08-31 04:03:37 +0000
committerNorbert Preining <preining@logic.at>2018-08-31 04:03:37 +0000
commit92d26190ffbe8717f810b25f832074735aaf8ba4 (patch)
treed03f7ebe4ed78039853bfe154364e3bdf4b23ff4 /Master/texmf-dist/scripts
parent6932d0a2cd30904e3502d9893f7014958a762f26 (diff)
tlmgr: report catalogue-contact in text/csv/json mode
git-svn-id: svn://tug.org/texlive/trunk@48522 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/scripts')
-rwxr-xr-xMaster/texmf-dist/scripts/texlive/tlmgr.pl14
1 files changed, 13 insertions, 1 deletions
diff --git a/Master/texmf-dist/scripts/texlive/tlmgr.pl b/Master/texmf-dist/scripts/texlive/tlmgr.pl
index b88b057111e..9f31e43cbc0 100755
--- a/Master/texmf-dist/scripts/texlive/tlmgr.pl
+++ b/Master/texmf-dist/scripts/texlive/tlmgr.pl
@@ -1575,7 +1575,7 @@ sub action_info {
my $load_remote = 0;
for my $d (@datafields) {
$load_remote = 1 if ($d eq "remoterev");
- if ($d !~ m/name|category|localrev|remoterev|shortdesc|longdesc|size|installed|relocatable|depends|cat-version|cat-date|cat-license/) {
+ if ($d !~ m/^(name|category|localrev|remoterev|shortdesc|longdesc|size|installed|relocatable|depends|cat-version|cat-date|cat-license|cat-contact-.*)$/) {
tlwarn("unknown data field: $d\n");
return($F_ERROR);
}
@@ -3919,6 +3919,8 @@ sub show_one_package_csv {
push @out, ($tlp->cataloguedata->{'date'} || "");
} elsif ($d eq "cat-license") {
push @out, ($tlp->cataloguedata->{'license'} || "");
+ } elsif ($d =~ m/^cat-(contact-.*)$/) {
+ push @out, ($tlp->cataloguedata->{$1} || "");
} elsif ($d eq "localrev") {
push @out, ($is_installed ? $loctlp->revision : 0);
} elsif ($d eq "remoterev") {
@@ -4117,6 +4119,10 @@ sub show_one_package_detail {
}
}
}
+ # {
+ # require Data::Dumper;
+ # print Data::Dumper->Dump([\$tlp], [qw(tlp)]);
+ # }
# some packages might depend on other packages, so do not
# include arbitrary packages in the list of collections, but
# only collections:
@@ -4190,6 +4196,12 @@ sub show_one_package_detail {
if $tlp->cataloguedata->{'topics'};
print "cat-related: ", $tlp->cataloguedata->{'also'}, "\n"
if $tlp->cataloguedata->{'also'};
+ # print all the contact-* keys
+ for my $k (keys %{$tlp->cataloguedata}) {
+ if ($k =~ m/^contact-/) {
+ print "cat-$k: ", $tlp->cataloguedata->{$k}, "\n";
+ }
+ }
print "collection: ", @colls, "\n" if (@colls);
if ($opts{"list"}) {
if ($tlp->category eq "Collection" || $tlp->category eq "Scheme") {