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

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