@attachments

• [^]Re: @attachments

  Posté par phocean (page perso, ) le 03/05/2007 à 18:47. (lien). Évalué à 2.

  Merci pour ton aide !
  
  ça m'a permit de réaliser que IMAP::Talk renvoie une structure alors que Attachment::Stripper attends une string.
  
  Par contre j'ai pas encore trouvé comment récupérer une string du coup...
  
  Voilà aussi mon code un peu nettoyé :
  
  
  #!/usr/bin/perl
  
  use strict;
  use warnings;
  
  use Data::Dumper;
  use Email::Simple;
  use Email::MIME;
  use Mail::IMAPTalk;
  use Email::MIME::Attachment::Stripper ;
  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)
  || die "Connection failed. Reason: $@";
  
  # 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};
  print "The size of the message is ".$MsgBS->{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, "body[$MsgPart]")->{$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";
  
  # 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($parts[1]);
  }
  else {
  die "This message consists of a single part.\n";
  }
  
  die "Not an regular MIME part given to stripper:\n"
  if not ref $stripper;
  
  # The extraction method itself
  my @attachments = $stripper->attachments;
  
  # Display the resulting attachments hash
  $i=0;
  foreach (@parts) {
  my $j=0;
  foreach ($parts[$i]) {
  print "hash:\n" . Dumper( $attachments[$i]->{payload}) . "\n";
  $j++;
  }
  
  
  $i++;
  }
  
  # Close the IMAP connection
  $imap->logout();
  
  # Save the attachments on the local disk
  foreach $i (@attachments)
  {
  my $file = 'test'.$i; #DUMP . @attachments->filename(1);
  open FILE, '>', $file or die $!;
  print FILE @attachments;
  close FILE;
  chmod 0644, $file;
  }
  }
  else {
  print "No new message in the mailbox\n"
  }
  

  --
  JC