Subversion-Projekte lars-tiefland.content-management

<?php

    /**
     * @package   Content-management
     * @author    Lars Tiefland <tiefland@weban.de>
     * @copyright 2009 Webagentur Niewerth
     * @license   propietary http://www.weban.de
     * @version   $Rev: 2815 $
     * @filesource
     * 
     */

    /**
     * 
     * @package   Content-management
     * @author    Lars Tiefland <tiefland@weban.de>
     * @copyright 2009 Webagentur Niewerth
     */

    // SVN: $Id: del_mails.php 2815 2010-07-28 12:37:26Z niewerth $

    $mbox = imap_open( "{mail.mediaran.de:143/imap/novalidate-cert}",
        "rs@mediaran.de", "EW-ad-1055" );

    $headers = imap_headers( $mbox );

    $m_deleted = 0;

    $now = time();
    
    if ( $headers == false )
    {
        echo "Abruf fehlgeschlagen<br />\n";
    }
    else
    {
        foreach ( $headers as $n => $val )
        {
            $head = imap_header( $mbox, $n + 1 );
            $date = strtotime( $head->Date );
            $diff = $now - $date;
            if ( $diff > 86400 )
            {
                imap_delete( $mbox, $n + 1 );
                $m_deleted += 1;
            }
        }
        if ( $m_deleted )
        {
            imap_expunge( $mbox );
        }
    }
    echo "$m_deleted E-Mails gelöscht<br>";
    imap_close( $mbox );
?>