mirror of
https://github.com/imapsync/imapsync.git
synced 2025-08-05 08:21:28 +02:00
1.452
This commit is contained in:
Nick Bebout
parent
091ae4a2e5
commit
90be463820
55 changed files with 16508 additions and 129 deletions
15
W/t/01_connect
Executable file
15
W/t/01_connect
Executable file
|
|
@ -0,0 +1,15 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
use Carp;
|
||||
use Mail::IMAPClient;
|
||||
|
||||
$imap = Mail::IMAPClient->new(Debug => 1);
|
||||
$imap->Debug(1);
|
||||
$imap->Server('louloutte.dyndns.org');
|
||||
$imap->connect() or croak "Error connecting @!";
|
||||
$imap->User('MarkOv@est.belle');
|
||||
$imap->Password('emhj91ly');
|
||||
$imap->login();
|
||||
$imap->logout();
|
||||
|
||||
|
||||
16
W/t/01_connect.229.dump
Normal file
16
W/t/01_connect.229.dump
Normal file
|
|
@ -0,0 +1,16 @@
|
|||
Using Mail::IMAPClient version 2.2.9 and perl version 5.8.8 (5.008008)
|
||||
Read: * OK [CAPABILITY IMAP4rev1 UIDPLUS CHILDREN NAMESPACE THREAD=ORDEREDSUBJECT THREAD=REFERENCES SORT QUOTA AUTH=PLAIN CRAM-MD5 CRAM-SHA1 IDLE STARTTLS] Courier-IMAP ready. Copyright 1998-2005 Double Precision, Inc. See COPYING for distribution information.
|
||||
|
||||
Connect: Received this from readline: 0/OUTPUT/* OK [CAPABILITY IMAP4rev1 UIDPLUS CHILDREN NAMESPACE THREAD=ORDEREDSUBJECT THREAD=REFERENCES SORT QUOTA AUTH=PLAIN CRAM-MD5 CRAM-SHA1 IDLE STARTTLS] Courier-IMAP ready. Copyright 1998-2005 Double Precision, Inc. See COPYING for distribution information.
|
||||
|
||||
Sending: 1 Login "XXXXXXXX" XXXXXXXX
|
||||
|
||||
Sent 37 bytes
|
||||
Read: 1 OK LOGIN Ok.
|
||||
|
||||
Sending: 2 LOGOUT
|
||||
|
||||
Sent 10 bytes
|
||||
Read: * BYE Courier-IMAP server shutting down
|
||||
2 OK LOGOUT completed
|
||||
|
||||
35
W/t/02_append_string
Executable file
35
W/t/02_append_string
Executable file
|
|
@ -0,0 +1,35 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
use Carp;
|
||||
use Mail::IMAPClient;
|
||||
|
||||
$imap = Mail::IMAPClient->new();
|
||||
$imap->Debug(0);
|
||||
$imap->Server('louloutte.dyndns.org');
|
||||
$imap->connect() or croak "Error connecting $@ !";
|
||||
$imap->User('MarkOv@est.belle');
|
||||
$imap->Password('emhj91ly');
|
||||
$imap->login() or croak "Error login $@ !";
|
||||
|
||||
$imap->Uid(1) or croak "Error Uid $@ !";
|
||||
|
||||
print "[", $imap->folders, "]\n";
|
||||
|
||||
$imap->select('Inbox') or croak "Could not select: $@ !";
|
||||
my @messages = $imap->messages or croak "Could not get message list: $@ !";
|
||||
print "[@messages]\n";
|
||||
$message = $messages[1];
|
||||
print "[$message]\n";
|
||||
my $string = $imap->message_string($message);
|
||||
print $string;
|
||||
|
||||
#my $uid = $imap->append_string('INBOX.Trash', $string, '\Seen', "30-Oct-2006 01:34:14 +0100")
|
||||
# or croak "Could not append_string: $@\n";
|
||||
my $uid = $imap->append_string('INBOX.Trash', "$string", '\Seen', "")
|
||||
or croak "Could not append_string: $@\n";
|
||||
|
||||
print "$uid\n";
|
||||
|
||||
$imap->logout();
|
||||
|
||||
|
||||
53
W/t/03_message_to_file
Executable file
53
W/t/03_message_to_file
Executable file
|
|
@ -0,0 +1,53 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
use Carp;
|
||||
use Mail::IMAPClient;
|
||||
use strict;
|
||||
|
||||
my $imap1 = Mail::IMAPClient->new();
|
||||
$imap1->Debug(0);
|
||||
$imap1->Server('louloutte.dyndns.org');
|
||||
$imap1->connect() or croak "Error connecting $@ !";
|
||||
$imap1->User('MarkOv@est.belle');
|
||||
$imap1->Password('emhj91ly');
|
||||
$imap1->login() or croak "Error login $@ !";
|
||||
$imap1->Uid(1) or croak "Error Uid $@ !";
|
||||
|
||||
my $imap2 = Mail::IMAPClient->new();
|
||||
$imap2->Debug(0);
|
||||
$imap2->Server('louloutte.dyndns.org');
|
||||
$imap2->connect() or croak "Error connecting $@ !";
|
||||
$imap2->User('MarkOv@est.belle');
|
||||
$imap2->User('titi@est.belle');
|
||||
$imap2->Password('HUwtEd');
|
||||
$imap2->login() or croak "Error login $@ !";
|
||||
$imap2->Uid(1) or croak "Error Uid $@ !";
|
||||
|
||||
|
||||
|
||||
print "[", $imap1->folders, "]\n";
|
||||
|
||||
$imap1->select('Inbox') or croak "Could not select: $@ !";
|
||||
$imap2->select('Inbox') or croak "Could not select: $@ !";
|
||||
|
||||
my @msg_id_2 = $imap2->messages;
|
||||
my $msg_id_2 = $msg_id_2[1];
|
||||
my $msg_id_1 = ($imap1->messages)[0];
|
||||
print "msg_id_1: $msg_id_1\n";
|
||||
|
||||
my $string_2 = $imap2->message_string($msg_id_2);
|
||||
print $string_2;
|
||||
|
||||
my $message_file_1 = "tmp_message_to_file_${$}_1";
|
||||
my $message_file_2 = "tmp_message_to_file_${$}_2";
|
||||
unlink($message_file_1);
|
||||
unlink($message_file_2);
|
||||
|
||||
$imap2->message_to_file($message_file_2, $msg_id_2) or croak "Could not message_to_file";
|
||||
$imap1->message_to_file($message_file_1, $msg_id_1) or croak "Could not message_to_file";
|
||||
|
||||
|
||||
$imap1->logout();
|
||||
$imap2->logout();
|
||||
|
||||
|
||||
91
W/t/03_message_to_file.dump
Normal file
91
W/t/03_message_to_file.dump
Normal file
|
|
@ -0,0 +1,91 @@
|
|||
$RCSfile: imapsync,v $ $Revision: 1.244 $ $Date: 2008/02/29 22:43:22 $
|
||||
Here is a [linux] system (Linux plume 2.6.20.3 #1 Sun Mar 25 06:07:36 CEST 2007 i686)
|
||||
with perl 5.8.8 and the module Mail::IMAPClient version used here is 3.05
|
||||
Command line used :
|
||||
./imapsync --host1 localhost --user1 tata@est.belle --passfile1 /var/tmp/secret.tata --host2 localhost --user2 titi@est.belle --passfile2 /var/tmp/secret.titi --folder INBOX.Trash --syncinternaldates
|
||||
will try to use CRAM-MD5 authentication on host1
|
||||
will try to use CRAM-MD5 authentication on host2
|
||||
From imap server [localhost] port [143] user [tata@est.belle]
|
||||
To imap server [localhost] port [143] user [titi@est.belle]
|
||||
Banner : * OK [CAPABILITY IMAP4rev1 UIDPLUS CHILDREN NAMESPACE THREAD=ORDEREDSUBJECT THREAD=REFERENCES SORT QUOTA AUTH=PLAIN CRAM-MD5 CRAM-SHA1 IDLE STARTTLS] Courier-IMAP ready. Copyright 1998-2005 Double Precision, Inc. See COPYING for distribution information.
|
||||
Host localhost says it has CAPABILITY for AUTHENTICATE CRAM-MD5
|
||||
Success login on [localhost] with user [tata@est.belle] auth [CRAM-MD5]
|
||||
Banner : * OK [CAPABILITY IMAP4rev1 UIDPLUS CHILDREN NAMESPACE THREAD=ORDEREDSUBJECT THREAD=REFERENCES SORT QUOTA AUTH=PLAIN CRAM-MD5 CRAM-SHA1 IDLE STARTTLS] Courier-IMAP ready. Copyright 1998-2005 Double Precision, Inc. See COPYING for distribution information.
|
||||
Host localhost says it has CAPABILITY for AUTHENTICATE CRAM-MD5
|
||||
Success login on [localhost] with user [titi@est.belle] auth [CRAM-MD5]
|
||||
From capability : QUOTA STARTTLS NAMESPACE CRAM-SHA1 IDLE AUTH=PLAIN THREAD=ORDEREDSUBJECT SORT UIDPLUS CHILDREN CRAM-MD5 IMAP4REV1 THREAD=REFERENCES
|
||||
To capability : QUOTA STARTTLS NAMESPACE CRAM-SHA1 IDLE AUTH=PLAIN THREAD=ORDEREDSUBJECT SORT UIDPLUS CHILDREN CRAM-MD5 IMAP4REV1 THREAD=REFERENCES
|
||||
From state Authenticated
|
||||
To state Authenticated
|
||||
From separator and prefix : [.][INBOX.]
|
||||
To separator and prefix : [.][INBOX.]
|
||||
++++ Calculating sizes ++++
|
||||
From Folder [INBOX.Trash] Size: 1012 Messages: 1
|
||||
Total size: 1012
|
||||
Total messages: 1
|
||||
Time : 1 s
|
||||
++++ Calculating sizes ++++
|
||||
To Folder [INBOX.Trash] Size: 0 Messages: 0
|
||||
Total size: 0
|
||||
Total messages: 0
|
||||
Time : 0 s
|
||||
++++ Listing folders ++++
|
||||
From folders list : [INBOX.Trash]
|
||||
To folders list : [INBOX.Trash]
|
||||
++++ Looping on each folder ++++
|
||||
From Folder [INBOX.Trash]
|
||||
To Folder [INBOX.Trash]
|
||||
++++ From [INBOX.Trash] Parse 1 ++++
|
||||
++++ To [INBOX.Trash] Parse 1 ++++
|
||||
++++ Verifying [INBOX.Trash] -> [INBOX.Trash] ++++
|
||||
+ NO msg #2319 [1c8g+RBA0iMRz+/+c3pqXw:1012] in INBOX.Trash
|
||||
+ Copying msg #2319:1012 to folder INBOX.Trash
|
||||
AAAmessage_string[FCC: imap://tata%40est.belle@localhost/INBOX/Sent
|
||||
X-Identity-Key: id2
|
||||
Message-ID: <45454886.2030307@localhost>
|
||||
Date: Mon, 30 Oct 2006 01:34:14 +0100
|
||||
From: TATA <tata@localhost>
|
||||
X-Mozilla-Draft-Info: internal/draft; vcard=0; receipt=0; uuencode=0
|
||||
User-Agent: Thunderbird 1.5.0.4 (X11/20060722)
|
||||
MIME-Version: 1.0
|
||||
To: Gilles Lamiral <gilles@louloutte.dyndns.org>
|
||||
Subject: Re: test:ophaifaibequahdu
|
||||
References: <20030821153335.86EB6FCA2@louloutte.dyndns.org>
|
||||
In-Reply-To: <20030821153335.86EB6FCA2@louloutte.dyndns.org>
|
||||
Content-Type: text/html; charset=ISO-8859-1
|
||||
Content-Transfer-Encoding: 7bit
|
||||
|
||||
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
|
||||
<html>
|
||||
<head>
|
||||
<meta content="text/html;charset=ISO-8859-1" http-equiv="Content-Type">
|
||||
</head>
|
||||
<body bgcolor="#ffffff" text="#000000">
|
||||
Gilles Lamiral wrote:
|
||||
<blockquote cite="mid20030821153335.86EB6FCA2@louloutte.dyndns.org"
|
||||
type="cite">
|
||||
<pre wrap="">test:ophaifaibequahdu
|
||||
|
||||
</pre>
|
||||
</blockquote>
|
||||
<br>
|
||||
</body>
|
||||
</html>
|
||||
|
||||
]ZZZ
|
||||
AAA1[]ZZZ
|
||||
flags from : [\Seen]["30-Oct-2006 01:34:14 +0100"]
|
||||
Time : 0 s
|
||||
++++ Statistics ++++
|
||||
Time : 2 sec
|
||||
Messages transferred : 0
|
||||
Messages skipped : 0
|
||||
Total bytes transferred: 0
|
||||
Total bytes skipped : 0
|
||||
Total bytes error : 1012
|
||||
Detected 1 errors
|
||||
Please, rate imapsync at http://freshmeat.net/projects/imapsync/
|
||||
?Happy with this free, open source and gratis GPL software?
|
||||
Feel free to thank the author by giving him a book:
|
||||
http://www.amazon.com/gp/registry/wishlist/1C9UNDIH3P7R7/
|
||||
(or its paypal account gilles.lamiral@laposte.net)
|
||||
21
W/t/04_parse_headers
Executable file
21
W/t/04_parse_headers
Executable file
|
|
@ -0,0 +1,21 @@
|
|||
#!/usr/bin/perl -w
|
||||
|
||||
use Carp;
|
||||
use Mail::IMAPClient;
|
||||
|
||||
$imap = Mail::IMAPClient->new(Debug => 1);
|
||||
$imap->Debug(1);
|
||||
$imap->Server('louloutte.dyndns.org');
|
||||
$imap->connect() or croak "Error connecting @!";
|
||||
$imap->User('MarkOv@est.belle');
|
||||
$imap->Password('emhj91ly');
|
||||
$imap->login();
|
||||
|
||||
$imap->select('Inbox');
|
||||
my @messages = $imap->messages();
|
||||
|
||||
my $headers = $imap->parse_headers([@messages]);
|
||||
|
||||
$imap->logout();
|
||||
|
||||
|
||||
26
W/t/05_parse_headers_ssl
Executable file
26
W/t/05_parse_headers_ssl
Executable file
|
|
@ -0,0 +1,26 @@
|
|||
#!/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('MarkOv@est.belle');
|
||||
$imap->Password('emhj91ly');
|
||||
$imap->login();
|
||||
|
||||
$imap->select('Inbox');
|
||||
my @messages = $imap->messages();
|
||||
|
||||
my $headers = $imap->parse_headers([@messages]);
|
||||
|
||||
$imap->logout();
|
||||
|
||||
|
||||
26
W/t/06_parse_headers_ssl_titi
Executable file
26
W/t/06_parse_headers_ssl_titi
Executable file
|
|
@ -0,0 +1,26 @@
|
|||
#!/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();
|
||||
|
||||
|
||||
Loading…
Add table
Add a link
Reference in a new issue