Hi,

I've managed to write a little function which will parse emails grabbed via Mail::POP3Client, and it works fine (it extracts the files to a folder, within a sub-folder - i.e msg-1291891283-19924-4.

The problems I have, is:

1) I need to get a list of these files, so I can rename them with a "prefix" them with yyyymmddHHMMSS_ 2) I need to rename stuff like “B%DClen%FCt %7E .Cey.pdf” into its "real" filename, i.e “BÜlenüt ~ .Ceylan. – Test.pdf”

The code is as follows:

sub process_mail {

    
    my $mesage_body = $_[0];

    # Create a new MIME::Parser object
    my $parser = new MIME::Parser;
    # Tolerant mode
    $parser->ignore_errors(1);
    # Output to a file
    $parser->output_to_core(0);
    # Output to a per message folder
    $parser->output_under("/kunden/217787_60385/onexma/archiv/Clients/
+000000");

    # Parsing the message
    my $entity = $parser->parse_data($_[0]);
    my $error = ($@ || $parser->last_error);
    if ($error) {
        print $error."<br>\n";
    } else {
        print "Attachment extracted !<br>\n";
    }
    # Delete the files containing the message content (we want only th
+e attachment)
    chdir (".");
    unlink $entity->{'ME_Parts'}[0]->{'ME_Bodyhandle'}->{'MB_Path'} ||
+ warn ("Can't delete the message body file !");
        

}
[download]

I've had a look through the `man` for MIME::Parser, and can't see anything that would do this.

Any of you guys got any ideas/pointers? :)

TIA!

Andy