#!/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 {
		s/^.*?>previous<.*$//i;
		s/^.*?>next<.*$//i;
		s/^.*?>\ssection.<.*$//i;
		s/\t*//g;
		s/<!.*$//gi;
		s/^.*-->//gi;
		
		s//&aring;/g;
		s//&ouml;/g;
		s//&auml;/g;
		
		s//&Aring;/g;
		s//&Auml;/g;
		s//&Ouml;/g;
		
		s/(<H\d*>).*\">(.*?)<\/A>/\1\2/gi;
		if (!/<H\d*>/) {
			s/^>(.*<\/H\d*>)/\1/gi;
		}
		s/^(.+)<A\s/\1\n<A /gi;
		s/(HREF=\").*?(#[a-zA-A0-9]*\")/\1\2/gi;
		
		print ut;
		}
}
print ut "</BODY>\n";
print ut "</HTML>\n";
close ut;
