#!/usr/bin/perl -w
### sting ###

### Table Setup ###
# CREATE TABLE subject_info 
# (id int not null auto_increment, plaintif varchar(100) not null, subject longtext not null, 
# date varchar(50) not null, primary key (id));

use warnings;					
use strict;
use DBI;


			#file variables and flags#
my $flag = '0';
my $spamcop_email = shift || 'c:\frodo\mail\spamcop_email.txt';
my $text_output = shift || 'c:\frodo\output\text_output.txt';

			#regex parameters and variables#
my $from = 'From:	';
my $full_subject = 'Subject:	';
my $date = 'Date:	';
my @buffer = ('','');
			#initialize arrays#
open (SCEMAIL, "$spamcop_email") || die "Can't open $spamcop_email";
my @spamcop_email_array=<SCEMAIL>;
close (SCEMAIL);

open (TEXTOUT,  ">$text_output") || die "Can't open $text_output";
			
			#loop and fill @buffer#
foreach (@spamcop_email_array){
	if(s/.*$from//){
		$buffer[0] = $_;
		$flag = 0;
		}
	if(s/.*$full_subject//){
		$buffer[1] = $_;
		$flag = 0;
		}
	if(s/.*$date//){
		$buffer[2] = $_;
		$flag = 0;
		print TEXTOUT @buffer;
		}
	}
	
close TEXTOUT;

			#DBI Connect and Insertion#
		my $dbh = DBI->connect("DBI:mysql:database=SpamCopBot; host=localhost",
					"amearse", "tttttt", {'RaiseError' => 1});
		my $sth =$dbh->prepare("INSERT INTO subject_info (plaintif, subject, date) VALUES ('$buffer[0]', '$buffer[1]', '$buffer[2]')");
			$sth->execute();
			$sth->finish();
$dbh->disconnect();

##</code><code>##

52387348@reports.spamcop.net
Wednesday, January 02, 2002  10:52 PM
52432604@reports.spamcop.net
[SpamCop (http://web1.customoffers.com/unsubscribe.asp?emid=1008&email=x) id:52387348] 4HourWireless Special of the Month - Signal Booster
Wednesday, January 02, 2002  11:28 PM
52496384@reports.spamcop.net
[SpamCop (http://web1.customoffers.com/unsubscribe.asp?emid=1008&email=x) id:52432604] 4HourWireless Special of the Month - Signal Booster
Thursday, January 03, 2002  12:20 AM
52553913@reports.spamcop.net
[SpamCop (http://web1.customoffers.com/unsubscribe.asp?emid=1009&email=x) id:52496384] AWARD CONFIRMATION
Thursday, January 03, 2002  01:04 AM

##</code><code>##

| id | plaintif | subject | date |

|  6 | 52531044@reports.spamcop.net
 | [SpamCop (http://web1.customoffers.com/unsubscribe.asp?emid=1032&email=x) id:52531044] Membership
 Confirmation for G G
 | Thursday, January 03, 2002  12:48 AM |