Net::IMAP::Simple alle Emails als gelesen markiert - #117396 (Netzwerkprogrammierung und Netzwerke mit Perl)

cgnetspher

2008-12-23 01:11

User since
2008-12-23
1 Artikel
BenutzerIn
[default_avatar]

Hy @all

Ich habe ein kleines (grosses) Problem. Ich will mit einem Perl Script von einem IMAP Ordner alle Emails holen und diese sortieren. Soweit funktioniert alles, aber sobald ich ein Email heruntergeladen habe, wird es auf dem IMAP Server als gelesen markiert. Was kann ich tun, damit ich zwar das Email herunterladen kann, aber sein gelesen / ungelesen Status nicht geändert wird?
Eine Überlegung von mir war, dass ich vor dem holen des Emails überprüfe, ob das Email schon gelesen war oder nicht, und falls nicht, dieses Email nachträglich wieder als ungelesen markiere. Ich kriege zwar die Info ob das Email gelesen war, hab aber keinen schimmer, wie ich nun den Status des Emails ändere...

Habt ihr evtl. inputs?

Vielen Dank

Michael

CODE:

Code: (dl )

use Net::IMAP::Simple;

$server = new Net::IMAP::Simple( "SERVER.DE" );
$server->login ("USERNAME", "PASSWORT");
$number_of_messages = $server->select( "IMAP ORDNER" );

foreach $msg (1..$number_of_messages) {
	if ($server->seen( $msg )) {
		$seen = '1';
	} else {
		$seen = '0';
	}
	$lines = $server->get( $msg ); #Von hier an ist es als gelesen markiert.... :-(
	.....
}