to#!/usr/bin/perl

use strict;
use warnings;

use Data::Dumper;
use Email::Simple;
use Email::MIME;
use Mail::IMAPTalk qw(:utf8support);
use Email::MIME::Attachment::Stripper;
use Mail::Message::Attachment::Stripper;
#use Email::Store::Attachment;
use constant DUMP => '/home/jc';

my $server = '192.168.1.116';
my $imap_port = '143';
my $login = 'jc';
my $password = 'pass';


my $FolderName = 'INBOX';

print "******************\n";
print "*  MAIL EXTRACT  *\n";
print "******************\n\n";

print "Connecting to IMAP server at ".$server.":".$imap_port."...\n";

# open the imap connection using IMAP::Talk
my $imap = Mail::IMAPTalk->new(
            Server          => $server,
            Port            => $imap_port,
            Username        => $login,
            Password        => $password,
            Separator       => '.',
            RootFolder      => 'Inbox',
            CaseInsensitive => 1,
            ParseOption => 'DecodeUTF8',
            )
          || die "Connection failed. Reason: $@";

#$imap->parse_mode(ParseOption => 'DecodeUTF8');

# Select folder and get first unseen message
$imap->select($FolderName) || die $@;
my $MsgId = $imap->search('not', 'seen')->[0];

if ($MsgId) {

    # Get the enveloppe
    print "The message with ID ".$MsgId." has the following enveloppe :\n";
    my $MsgEV = $imap->fetch($MsgId, 'envelope')->{$MsgId}->{envelope};
    print "From: " . $MsgEV->{From}."\n";
    print "To: " . $MsgEV->{To}."\n";
    print "Subject: " . $MsgEV->{Subject}."\n";
    print "Sender: " . $MsgEV->{Sender}."\n";
    print "Continue ?\n";
    getc(STDIN);

    # Get the message body structure
    my $MsgBS = $imap->fetch($MsgId,'bodystructure')->{$MsgId}->{bodystructure};
    if ($MsgBS->{Size})
    	{
    		print "Size of the message :".$MsgBS->{Size}."\n";
    	}
    else
    	{
    		my $i=0;
    		my $size=0;
    		while ($MsgBS->{'MIME-Subparts'}[$i])
    			{
    				$size=$size+$MsgBS->{'MIME-Subparts'}[$i]->{Size};
    				$i++;
    			}
    		print "Size of the message :".$size." kB\n";
    	}
    print "Continue ?\n";
    getc(STDIN);

    # Find imap part number of text part of message
    my $MsgTxtHash = Mail::IMAPTalk::find_message($MsgBS);
    my $MsgPart = $MsgTxtHash->{text}->{'IMAP-Partnum'};

    # Retrieve message text body
    my $MsgTxt = $imap->fetch($MsgId, ('rfc822.size'))->{$MsgId}->{body};
    print "Full message : \n";
    print "\n<-------------------------------------->\n";
    print $MsgTxt."\n";
    print "\n<-------------------------------------->\n";
    print "Continue ?\n";
    getc(STDIN);


    # Transform the content from IMAP:Talk into a MIME object using Email:MIME
    my $parsed = Email::MIME->new($MsgTxt);
    print "Parsed content :\n". Dumper( $parsed) . "\n";
    print "Filename :".$parsed->{filename}."\n";
    print "parsed->body".$parsed->{body_raw}."\n";

    # display the MIME structure
    print "MIME structure :" . $parsed->debug_structure . "\n";
    my $parts = $parsed->parts;

    #print "Number of email parts : $parts\n";
    my @parts = $parsed->parts;

    my $i=0;
    #foreach (@parts) {
    #        print "Dumped email part $i:\n",
    #               Dumper( $parts[$i] ),
    #              "\n";
    #    $i++;
    #}

    #my $decoded = $parsed->body;
    print "body: " . Dumper( $decoded ) . "\n";

    # Give the Email MIME content to Attachment::Stripper for extraction
    my $stripper;

    if ($parts > 1) {
        $stripper = Email::MIME::Attachment::Stripper->new($MsgTxt);
        print "stripper :".$stripper."\n";
    	}
    else {
        die "This message consists of a single part.\n";
    	}

	#print "Stripper :".Dumper($stripper)."\n";
	
    die "Not an regular MIME part given to stripper:\n"
         if not ref $stripper;

    # The extraction method itself
    my @attach = $stripper->attachments;

    # Display the resulting attachments hash
    $i=0;
    foreach (@parts) {
        print "hash:\n" . Dumper( $attach[$i]->{payload}) . "\n";
    	$i++;    	
    	}
        

    # Close the IMAP connection
    $imap->logout();

	$i=0;
    # Save the attachments on the local disk
    foreach (@attach)
        {
        my $file = 'test'.$i; #DUMP . @attach->filename(1);
        open FILE, '>', $file or die $!;
        #print FILE $attach[$i];
        print FILE $stripper;
        close FILE;
        chmod 0644, $file;
        $i++;
        }
}
else {
    print "No new message in the mailbox\n"
}