#!/bin/sh
# $Id: tlpkg-by-size 50864 2019-04-08 17:04:37Z karl $
# Public domain.  Originally written 2008, Karl Berry.
# If it ever matters, we can do this right by reading tlpdb.

test $# -eq 0 && set - /home/ftp/texlive/tlnet/archive
cd "$1" || exit 1
for pkgtar in `ls *.tar.xz | egrep -v '\..*\.tar\.xz$'`; do
  pkg=`echo $pkgtar | sed 's/\.tar\.xz$//'`
  #size=`cat $pkg.*tar.xz | wc -c` # includes binaries
  #size=`cat $pkg.tar.xz $pkg.doc.tar.xz $pkg.source.tar.xz 2>/dev/null | wc -c`
  size=`expr $size / 1024`
  printf "%6d %s\n" $size "$pkg"
done | sort -nr | tee /tmp/tlpsz
