- fi;
- fi;
- if nice -n 19 offlineimap -o -u Noninteractive.Basic 2>&1 |grep validity| \
- perl -ne 'my ($account,$list) = /UID validity problem for folder ([\w-]+)\.([\w-]+)/;
- next unless defined $account and length $account;
- qx(/home/don/bin/deletemailbox -a $account $list > /dev/null);'; then
- # Clean the lists up too
- for account in bugs lists; do
- find /home/don/Mail/$account -maxdepth 1 -mindepth 1 -type d \
- -exec sh -c 'test $(find {} -type f |wc -l) -eq 0' ';' \
- -printf '%f\000'|xargs -0 -rn 1 ~/bin/deletemailbox -a $account >/dev/null 2>&1;
- find /home/don/Mail/$account -maxdepth 2 -mindepth 2 -iname 'new' \
- -type d -ctime +60 -printf '%h\n'|xargs -rn 1 basename|xargs \
- -rn 1 /home/don/bin/deletemailbox -a $account >/dev/null 2>&1;
- done;