#! /bin/zsh
cd ~/Maildir
cat /dev/null > courierimapsubscribed

ls -d .*/cur(/) | perl -pe 's!/cur$!!' | sort | tail +2| while read dir; do
   echo $dir
   ls $dir/cur | perl -pe 's/:.*$//' > tmp.$$
   nlines=`wc -l < tmp.$$ | perl -pe 's/\s//g'`
   nlines2=`expr $nlines + 1`
   time=`perl -e 'print time()'`

   echo "INBOX$dir"  >> courierimapsubscribed
   echo "1 $time $nlines2"> $dir/courierimapuiddb
   cat tmp.$$ | perl -ne 'print "$. $_"' >> $dir/courierimapuiddb
   rm tmp.$$
done