#!/usr/bin/perl
# merg htlm-pages into one. Given as arg-list
$utfil = "htmlmerg.html";

if (-e "$utfil") {
	die "filen htmlmerg.html existerar redan";
    } else {
    	
    	    open (ut, ">>$utfil");
#print ut <<'End_off';
print ut "<HTML>\n";
print ut "<HEAD>\n";
print ut "<TITLE></TITLE>\n";
print ut "</HEAD>\n";
print ut "<BODY>\n";
#End_off
    }
$inhead = nej;
$infoot = nej;
$intable = nej;
while (<>) {
	if (/<HTML>/i) {
		$inhead = ja;
	}
	if (/<BODY.*?>/i) {
		s/.*?<BODY.*?>//gi;
		$inhead = nej;	
	}
	if (/<\/BODY>/i) {
		$infoot = ja;
		s/<\/BODY>.*//gi;
		print ut;
		
	}
	if (/<\/HTML>/i) {
		s/.*<\/HTML>.*$//ig;
		$infoot = nej;
	}
	
	if (/<TABLE.*?>/i) {
		$intable = ja;
	}
	if (/<\/TABLE.*?>/i) {
		$intable = nej;
		s/.*?<\/TABLE.*?>//gi;
	}
	if (($inhead eq ja) or ($infoot eq ja) or ($intable eq ja)){
	
	} else {
		print ut;
		}
}
print ut "</BODY>\n";
print ut "</HTML>\n";
close ut;
