
for mbox in \
    www789p1:cKHBAcMI:p.schmid \
    www789p2:cqzdXFor:b.schmid \
    www789p3:tu7hzlpq:m.hoefle \
    www789p4:bNHx8GRR:a.eigenthaler \
    www789p5:VrS8YLGt:info \
    www789p6:CrP1FnGu:b.beck \
    www789p7:9zgeIcf2:t.lehmann \
    www789p8:2eGwA0gJ:a.bahr \
    www789p9:DPlklNmT:j.grauschopf \
; do
    u=`echo $mbox | awk -F: '// { print $1 }'`
    p=`echo $mbox | awk -F: '// { print $2 }'`
    n=`echo $mbox | awk -F: '// { print $3 }'`
    [ -f $u.list ] || ( echo "USER $u"; sleep 1; echo "PASS $p"; sleep 1; echo "LIST"; sleep 3; echo "QUIT" ) | telnet 85.158.1.216 pop3 | cat >$u.list
    echo "---------- Mailbox von $n"
    msgs=`cat $u.list | awk '/[0-9]+ [0-9]+/ { print $1 }'`
    if [ ".$msgs" = . ]; then
        echo "... ist leer"
    else
        for m in $msgs; do
            [ -f $u.mbox.$m ] || ( echo "USER $u"; sleep 1; echo "PASS $p"; sleep 1; echo "RETR $m"; sleep 2; echo "QUIT" ) | telnet 85.158.1.216 pop3 | cat >$u.mbox.$m
            egrep -q '^Subject: .*SPAM' <$u.mbox.$m || egrep '^(From|Subject|Date): ' <$u.mbox.$m | sort
        done
    fi
    printf "\n"
done

