# HG changeset patch
# User Henry S. Thompson <ht@inf.ed.ac.uk>
# Date 1789584653 -3600
# Node ID bca2a490a6f4843723d16527afb06a62908eb179
# Parent  1641fdbc180912838c4fd97186a0221e06cdda08
updated

diff -r 1641fdbc1809 -r bca2a490a6f4 bin/cygclean
--- a/bin/cygclean	Tue Aug 18 15:39:39 2026 +0100
+++ b/bin/cygclean	Wed Sep 16 19:50:53 2026 +0100
@@ -5,9 +5,10 @@
 find $pat -type f -print0 | xargs -0 ls -t > ssn$me
 find -L oldMirrors/$pat -type f -print0 | xargs -0 ls -t > sso$me
 wc -l ss?$me
-cat ss?$me | while read f; do echo `basename $f`; done > ssb$me
-while read f; do echo ${f%%-[0-9]*}; done < ssb$me | sort | uniq -c | egrep -v ' 1 |setup.ini' | tr -s ' ' ' ' | cut -d ' ' -f 3 | sed 's/+/\\\\+/g' > ssp$me
-while read p; do egrep -h "/$p-[0-9]" ss?$me|tail -n +2 ; done <ssp$me | xargs -n 100 rm
-find $pat -type f -print0 | xargs -0 ls -t > snn$me
-find -L oldMirrors/$pat -type f -print0 | xargs -0 ls -t > sno$me
+cat ss?$me | while read f; do sed 's/^.*[/]//;s/.tar.\(xz\|zst\|bz2\)$//'; done > ssb$me
+while read f; do sed 's/[-._][-._0-9x]*$//'; done < ssb$me | sort | uniq -c | egrep -v ' 1 |setup.ini' | tr -s ' ' ' ' | cut -d ' ' -f 3 | sed 's/+/\\\\+/g' > ssp$me
+while read p; do egrep -h "/$p[-._][0-9]" ss?$me|tail -n +2 ; done <ssp$me | xargs -n 100 rm
+find $pat -type f | xargs ls -t > snn$me
+find -L oldMirrors/$pat -type f | xargs ls -t > sno$me
 wc -l sn?$me
+