199
Chapter 14 — Exporting Your Mail
Converting to Mbox
Much more useful, converting to the Mbox format allows your Gmail to be
imported into most popular e-mail applications. Listing 14-2 converts your Gmail
Inbox into an Mbox-compatible file. It needs two modules, in addition to the
Utils.pm module you’ve been using for this section of the book (that, if you’ve forgotten, is found in Listing 7-4):
Ⅲ Mail::Internet: Available from http://search.cpan.org/~markov/
Ⅲ Mail::Folder::Mbox: Available from http://search.cpan.org/
~kjohnson
Listing 14-2: Convert to Mbox
use Utils;
use Mail::Internet;
use Mail::Folder::Mbox;
$gmail = login();
$inbox = new Mail::Folder(‘mbox’);
$inbox->create(‘inbox’);
$inbox->open(‘inbox’);
$messages =
$gmail->get_messages( label =>
$Mail::Webmail::Gmail::FOLDERS{“INBOX”} )
;
# simply get all messages from INBOX
foreach ( @{$messages} ) {
# and iterate through them
$message = $gmail->get_mime_email( msg => $_ );
#
retrive MIME message
@message_lines = split( /\n/, $message );
# split
it into lines
map { $_ .= “\n” } @message_lines;
# prevent joining of
lines in the body
$message_inet =
new Mail::Internet( \@message_lines )
;
# construct RFC822
compilant message
$inbox->append_message($message_inet);
# and append it
into mbox
Continued