[Mew-dist 14511] Re: b68

[Yasunari Momoi]

From: Yasunari Momoi <momo at example.com>
Subject: [Mew-dist 14510] Re: b68
Date: Thu, 12 Oct 2000 14:24:11 +0900

> ．．．そもそも，これ，どなたか使ってますか (^^;)？

こういうものに帯域を使うのもなんなんですが ;-)，エラー処理に
一部バグを見つけてしまったので，もう一度送っておきます．

-- momo
-------------- next part --------------
#!/bin/sh

MDIR=~/Maildir
MOVE="NO"

args=$(getopt d:m $*)
if [ $? != 0 ]; then
    echo "usage: incdir [-d maildir] [-m]"
    echo "    -m  move to user's mailbox directly.  (don't backup)"
    exit 1
fi
set -- $args
for i
do
    case "$i" in
    -d)
	MDIR="$2"; shift; shift
	;;
    -m)
	MOVE="YES"; shift
	;;
    --)
	shift; break
	;;
    esac
done

if [ \( ! -d $MDIR/new \) -o \( $MOVE = "NO" -a ! -d $MDIR/cur \) ]; then
    echo "can't find $MDIR."
    exit 1
fi

SEQ=$(ls -f1 | sort -n | tail -1)
if [ "$SEQ"X = ""X ]; then
    SEQ=1
else
    SEQ=$(($SEQ + 1))
fi

for f in $MDIR/new/*; do
    # sanity check
    [ ! -f $f ] && continue
    while [ -f $SEQ ]; do
	SEQ=$(($SEQ + 1))
    done

    if [ "$MOVE"X = "YES"X ]; then
	mv $f $SEQ
    else
	cp -p $f $SEQ
	mv $f $MDIR/cur/$(basename $f):2,S
    fi
    echo $SEQ
    SEQ=$(($SEQ + 1))
done

exit 0