open (DATA,"PAD.txt") || die ("Can't Open data File \n");
@data=<DATA>;
close DATA;

&header_response;
$x=0;
foreach $line (@data) {
	
	$x++;
	($Router, $itemgroup, $itemid, $SFC, $LogOp,  $timestamp, $ncdescription, $nccode, $operator, $comment1, $comment2)=split(/\|/,$line);
	
	if (($comment1 =~ " ") && ($comment2 =~ " ")) {
	
	print "<TR><TD>$x</TD><TD>$Router</TD><TD>$itemgroup</TD><TD>$itemid</TD><TD>$SFC</TD><TD>$LogOp</TD><TD>$timestamp</TD><TD>$ncdescription</TD><TD>$nccode</TD><TD>$operator</TD><TD>n/a</TD><TD>n/a</TD></TR> \n";
	
}

elsif (($comment1 != " ") && ($comment2 =~ " ")) {
	
print "<TR><TD>$x</TD><TD>$Router</TD><TD>$itemgroup</TD><TD>$itemid</TD><TD>$SFC</TD><TD>$LogOp</TD><TD>$timestamp</TD><TD>$ncdescription</TD><TD>$nccode</TD><TD>$operator</TD><TD>$comment1</TD><TD>n/a</TD></TR> \n";
		
}

	else  {

print "<TR><TD>$x</TD><TD>$Router</TD><TD>$itemgroup</TD><TD>$itemid</TD><TD>$SFC</TD><TD>$LogOp</TD><TD>$timestamp</TD><TD>$ncdescription</TD><TD>$nccode</TD><TD>$operator</TD><TD>$comment1</TD><TD>$comment2</TD></TR> \n";
	
}
}
&footer_response;