File texlive.cron of Package texlive-filesystem

#!/bin/bash
#
# Remove pk files older than 20 days
# Remove tfm files older than 60 days
# Remove source files older than 60 days
# Remove crap
# Call texhash
#

type -f -p kpsewhich >& /dev/null || exit 0
type -f -p mktexlsr  >& /dev/null || exit 0
type -f -p find      >& /dev/null || exit 0
type -f -p xargs     >& /dev/null || exit 0
type -f -p setpriv   >& /dev/null || exit 0
type -f -p sort      >& /dev/null || exit 0
type -f -p rm        >& /dev/null || exit 0
type -f -p seq       >& /dev/null || exit 0
type -f -p getent    >& /dev/null || exit 0
test -r /etc/sysconfig/texlive && . /etc/sysconfig/texlive

OLDIFS=$IFS; IFS=':;'
VARTEXFONTS="$(kpsewhich --expand-var '$VARTEXFONTS' 2> /dev/null)"
IFS=$OLDIFS

if test "$(id -ur)" = 0
then
    groups=--init-groups
else
    groups=--keep-groups
fi

if test -n "$VARTEXFONTS" -a "$HAVE_MKTEX_MEMBERS" = yes
then
    IFS=:
    users=($(getent group mktex))
    IFS=$OLDIFS
    typeset -i i
    typeset -i u=${#users[*]}
    let u--
    for p in $VARTEXFONTS
    do
	test -d $p || continue
	for i in $(seq 3 $u)
	do
	    find -P $p \( \( -type f -and -not -type l \) -and -user ${users[$i]} \) -print0 | \
	    xargs -r -L100 -0 -- setpriv --reuid ${users[$i]} --regid mktex $groups chmod g+rw
	    find -P $p \( \( -type d -and -not -type l \) -and -user ${users[$i]} \) -print0 | \
	    xargs -r -L100 -0 -- setpriv --reuid ${users[$i]} --regid mktex $groups chmod g+rwsx
	done
    done
    unset i u
fi

if test "$CLEAR_TEXMF_FONTS" = "yes" -a -n "$VARTEXFONTS"
then
    for p in $VARTEXFONTS
    do
	test -d $p/pk		&& find -P $p/pk	\( -not -type d -and -atime +20 \) -print0
	test -d $p/tfm		&& find -P $p/tfm	\( -not -type d -and -atime +60 \) -print0
	test -d $p/source	&& find -P $p/source	\( -not -type d -and -atime +60 \) -print0
    done > >(exec -a xargs xargs -r -L100 -0 -- setpriv --reuid mktex --regid mktex $groups rm -f)
fi
if test -n "$VARTEXFONTS"
then
    for p in $VARTEXFONTS
    do
	test -d $p/pk		&& find -P $p/pk	\( -not -type d -and -not -name '*.*pk' \) -print0
	test -d $p/tfm		&& find -P $p/tfm	\( -not -type d -and -not -name '*.tfm' \) -print0
	test -d $p/source	&& find -P $p/source	\( -not -type d -and -not -name '*.mf'  \) -print0
	test -d $p		&& find -P $p		\( -not -type d -and -path '*/[^[:alnum:]]*' \) -print0
    done > >(exec -a xargs xargs -r -L100 -0 -- setpriv --reuid mktex --regid mktex $groups rm -vf)
    for p in $VARTEXFONTS
    do
	test -d $p && find -P $p -depth \( -type d -and -path '*/[^[:alnum:]]*' \) -print0
    done > >(exec -a xargs xargs -r -L100 -0 -- setpriv --reuid mktex --regid mktex $groups rm -vfr)
fi

#
# Update the ls-R's
# Note that this is done as user mktex
#
mktexlsr < /dev/null > /dev/null

#
exit 0