#!/usr/bin/perl

use MIME::Parser;

        open LOG, ">>/home/autotasks/.procmail/inputlog";
        # Create MIME::Parser mail object
        my $mime = MIME::Parser->new;
        $mime->output_to_core(0);
        my $entity = $mime->parse(\*STDIN) or die "Parse failed\n";

        foreach my $part ($entity->parts)
        {
                my $filename = $part->head->recommended_filename;
                if ($filename eq 'overture.txt')
                {
                        my $sender = $part->head->get('From',0);
                        #save file to overture directory and log
                        printf LOG "Overture: $sender\n";
                        open OVERTURE, ">/home/autotasks/bidWatch/overture.txt";
                        printf OVERTURE $part->bodyhandle->as_string;
                        close OVERTURE;
                }
                elsif ($filename eq 'Google')
                {
                        my $sender = $part->head->get('From:',0);
                        my $filepath = "/home/autotasks/pricemonitor/$filename";
                        printf LOG "$filename: $sender$filepath\n";
#open BIDWATCH, ">$filepath";
#open BIDWATCH, ">/home/autotasks/pricemonitor/Google";
                        open (BIDWATCH, ">:crlf", $filepath);
                        printf BIDWATCH $part->bodyhandle->as_string;
                        close BIDWATCH;
                }
        }