#!/usr/bin/perl
$artnum=2;
$capture=FALSE;
open(NMAPOUT, "< nmapout.txt");
open(SUMMARY, "> network1.html");
while (<NMAPOUT>){
	if ($capture eq TRUE) {
		print ARTS;
	}
	if (/Starting nmap/){
		m/(\d{4})-(\d\d)-(\d\d)/;
		$scandate=$2."/".$3."/".$1;
		print SUMMARY "<!--title=IP, Name, Article, MAC, Services-->\n";
		print SUMMARY "<!--type=Nmap Scan-->\n";
		print SUMMARY "<!--date=".$scandate."-->";
	}
	if (/Interesting/){
		#assuming IP has reverse lookup! 
		m/ports on (.*) \((\d.*)\):$/;
		
		open(ARTS, "> network".$artnum.".html");
		print ARTS "<!--title=".$2."-->\n";
		print SUMMARY $2."\t";
		print SUMMARY $1."\n";
		print ARTS "<!--type=Nmap Scan-->\n";
		print ARTS "<!--date=".$scandate."-->";
	}
	if (/ports scanned but not/){
		$capture=TRUE;	
	}
	if (/^\d*\/tcp *open *(.*)$/){
		print SUMMARY $1."\n";
	}
	if (/MAC/){
		m/Address: (.{17}) /;
			print SUMMARY $1."\nArticle: ".$artnum."\n\n---\n\n";
	}
	if (/^ *$/){
		print ARTS "\n<!--endofjournal-->";
		close ARTS;
		$artnum++;
		$capture=FALSE;
	}
		
}
print SUMMARY "\n<!--endofjournal-->";
close NMAPOUT;
close SUMMARY;