[Comm] Re: [JT] ротирование почты (was: Еще раз о скорости работы Sylpheed и Sylpheed-Claws)

[Michael Shigorin <mike@osdn.org.ua>]

[-- Attachment #1.1: Type: text/plain, Size: 1336 bytes --]

On Tue, May 24, 2005 at 12:44:31AM +0400, Владимир Гусев wrote:
> > fly:~/mail> ls archive/_alt
> > 20020518    2002-11-04  2003-04-28  2003-09-29  2004-03-29  2005-02-14
> > 2002-07-10  2002-12-08  2003-05-11  2003-10-20  2004-05-24  2005-03-03
> > 2002-07-15  2002-12-30  2003-06-11  2003-11-17  2004-06-07  2005-03-14
> > 2002-07-23  2003-01-14  2003-06-16  2003-12-08  2004-08-02  2005-03-28
> > 2002-08-01  2003-01-26  2003-06-30  2003-12-26  2004-09-09  2005-04-04
> > 2002-08-21  2003-02-01  2003-08-05  2004-01-13  2004-10-18  2005-04-11
> > 2002-09-05  2003-02-10  2003-08-20  2004-01-19  2004-11-29  2005-04-25
> > 2002-09-23  2003-03-19  2003-09-02  2004-02-01  2004-12-29  2005-05-16
> > 2002-09-30  2003-04-14  2003-09-18  2004-02-11  2005-01-25
> Вот этот момент интересует - как по дате сортируете?
> Наверняка не вручную...

Ну, скажем так, гашу mutt'ы и пинаю mailrotate.sh всё же вручную,
обычно по понедельникам раз в две-четыре недели.  Лень ещё раз
посмотреть, как бы о модификации культурно их уведомлять, 
а просто килять как-то не хочется совсем.  => no cron

Скриптик в аттаче, хоть и с изъяном -- mtime не сохраняет тот,
что был до ротирования; mutt считает, что туда ещё что-то пришло.

-- 
 ---- WBR, Michael Shigorin <mike@altlinux.ru>
  ------ Linux.Kiev http://www.linux.kiev.ua/

[-- Attachment #1.2: mailrotate.sh --]
[-- Type: text/plain, Size: 2045 bytes --]

#!/bin/sh
# A free script to rotate mail by Michael Shigorin <mike@altlinux.ru>
# v20011020

# moves $MBOXES (wildcards allowed) in $MAIL to files named after $DATEFMT in
# directories under $ARCROOT, leaving fresher than $KEEP (see also $SINCEAFTER)
# not to leave mailboxes empty.

# WARNING: BACKUP YOUR MAIL BEFORE USING! NO WARRANTIES!

MDIR="$HOME/mail"
ARCROOT="$MDIR/archive"
MBOXES="_* READ MDS"
LOG="$ARCROOT/mailrotate.log"
KEEP="7 days"	# to leave me in context
KEEPEMPTY=	# keep empty boxes? "" or non-empty string
SKIPEXIST=	# skip existing archive mbox or append to it?
MODE=644	# mktemp will 
DATEFMT="%Y-%m-%d"
SINCEAFTER=after	# ...or "since". One day difference.
MAILPS="mutt"	# egrep's regexp, i.e. (mutt|pine|sylpheed)

echo `date +$DATEFMT` >>$LOG
[ -n "`ps -u $USER | egrep " $MAILPS$"`" ] && {
	echo "$MAILPS running as $USER, exiting..." >>$LOG
	exit
} || echo "$0: starting..." >>$LOG

perl -e 'require Date::Parse; require Date::Manip' || {
	echo "ERROR: grepmail needs Date::Parse and Date::Manip to" >&2
	echo "       enable -d option (which we need)." >&2
	echo >&2
	echo "Exiting to keep your mail safe; please run" >&2
	echo "perl -MCPAN -e 'install Date::Parse' && perl -MCPAN -e 'install Date::Manip'" >&2
	echo "as root to install the needed modules!" >&2
	exit 1
}

cd "$MDIR"
for i in $MBOXES; do
	[ ! -f "$i" -o -f "$i.lock" ] && continue
	ARCDIR="$ARCROOT/$i"
	[ -d "$ARCDIR" ] || mkdir -p "$ARCDIR"
	ARCMBOX="$ARCDIR/`date -d "$KEEP ago" +$DATEFMT`"
	[ -f "$ARCMBOX" -a "$SKIPEXIST" ] && continue
	TMPFILE="`mktemp "$i.tmp-XXXXXX"`"
	grepmail -had "$SINCEAFTER $KEEP ago" "$i" >"$TMPFILE" 2>>$LOG
#	[ -f "$ARCMBOX" ] && echo "WARNING: $ARCMBOX already exists!" >>$LOG
	grepmail -vhad "$SINCEAFTER $KEEP ago" "$i" >>"$ARCMBOX" 2>>$LOG
	[ -s "$TMPFILE" -o "$KEEPEMPTY" ] && {
		mv "$TMPFILE" "$i"
		chmod $MODE "$i"
	}
	[ -s "$ARCMBOX" -o "$KEEPEMPTY" ] || rm -f "$ARCMBOX"
done

find "$MDIR/" -name '*.tmp-*' | xargs rm -rf
echo "$0: done." >>$LOG

[-- Attachment #2: Type: application/pgp-signature, Size: 189 bytes --]