Subversion-Projekte lars-tiefland.content-management

Revision

Details | Letzte Änderung | Log anzeigen | RSS feed

Revision Autor Zeilennr. Zeile
1 lars 1 
<?php
2 
 
3 
    /**
4 
     * @package   Content-management
5 
     * @author    Lars Tiefland <tiefland@weban.de>
6 
     * @copyright 2009 Webagentur Niewerth
7 
     * @license   propietary http://www.weban.de
8 
     * @version   $Rev: 2815 $
9 
     * @filesource
10 
     *
11 
     */
12 
 
13 
    /**
14 
     *
15 
     * @package   Content-management
16 
     * @author    Lars Tiefland <tiefland@weban.de>
17 
     * @copyright 2009 Webagentur Niewerth
18 
     */
19 
 
20 
    // SVN: $Id: del_mails.php 2815 2010-07-28 12:37:26Z niewerth $
21 
 
22 
    $mbox = imap_open( "{mail.mediaran.de:143/imap/novalidate-cert}",
23 
        "rs@mediaran.de", "EW-ad-1055" );
24 
 
25 
    $headers = imap_headers( $mbox );
26 
 
27 
    $m_deleted = 0;
28 
 
29 
    $now = time();
30 
 
31 
    if ( $headers == false )
32 
    {
33 
        echo "Abruf fehlgeschlagen<br />\n";
34 
    }
35 
    else
36 
    {
37 
        foreach ( $headers as $n => $val )
38 
        {
39 
            $head = imap_header( $mbox, $n + 1 );
40 
            $date = strtotime( $head->Date );
41 
            $diff = $now - $date;
42 
            if ( $diff > 86400 )
43 
            {
44 
                imap_delete( $mbox, $n + 1 );
45 
                $m_deleted += 1;
46 
            }
47 
        }
48 
        if ( $m_deleted )
49 
        {
50 
            imap_expunge( $mbox );
51 
        }
52 
    }
53 
    echo "$m_deleted E-Mails gelöscht<br>";
54 
    imap_close( $mbox );
55 
?>