mirror of
https://github.com/imapsync/imapsync.git
synced 2024-11-17 00:02:29 +01:00
27 lines
500 B
Plaintext
27 lines
500 B
Plaintext
|
#!/usr/bin/perl -w
|
||
|
|
|
||
|
|
use Carp;
|
||
|
|
use Mail::IMAPClient;
|
||
|
|
use IO::Socket::SSL;
|
||
|
|
|
||
|
|
my $ssl = new IO::Socket::SSL("louloutte.dyndns.org:993");
|
||
|
|
|
||
|
|
my $imap = Mail::IMAPClient->new();
|
||
|
|
$imap->Socket($ssl);
|
||
|
|
|
||
|
|
$imap->Debug(1);
|
||
|
|
$imap->Server('louloutte.dyndns.org');
|
||
|
|
$imap->connect() or croak "Error connecting @!";
|
||
|
|
$imap->User('titi@est.belle');
|
||
|
|
$imap->Password('HUwtEd');
|
||
|
|
$imap->login();
|
||
|
|
|
||
|
|
$imap->select('Inbox');
|
||
|
|
my @messages = $imap->messages();
|
||
|
|
|
||
|
|
my $headers = $imap->parse_headers([@messages]);
|
||
|
|
|
||
|
|
$imap->logout();
|
||
|
|
|
||
|
|
|