#!/usr/bin/perl
opendir DIR, "files";
open LIST, ">list.html";
while($file=readdir(DIR)){#print "\n=====$file=====\n";
open IN, "files/$file";
while(<IN>)
	{
chomp;
	if(/Trade Name/) 
		{
#		print;
		s/<[^>]*>//g;
s/[^\:]*//;
s/Revision.*//;
s/MSDS.*//;
s/\://g;
s/[^\w\,\-]/ /g;		
s/^ *//;s/ *$/ /;
#print "Trade=$_\n";
$trade=$_;
			}   
	if(/Generic Name/) 
		{
#		print;
		s/<[^>]*>//g;
s/[^\:]*//;
s/Revision.*//;
s/MSDS.*//;
s/\://g;
s/[^\w\,]/ /g;		
s/^ *//;s/ *$//;
$generic=$_;
$line =  "<a href=http://www.bnzmaterials.com/msds/$file>BNZ - $trade\[$generic]</a><br>\n";
@msds{$trade}=$line;
push(@keys,$trade);
			}   
	}
}

foreach(sort(@keys)){print LIST "@msds{$_}";}