#!/usr/local/bin/perl

# convert  lab --> t/labdata, t/labkeys


# Each entry in labdata should start with 2 lines of the form:
#
# 	#KEY 
#	Name of Lab
#
# or
#
# 	#KEY
#	<a href="web.server.of.lab">Name of Lab</a>
#
# where "#KEY" is a unique identifier, starting with a '#'.  In the second case, the URL 
# must be on a single line (use canon.pl to merge lines).


$labfilename = "labdata.html";
open KEYS, ">t/labkeys";
open LIST, ">t/labdata";

while(<>) {
	chop;	
	($key) = /^\s*\#(\w+)\s*$/;
	
	if ($key) {
		$_=<>;	# read next line
		chop;
	
		($tagtype, $address, $name) = /^\s*<a\s*(\w+)\s*=\s*"(.+)"\s*>(.+)<.+/;

		if ($tagtype & $address & $name) {		# is URL
			if ($tagtype ne "href") {
				print STDERR "unexpected tag type: >$tagtype<\n"; exit(1);
			}
			print LIST "<br>\n\n<hr><a href=\"$address\">$name</a>\n";
		} else {	# name of lab
			$tagtype = "name";
			$address = "$labfilename\#$key";
			$name = $_;
			print LIST "<br>\n\n<hr><a name=\"$key\">$name</a>\n";
		}
		print KEYS "\#\#$key <a href=\"$address\">$name</a>\n";

	} else {  # ordinary data line
		
		print LIST "<br>$_\n";
	}
}