Bugfix.

* cleaner.in: Fix regexp for extracting week number from the filename.

1 files changed, 1 insertions, 1 deletions

diff --git a/cleaner.in b/cleaner.in
index 0a9a35f..a35b605 100755
--- a/cleaner.in
+++ b/cleaner.in
@@ -88,7 +88,7 @@ fi |
  while read name
  do 
      $verbose \# considering $name 
-     week=$(expr "$name" : '[^-][^-]*-\([0-9][0-9]*\)-.*')
+     week=$(expr "$name" : '.*-\([0-9][0-9]*\)-[0-9][0-9]*-[0-9][0-9]*.*$')
      if [ $thisweek -ge $week ]; then
 	 if [ $(expr $thisweek - $week) -gt $retainweeks ]; then
 	     $verbose \# removing $name