MIME::Parser need help

[kokopoko]

I've written a script that should parse emails sent to it by the .forward file. Problem is, it's not working. Can anyone tell what's wrong? It doesn't even print out the "got me an email" statement. The .foward file is |directorypath/file.pl.

#!/usr/freeware/bin/perl

use MIME:arser;

my $subject1="Subject: EOS Data Gateway product request";
my $subject2="Subject: ECS Notification";
my $line;
print "got me an email\n";

my $parser=new MIME:arser;
$parser->output_under("/tmp");
$parser->output_prefix("email");
eval {my $entity=$parser->parse(\*STDIN)};
if ($@)
{
$results=$parser->results;
$decapitated=$parser->last_head;
}

 

[tviman]

Look at your error logs. If it's not printing "got me an email" then something is causing the script to hang or abort.

There's always a better way. The fun is trying to find it!

 

[MikeLacey]

try

open(LOG,'>/tmp/forward_pl.log');
print "got me an email\n";
close LOG;


Mike

"Deliver me from the bane of civilised life; teddy bear envy."

Want to get great answers to your Tek-Tips questions? Have a look at faq219-2884