#!/usr/bin/perl
open OUT, ">index.html";
print OUT "<table border=2><caption>MSDS for Akzo-Noble Paints by Product Number</caption>
<th>CROMATIC<th>WYANDOTTE
<tr><td valign=top>";
print OUT "<table border=0><tr><td>";
open IN, "chrom.html";
@chrom=<IN>;
$reps=1;
foreach(@chrom)
{
if(/(\w*.html)/)
	{
	$file=$1;
	print "file=$file\n";
	$prodn=$file;
	$prodn=~s/\.html//;
print OUT "<a href=http://www.signfinishes.com/msds/chromatic/$file>$prodn</a><br> \n";
if($reps++ % 30==0){print OUT "</td><td valign=top width=25%>";}
	}
}

print OUT "</table><td valign=top><table><tr><td>";
$reps=1;
open IN, "wyan.html";
@wyan=<IN>;
foreach(@wyan)
{
if(/(\w*.html)/)
	{
	$file=$1;
	print "file=$file\n";
	$prodn=$file;
	$prodn=~s/\.html//;
print OUT "<a href=http://www.signfinishes.com/msds/wyandotte/$file>$prodn</a><br> \n";
if($reps++ % 30==0){print OUT "</td><td valign=top width=25%>";}
	}
}
print OUT "</table></td></table>";