#!/usr/bin/perl/ -w
### Grappa ###
use warnings;
use strict;
#use DBI();


my $flag = 0;
my $list = shift || 'c:\grappa\lists\list.txt';
my $output0 = shift || 'c:\grappa\output\output0.txt';
my $date = 'Date:	';
my $id = 'Message-Id: ';
my $ID = 'Message-ID: ';
my $subj = 'Spamvertised website: ';
my $from = 'From:	';
my @data = "";


open (LIST, "$list") || die "Can't Open $list";


my @list=<LIST>;
close(LIST);


foreach (@list){
	
	if(s/.*$date//){
		$data[0] = $_;
		$flag =0;
	}	
	if(s/.*$from//){
		$data[1] = $_;
		$flag =0;
	}
	if(s/.*$subj//){
		$data[2] = $_;
		$flag =0;
	}
	if(s/.*$id//){
		$data[3] = $_;
		$flag =0;
	}	
	if(s/.*$ID//){
		$data[4] = $_;
		$flag =0;
		
		open STDOUT,">>$output0"; 
		print STDOUT @data;  # This is line 49
		close STDOUT;
	
	}
}