#!/usr/bin/perl -w

# gets most of the crap out

$dir = "./";
opendir( DIR, $dir ) or die "CANNOT OPEN \'$dir\'\n";
rewinddir( DIR );

$inputfile = "emails-text";
open( EMAILS, $inputfile ) or die "CANNOT OPEN \'$inputfile\'\n";
open( OFILE, ">>bowen" ) or die "CANNOT OPEN OR WRITE TO \'bowen\'\n";

$mine = 0;
$msg = 0;
while( $line = <EMAILS> )
{ 
    # chomp( $line );
    if( $line =~ /^From / ) { $msg = 0; }
    elsif( $line =~ /^Received:/ ) { $msg = 0; }
    elsif( $line =~ /^SMTP/ ) { $msg = 0; }
    elsif( $line =~ /^X-Sender:/ ) { $msg = 0; }
    elsif( $line =~ /^X-X-Sender:/ ) { $msg = 0; }
    elsif( $line =~ /^To:/ ) { $msg = 0; }
    elsif( $line =~ /^Cc:/ ) { $msg = 0; }
    elsif( $line =~ /^cc:/ ) { $msg = 0; }
    elsif( $line =~ /^Subject:/ ) { $msg = 0; }
    elsif( $line =~ /^In-Reply-To:/ ) { $msg = 0; }
    elsif( $line =~ /^Message-ID:/ ) { $msg = 0; }
    elsif( $line =~ /^Message-Id:/ ) { $msg = 0; }
    elsif( $line =~ /^References:/ ) { $msg = 0; }
    elsif( $line =~ /^Date:/ ) { $msg = 0; }
    elsif( $line =~ /^Sent:/ ) { $msg = 0; }
    elsif( $line =~ /^MIME-Version:/ ) { $msg = 0; }
    elsif( $line =~ /^Mime-Version:/ ) { $msg = 0; }
    elsif( $line =~ /^Content-Type:/ ) { $msg = 0; }
    elsif( $line =~ /^Status:/ ) { $msg = 0; }
    elsif( $line =~ /^X-Status:/ ) { $msg = 0; }
    elsif( $line =~ /^X-Keywords:/ ) { $msg = 0; }
    elsif( $line =~ /^X-UID:/ ) { $msg = 0; }
    elsif( $line =~ /^X-UIDL:/ ) { $msg = 0; }
    elsif( $line =~ /^X-Authentication-Warning:/ ) { $msg = 0; }
    elsif( $line =~ /^Content-Transfer-Encoding:/ ) { $msg = 0; }
    elsif( $line =~ /^Content-ID:/ ) { $msg = 0; }
    elsif( $line =~ /^Content-Description:/ ) { $msg = 0; }
    elsif( $line =~ /^Content-Disposition:/ ) { $msg = 0; }
    elsif( $line =~ /^--/ ) { $msg = 0; }
    elsif( $line =~ /^>/ ) { $msg = 0; }
    elsif( $line =~ /by cs.toronto.edu/ ) { $msg = 0; }
    elsif( $line =~ /\(EDT\)$/ ) { $msg = 0; }
    elsif( $line =~ /\(PDT\)$/ ) { $msg = 0; }
    elsif( $line =~ /-0400/ ) { $msg = 0; }
    elsif( $line =~ /-0700/ ) { $msg = 0; }
    elsif( $line =~ /by epoch.cs/ ) { $msg = 0; }
    elsif( $line =~ /with ESMTP/ ) { $msg = 0; }
    elsif( $line =~ /written:$/ ) { $msg = 0; }
    elsif( $line =~ /wrote:$/ ) { $msg = 0; }
    elsif( $line =~ /This message is in MIME format/ ) { $msg = 0; }
    elsif( $line =~ /unreadable without MIME-aware tools/ ) { $msg = 0; }
    elsif( $line =~ /Send mail to mime/ ) { $msg = 0; }
    elsif( $line =~ /the spirit is willing/ ) { $msg = 0; }
    elsif( $line =~ /http:/ ) { $msg = 0; }
    elsif( $line =~ /the vodka is good/ ) { $msg = 0; }
    elsif( $line =~ /^From:/ )
    {
        @a = split " ", $line;
        $name = $a[1];
        print $name . "\n";
        $msg = 0;
        if( $name =~ /bowen/ )
        { 
            $mine = 1;
        }
        else
        {
            $mine = 0;
        }
    }
    elsif( $line =~ /^bowen/ )
    {
        $msg = 0;
    }
    else
    {
        $msg = 1;
    }
    #print ":MSG=".$msg;
    #print ",MINE=".$mine;
    #print ",LINE=".$line;
    if(( $mine == 1 )&&( $msg == 1 ))
    {
        #print ":printed\n";
        print OFILE $line;
    }
}