Correcting the enforcement date in EngageOne Vault

On Linux operating system need to run the touch command to change the date on each file.  Attached is a script to automate this process.
#!/bin/sh

pattern=\^[0-9][0-9][0-9][0-9][0-9][0-9][0-9][0-9].*\.drp

for f in $(ls * | grep ${pattern})
do
echo $f

y=`echo $f | cut -c 1-4`
m=`echo $f | cut -c 5-6`
d=`echo $f | cut -c 7-8`

# echo $y $m $d

touch -t $y$m${d}1200 $f
done

Examples:
 
[gboyle@tog1dev-tuxedo pagedata]$ ls -l *.drp
-rw-r----- 1 gboyle gboyle 9100985 Jul 8 14:22 20011111-tryme-telco-statement.drp
-rw-r----- 1 gboyle gboyle 9312810 Jul 8 14:22 20011211-tryme-telco-statement.drp
-rw-r----- 1 gboyle gboyle 9443730 Jul 8 14:22 20020111-tryme-telco-statement.drp
[gboyle@tog1dev-tuxedo pagedata]$ ~/build/trunk/Scripts/touch/vault-retouch.sh
20011111-tryme-telco-statement.drp
20011211-tryme-telco-statement.drp
20020111-tryme-telco-statement.drp
[gboyle@tog1dev-tuxedo pagedata]$ ls -l *.drp
-rw-r----- 1 gboyle gboyle 9100985 Nov 11 2001 20011111-tryme-telco-statement.drp
-rw-r----- 1 gboyle gboyle 9312810 Dec 11 2001 20011211-tryme-telco-statement.drp
-rw-r----- 1 gboyle gboyle 9443730 Jan 11 2002 20020111-tryme-telco-statement.drp
 
[gboyle@tog1dev-tuxedo info]$ cat list.20140708.csv
"File Name","File Date","Error","Profile","Resource Set","Uncompressed","Compressed","Pages"
"20020111-tryme-telco-statement.drp",2002/01/11,0,"SampleAFP","default",34903358,9443730,4095
"20011111-tryme-telco-statement.drp",2001/11/11,0,"SampleAFP","default",33690521,9100985,3972
"20011211-tryme-telco-statement.drp",2001/12/11,0,"SampleAFP","default",34448655,9312810,4049
[gboyle@tog1dev-tuxedo info]$ cat audit.20140708.csv
"Month","Total Pages","Licence"
2001/11/01,3972,"ok"
2001/12/01,4049,"ok"
2002/01/01,4095,"ok"
UPDATED:  January 3, 2020