#!/usr/bin/perl
open(TEMP,">temp");
opendir(DIR,"files");
while($file=readdir(DIR))
{
#print "\n=======\n$file";
unless($file =~ /TXT/){next;}
open(IN,"files/$file");
while(<IN>)
	{
	if(/Page 02 of/){last;}
	if(/Product Name\:\ *(.*)/)
		{
#		print;
		$prod=$1;
                $prod =~ s/Loctite//;
                $prod =~ s/LOCTITE//;
                $prod =~ s/\(R\)//;
                $prod =~ s/\(TM\)//;
                $prod =~ s/^\ *//;
#		$prod =~ s/(^\d{1,5}[^ ]*)\ *(.*)/$2 $1/;
#		$prod =~ s/(^\d{1,5}[^ ]*)\ *(.*)/$2 $1/;
$prod =~ s/(^\d{1,5}[^ ]*)\ *(.*)/$2/;
$prod =~ s/(^\d{1,5}[^ ]*)\ *(.*)/$2/;
$prod =~ s/\ *$//;
		$prod="Loctite $prod";  
#		print "\n$prod";
		}
 	if(/Item No\.\:\ *(\d*)/)
		{$item=$1;
		#print " $item";
		}

#	if(/Part No\.\:\ *(.*)/)
#		{$part=$1;print " Part $part";}

	}
#$line="\n$prod $item<9999><a href=$file>$prod - $item</a>";
#if($prodold eq $prod) {$line=" or <a href=$file>$item</a>";}

print TEMP "$prod=1=$item=2=$file=3=<a href=/msds/mf/loc/files/$file>$prod - $item</a>\n";
#print TEMP "$line";
#$prodold=$prod;
}



close TEMP;
system "sort -f temp > temp2";
open(TEMP,"temp2");
open(OUT,">list.html");
while(<TEMP>)
	{
	chomp;
	s/(.*)=1=(.*)=2=(.*)=3=//;
	print OUT "$_<br>\n";;
       }