#!/usr/bin/perl
open(IN,"alist");
open(INDEX,">intro2.html");
while(<IN>)
{
#print;
unless(/\"(\d{3,12})/) {next;}
$filenum=$1;
print "filenum=$filenum\n";
open(MSDS,"files/$filenum.html");
while(<MSDS>)


	{
if(/PRODUCT NAME/) 
		{
		print;
s/<b>PRODUCT NAME:<\/b>&nbsp; //;
chop;
$prod=$_;
print INDEX "\n<br><! $prod >";
print INDEX "<a href=/msds/mf/amoco/files/$filenum.html>Amoco Chemical --  $_</a>";
		}

	}
close(MSDS);
open(MSDS,"files/$filenum.html");
while(<MSDS>)
        {
	if(/(\d{1,7}\-\d{1,7}\-\d)/)
		{print INDEX " CAS $1 ";last}
	}


close(MSDS);
}
system "sort intro2.html > list.html";