#!/usr/bin/perl
# Webmaster@wickedmind.com
# 09-12-99

$FORMAT = $TITLE = '';

while (<>) {
    chop;
    
    if ($. == 1) {
	$FORMAT = $_;
	chop($TITLE = <>);
	next;
    }

    if ($FORMAT eq 'ncsa-xmosaic-hotlist-format-1') {  # You get it? 
	chop($desc = <>);

	s/ (\w+) (\w+)\s+(\d+) (\d+):(\d+):(\d+) (\d+)$//;
	$hotlist_date{$desc} = "$2 $3 $7"; # Mon Day Year
	($hotlist_url{$desc} = $_) =~ s/(^\s*)|(\s*$)//;
    } else {
	warn "$0: file \"" . $ARGV .
  	     "\" is not in a recognized hotlist format -- skipped\n";
	close(ARGV);
    }
	
    if (eof()) {
	close(ARGV);
	
	print "<H2>$TITLE</H2>\n<UL>";
	
	foreach (sort keys %hotlist_url) {
	    print "<li><a href=\"$hotlist_url{$_}\">$_</a><br>($hotlist_date{$_})\n";
	}
	print "</UL>\n";
    }
}