The incoming mailbox or reply to mailbox is an exchange mailbox.  Can I even use perl 
if it's coming through an exchange box?

Joon

-----Original Message-----
From: Rob Dixon [mailto:[EMAIL PROTECTED]
Sent: Wednesday, July 30, 2003 11:20 AM
To: [EMAIL PROTECTED]
Subject: Re: stipping away text below -----Original Message-----


Joon Hahn wrote:
> Hello all,
>
> I was wondering if somebody out there had a perl script that would delete everything 
> below
>
> -----Original Message-----
>
> in an email?  I have a workflow engine which grabs the entire body of an email an 
> updates a worklog.  The problem is it grabs the
> whole email instead of just the most recent update.  As you can see it can get very 
> messy and unusable.  Any help would be
> greatly appreciated.

It depends how your email is coming into Perl. As a filter it's simple:

  while (<>) {
    last if /\Q-----Original Message-----/;
    print;
  }

Does that help?

Rob



-- 
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


--
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to