#!/usr/local/bin/perl

# convert  mem --> t/memdata, t/memkeys


# Each entry in memdata should start with 2 lines of the form:
#
# 	#Name 
#	Name of member
#
# or
#
# 	#Name
#	<a href="home.page.of.member">Name of Member</a>
#
# where "#Name" 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).


$memfilename = "memdata.html";
open KEYS, ">t/memkeys";
open LIST, ">t/memdata";

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 member
			$tagtype = "name";
			$address = "$memfilename\#$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";
	}
}