#! perl -w


sub WRITE_REPORT{

	my ($cat,$name) = @_;
	my $filename = "$name\_Joblog\.html";
	open(OUTPUTLOG, ">$filename") or die "Can't open up myfile: $!\n";
my $jobset = "CATCAT";	
format OUTPUTLOG=
<tr>
<td> @<<<<<< </td> <td> @* </td> <td> @* </td> <td> @* </td> <td> @* </td> 
     $a,                 $b,	      $c,	    $d,		 $e
</tr>
.

format OUTPUTLOG_TOP = 
@<<<<<<<<<<
$jobset
<table border="2">
<tr>
<th>Job</th>
<th>Status</th>
<th>Start</th>
<th>End</th>
<th>Remark</th>
</tr>
.

########## Control the lines , 3 line must be used!!
$old = select OUTPUTLOG;
$= = 200;
select $old;


	foreach (@{$cat}){
		my @temp = split(/\,/, $_);
		$a = "$temp[0]";
		$b = "$temp[1]";
		$c = "$temp[2]";
		$d = "$temp[3]";
		$e = "$temp[4]";

		write OUTPUTLOG;
	}

close(OUTPUTLOG);
}


my (@x, @y) = ();

while(<DATA>){
	if(/^AA/){
		push (@x, $_)
	}elsif(/^BB/){
		push(@y, $_);
	}
	

}

WRITE_REPORT(\@x, "AA");
WRITE_REPORT(\@y, "BB");



close(DATA)
	


__DATA__
AA,data1,NORMAL,12/08/2008 16:00:31,12/08/2008 16:00:33,
AA,data5,NORMAL,13/08/2008 16:00:31,20/08/2008 16:00:33,
AA,data4,NORMAL,14/08/2008 16:00:31,32/08/2008 16:00:33,
AA,data3,NORMAL,15/08/2008 16:00:31,42/08/2008 16:00:33,
AA,data2,NORMAL,16/08/2008 16:00:31,52/08/2008 16:00:33,
AA,data5,NORMAL,13/08/2008 16:00:31,20/08/2008 16:00:33,
AA,data4,NORMAL,14/08/2008 16:00:31,32/08/2008 16:00:33,
AA,data3,NORMAL,15/08/2008 16:00:31,42/08/2008 16:00:33,
AA,data2,NORMAL,16/08/2008 16:00:31,52/08/2008 16:00:33,
AA,data2,NORMAL,16/08/2008 16:00:31,52/08/2008 16:00:33,
BB,data1,NORMAL,12/08/2008 16:00:31,12/08/2008 16:00:33,
BB,data5,NORMAL,13/08/2008 16:00:31,20/08/2008 16:00:33,
BB,data4,NORMAL,14/08/2008 16:00:31,32/08/2008 16:00:33,
BB,data3,NORMAL,15/08/2008 16:00:31,42/08/2008 16:00:33,
AA,data2,NORMAL,16/08/2008 16:00:31,52/08/2008 16:00:33,
BB,data1,NORMAL,12/08/2008 16:00:31,12/08/2008 16:00:33,
BB,data5,NORMAL,13/08/2008 16:00:31,20/08/2008 16:00:33,
BB,data4,NORMAL,14/08/2008 16:00:31,32/08/2008 16:00:33,
BB,data3,NORMAL,15/08/2008 16:00:31,42/08/2008 16:00:33,
AA,data2,NORMAL,16/08/2008 16:00:31,52/08/2008 16:00:33,
BB,data1,NORMAL,12/08/2008 16:00:31,12/08/2008 16:00:33,
BB,data5,NORMAL,13/08/2008 16:00:31,20/08/2008 16:00:33,
BB,data4,NORMAL,14/08/2008 16:00:31,32/08/2008 16:00:33,
BB,data3,NORMAL,15/08/2008 16:00:31,42/08/2008 16:00:33,
AA,data2,NORMAL,16/08/2008 16:00:31,52/08/2008 16:00:33,
BB,data1,NORMAL,12/08/2008 16:00:31,12/08/2008 16:00:33,
BB,data5,NORMAL,13/08/2008 16:00:31,20/08/2008 16:00:33,
BB,data4,NORMAL,14/08/2008 16:00:31,32/08/2008 16:00:33,
BB,data3,NORMAL,15/08/2008 16:00:31,42/08/2008 16:00:33,
AA,data5,NORMAL,13/08/2008 16:00:31,20/08/2008 16:00:33,
AA,data2,NORMAL,16/08/2008 16:00:31,52/08/2008 16:00:33,
BB,data1,NORMAL,12/08/2008 16:00:31,12/08/2008 16:00:33,
BB,data5,NORMAL,13/08/2008 16:00:31,20/08/2008 16:00:33,
BB,data4,NORMAL,14/08/2008 16:00:31,32/08/2008 16:00:33,
BB,data3,NORMAL,15/08/2008 16:00:31,42/08/2008 16:00:33,
AA,data2,NORMAL,16/08/2008 16:00:31,52/08/2008 16:00:33,
BB,data1,NORMAL,12/08/2008 16:00:31,12/08/2008 16:00:33,
BB,data5,NORMAL,13/08/2008 16:00:31,20/08/2008 16:00:33,
BB,data4,NORMAL,14/08/2008 16:00:31,32/08/2008 16:00:33,
BB,data3,NORMAL,15/08/2008 16:00:31,42/08/2008 16:00:33,
AA,data4,NORMAL,14/08/2008 16:00:31,32/08/2008 16:00:33,
AA,data2,NORMAL,16/08/2008 16:00:31,52/08/2008 16:00:33,
BB,data1,NORMAL,12/08/2008 16:00:31,12/08/2008 16:00:33,
BB,data5,NORMAL,13/08/2008 16:00:31,20/08/2008 16:00:33,
BB,data4,NORMAL,14/08/2008 16:00:31,32/08/2008 16:00:33,
BB,data3,NORMAL,15/08/2008 16:00:31,42/08/2008 16:00:33,
AA,data2,NORMAL,16/08/2008 16:00:31,52/08/2008 16:00:33,
BB,data1,NORMAL,12/08/2008 16:00:31,12/08/2008 16:00:33,
BB,data5,NORMAL,13/08/2008 16:00:31,20/08/2008 16:00:33,
BB,data4,NORMAL,14/08/2008 16:00:31,32/08/2008 16:00:33,
BB,data3,NORMAL,15/08/2008 16:00:31,42/08/2008 16:00:33,
AA,data3,NORMAL,15/08/2008 16:00:31,42/08/2008 16:00:33,
AA,data2,NORMAL,16/08/2008 16:00:31,52/08/2008 16:00:33,
AA,data5,NORMAL,13/08/2008 16:00:31,20/08/2008 16:00:33,
AA,data4,NORMAL,14/08/2008 16:00:31,32/08/2008 16:00:33,
AA,data3,NORMAL,15/08/2008 16:00:31,42/08/2008 16:00:33,
AA,data2,NORMAL,16/08/2008 16:00:31,52/08/2008 16:00:33,
BB,data1,NORMAL,12/08/2008 16:00:31,12/08/2008 16:00:33,
BB,data5,NORMAL,13/08/2008 16:00:31,20/08/2008 16:00:33,
BB,data4,NORMAL,14/08/2008 16:00:31,32/08/2008 16:00:33,
BB,data3,NORMAL,15/08/2008 16:00:31,42/08/2008 16:00:33,
BB,data2,NORMAL,16/08/2008 16:00:31,52/08/2008 16:00:33,