wok-6.x view zerobin/stuff/purge.sh @ rev 24225

updated perl-io-socket-ssl (2.068 -> 2.073)
author Hans-G?nter Theisgen
date Fri Dec 31 17:41:39 2021 +0100 (2021-12-31)
parents 2eb82e8dc17d
children
line source
1 #!/bin/sh
2
3 cd $(dirname $0)
4 for i in ?? ; do
5 for j in $i/?? ; do
6 for k in $j/* ; do
7 [ -f $k ] || continue
8 grep -qs '"expire_date":' $k || continue
9 [ $(sed 's/.*"expire_date":\([0-9]*\).*/\1/' $k) -lt \
10 $(date +%s) ] && rm -rf $k*
11 done
12 rmdir $j
13 done
14 rmdir $i
15 done 2>/dev/null