texlive[45190] Master/texmf-dist/scripts/texlive/tlmgr.pl: allow size

[commits+preining at tug.org]

Revision: 45190
          http://tug.org/svn/texlive?view=revision&revision=45190
Author:   preining
Date:     2017-09-01 10:01:01 +0200 (Fri, 01 Sep 2017)
Log Message:
-----------
allow size field in tlmgr info --data

Modified Paths:
--------------
    trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl

Modified: trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl
===================================================================
--- trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-09-01 01:34:26 UTC (rev 45189)
+++ trunk/Master/texmf-dist/scripts/texlive/tlmgr.pl	2017-09-01 08:01:01 UTC (rev 45190)
@@ -1408,7 +1408,7 @@
     @datafields = split(',', $opts{'data'});
     # check for correctness of data fields
     for my $d (@datafields) {
-      if ($d !~ m/name|category|localrev|remoterev|shortdesc|longdesc|installed|relocatable|cat-version|cat-date|cat-license/) {
+      if ($d !~ m/name|category|localrev|remoterev|shortdesc|longdesc|size|installed|relocatable|cat-version|cat-date|cat-license/) {
         tlwarn("unknown data field: $d\n");
         return($F_ERROR);
       }
@@ -3609,6 +3609,17 @@
       push @out, ($is_installed ? $loctlp->revision : 0);
     } elsif ($d eq "remoterev") {
       push @out, ($is_available ? $remtlp->revision : 0);
+    } elsif ($d eq "size") {
+      # tlp->*size is in 4k blocks!
+      my $srcsize = $tlp->srcsize * $TeXLive::TLConfig::BlockSize;
+      my $docsize = $tlp->docsize * $TeXLive::TLConfig::BlockSize;
+      my $runsize = $tlp->runsize * $TeXLive::TLConfig::BlockSize;
+      my $binsize = 0;
+      my $binsizes = $tlp->binsize;
+      for my $a (keys %$binsizes) { $binsize += $binsizes->{$a} ; }
+      $binsize *= $TeXLive::TLConfig::BlockSize;
+      my $totalsize = $srcsize + $docsize + $runsize + $binsize;
+      push @out, $totalsize;
     } else {
       tlwarn("$prg: unkown data field $d\n");
       return($F_WARNING);
@@ -7599,7 +7610,7 @@
 
 If the option C<--data> is given, its argument must be a comma separated
 list of field names from: C<name>, C<category>, C<localrev>, C<remoterev>,
-C<shortdesc>, C<longdesc>, C<installed>, C<relocatable>, C<cat-version>,
+C<shortdesc>, C<longdesc>, C<installed>, C<size>, C<relocatable>, C<cat-version>,
 C<cat-date>, or C<cat-licence>. In this case the requested packages' 
 information is listed in CSV format one package per line, and the
 column information is given by the C<itemN>.