-----Original Message-----
From: awarsd [mailto:[EMAIL PROTECTED]
Sent: Thursday, July 31, 2003 6:54 PM
To: [EMAIL PROTECTED]
Subject: Name msg from Mime::Parser
Hi,
I finally got what i wanted. Anyways I would like to know how does
Mime::Parser decides of the name of the folder
here is my code (it is rough)
open(CURRMSG,">c:\\message.msg");
$pop3->get($msg_id, \*CURRMSG);
close CURRMSG;
$parser = new MIME::Parser;
$parser->output_under("C:\\mail\\pop3\\info");
$parser->output_prefix("$msg_id");
open(CURRMSG, "C:\\message.msg") or die "Cannot open message: $!\n";
my $ent = $parser->parse(\*CURRMSG);
close CURRMSG;
if ($ent->effective_type eq "multipart/alternative" and $ent->parts == 2 and
$ent->parts(0)->effective_type eq "text/plain" and
$ent->parts(1)->effective_type eq "text/html") {
my $newent = MIME::Entity->build(Data =>
$ent->parts(0)->body_as_string . "\n\n[[HTML alternate version
deleted]]\n");
$ent->parts([$newent]);
$ent->make_singlepart;
$ent->sync_headers(Length => 'COMPUTE', Nonstandard => 'ERASE');
}
$ent->print;
as above I put the mails files in
$parser->output_under("C:\\mail\\pop3\\info");
I often get a file name such as
msg-1059691621-2628-4
I would like to know how mime::parser gives a name to the folder and if
there is a way to name it our way or at least get the name of the folder.
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
Hi
I know it has the process id and the message id in it, but I have not found away to
determine what the actual dir name is or how to control the naming of the dir.
Personally, I use Net::Find to get at my files. Let me know if you find out the naming
scheme of the dir.
Steve
--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
