#!/usr/local/bin/perl
@lv = `cat summary0.html`;
foreach $l (@lv) {
next unless $l =~ /--INDEX for ([a-zA-Z0-9]+)--/;
print <<EOL;
<a href="http://www.npac.syr.edu/users/gcf/$1/fullindex.html" 
target="foil" onClick="foilset(\'$1\')">$1</a>
<br>
EOL
}
