X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~ian/git?p=chiark-utils.git;a=blobdiff_plain;f=scripts%2Fexpire-iso8601;h=76006783bbfe17f818e810cfdc9bc8a553a32c70;hp=082d33a75f61a74a8023a15bd03d50e69db214e6;hb=7261ad4423effd5105dca0d6b9537841f8218793;hpb=003f19f0413c6a96865ad785709c3bf590495fa6 diff --git a/scripts/expire-iso8601 b/scripts/expire-iso8601 index 082d33a..7600678 100755 --- a/scripts/expire-iso8601 +++ b/scripts/expire-iso8601 @@ -3,21 +3,23 @@ set -e usage () { cat <] - - [ ...] + expire-iso8601 [] x [x ...] options: - -n do not really delete - -r recursive removal (rm -r) + -u is measured in units of seconds + (default is 86400, so is in days) + -s allow kept items to be seconds shorter apart than + specified; default is 10% of + -n do not really delete + -r recursive removal (rm -r) example: - /home/ian/junk/expire-iso8601 86400 10000 1 14 7 4 - uses units of 86400s (1 day) with a slop of 10ks; + /home/ian/junk/expire-iso8601 14x1 4x7 + uses units of 86400s (1 day) with a slop of 8640 it keeps 14 daily items - (that is 14 items, dated no less than 86400-10000s apart) - and 7 weekly items - (that is 7 items, dated no less than 7*86400-10000s apart) + (that is 14 items, dated no less than 86400-8640 apart) + and 4 weekly items + (that is 4 items, dated no less than 7*86400-8640 apart) the 14 daily and 7 weekly items may be the same, or not - There is no need to sort the list of interval/number pairs. + There is no need to sort the list of x pairs. exit status: 0 ok 4 rm failed @@ -26,12 +28,40 @@ exit status: END } +# Copyright 2006 Ian Jackson +# +# This script and its documentation (if any) are free software; you +# can redistribute it and/or modify them under the terms of the GNU +# General Public License as published by the Free Software Foundation; +# either version 3, or (at your option) any later version. +# +# chiark-named-conf and its manpage are distributed in the hope that +# it will be useful, but WITHOUT ANY WARRANTY; without even the +# implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR +# PURPOSE. See the GNU General Public License for more details. +# +# You should have received a copy of the GNU General Public License along +# with this program; if not, consult the Free Software Foundation's +# website at www.fsf.org, or the GNU Project website at www.gnu.org. + + trap 'exit 16' 0 badusage () { echo >&2 "bad usage: $*"; usage >&2; trap '' 0; exit 8; } #-------------------- argument parsing -------------------- +alldigits () { + [ "x${2##*[^0-9]}" = "x$2" ] || \ + badusage "bad $1 \`$2'; must be all digits" + [ "$2" ] || badusage "bad $2; must be nonempty" + eval $1='$2' +} + rm=rm +recurse='' +unit=86400 +slop='' + while [ $# -ge 1 ]; do arg=$1; shift case "$arg" in @@ -39,9 +69,12 @@ while [ $# -ge 1 ]; do --help) usage; exit 0 ;; --*) badusage "unknown option $arg" ;; -*) + val=${arg#-?} case "$arg" in -n*) rm=: ;; -r*) recurse=-r ;; + -u*) alldigits unit "$val"; arg='' ;; + -s*) alldigits slop "$val"; arg='' ;; *) badusage "unknown option ${1:0:2}" ;; esac arg=-${arg#-?} @@ -51,24 +84,13 @@ while [ $# -ge 1 ]; do esac done -[ $# -ge 4 ] || badusage 'too few arguments' - -unit=$1 -slop=$2 -shift;shift +[ $# -ge 1 ] || badusage 'too few arguments' +[ "$slop" ] || slop=$(( $unit / 10 )) -[ $(($# % 2)) = 0 ] || badusage 'odd keep arguments (need min/extent pairs)' -argl="$*" - -alldigits () { - [ "x${1##*[^0-9]}" = "x$1" ] || badusage "$2 must be all digits" - [ x$1 ] || badusage "$2 must be nonempty" -} - -while [ $# -gt 0 ]; do - min=$1; shift; extent=$1; shift - alldigits $min min - alldigits $extent extent +for ni in "$@"; do + case "$ni" in *x*);; *) badusage "bad x $ni";; esac + alldigits number "${ni%%x*}" + alldigits interval "${ni#*x}" done #-------------------- scanning the directory ---------- @@ -101,7 +123,8 @@ done # We process each minimum/extent pair, to have it select a bunch of # versions to keep. We annotate entries in $l: if we are keeping -# an entry we prepend a colon. +# an entry we prepend a colon; temporarily, if we are keeping an entry +# because of this particular minimum/extent, we prepend a comma. # For each minimum/extent pair we look at the list from most recent # to least recent, @@ -117,30 +140,50 @@ $l END ) -set $argl -while [ $# != 0 ]; do - min=$(( $1 * $unit - $slop )) - wantcount=$2 +for ni in "$@"; do + wantcount=${ni%x*} + + div=1 + + while true; do + min=$(( (${ni#*x} * $unit) / $div - $slop )) + + ls='' + lnew='' + skipped=0 + for ce in $l; do + cn=${ce#*/}; cl=${ce%%/*} + cs=${cl#,}; cs=${cs#:} + case $cl in ,*) ls=$cs; continue;; esac + if [ $wantcount != 0 ]; then + if ! [ "$ls" ] || \ + [ $(( $ls - $cs )) -ge $min ]; then + echo "keep (for $ni) $cn" + ce=,$ce + ls=$cs + wantcount=$(( $wantcount - 1 )) + else + skipped=$(( $skipped+1 )) + fi + fi + lnew="$lnew $ce" + done + l=$lnew + + if [ $wantcount = 0 ]; then break; fi + printf "%s" "insufficient (for $ni) by $wantcount" + if [ $skipped = 0 ]; then echo; break; fi + div=$(( $div * 2 )) + echo " shortening interval ${div}x" + done - ls='' + # s/([,:]+).*/:\1/g lnew='' for ce in $l; do - cn=${ce#*/}; cl=${ce%%/*}; cs=${cl#:} - if [ $wantcount != 0 ]; then - if ! [ "$ls" ] || \ - [ $(( $ls - $cs )) -ge $min ]; then - echo "keep (for $1 $2) $cn" - ls=$cs - ce=:$cs/$cn - wantcount=$(( $wantcount - 1 )) - fi - fi + case $ce in ,*) ce=:${ce#,};; esac + case $ce in ::*) ce=${ce#:};; esac lnew="$lnew $ce" done - if [ $wantcount != 0 ];then - echo "insufficient (for $1 $2) by $wantcount" - fi - shift;shift l=$lnew done @@ -161,7 +204,7 @@ for ce in $l; do *) cn=${ce#*/} nonbroken_echo "expire $cn" - echo $rm $recurse -- $cn & + $rm $recurse -- $cn & jobs="$jobs $!" ;; esac