#!/usr/bin/perl

@colorName = (
	"ActiveBorder","ActiveCaption","AppWorkspace","Background",
	"ButtonFace","ButtonHighlight","ButtonShadow","ButtonText",
	"CaptionText","GrayText","Highlight","HighlightText",
	"InactiveBorder","InactiveCaption","InactiveCaptionText","InfoBackground",
	"InfoText","Menu","MenuText","Scrollbar",
	"ThreeDDarkShadow","ThreeDFace","ThreeDHighlight","ThreeDLightShadow",
	"ThreeDShadow","Window","WindowFrame","WindowText"
);

@WinIE40 = (
	"dedfde","bdbebd","8c928c","efefef",
	"dedfde","efefef","949294","000000",
	"000000","949294","736dc6","ffffff",
	"dedfde","dedfde","7b7d7b","ffffde",
	"000000","dedfde","000000","efefef",
	"000000","dedfde","efefef","dedfde",
	"949294","ffffff","000000","000000"
);

@WinIE50 = (
	"dedfde","bdbebd","909290","efefef",
	"dedfde","efefef","949294","000000",
	"000000","949294","736dc6","ffffff",
	"dedfde","dedfde","7b7d7b","ffffde",
	"000000","dedfde","000000","efefef",
	"000000","dedfde","efefef","dedfde",
	"949294","ffffff","000000","000000"
);

@WinIE55 = (
	"d4d0c8","0a246a","808080","3a6ea5",
	"d4d0c8","ffffff","808080","000000",
	"ffffff","808080","0a246a","ffffff",
	"d4d0c8","808080","d4d0c8","ffffe1",
	"000000","d4d0c8","000000","d4d0c8",
	"404040","d4d0c8","ffffff","d4d0c8",
	"808080","ffffff","000000","000000"
);

@MacIE5 = (
	"cecece","000000","ffffff","cecece",
	"f0f0f0","e1e1e1","dcdcdc","000000",
	"000000","5e5e5e","66ffff","358aac",
	"dedede","dedede","5e5e5e","ffff9c",
	"000000","f9f9f9","e1e1e1","adadad",
	"a3a3a3","f0f0f0","a3a3a3","a3a3a3",
	"a3a3a3","ffffff","000000","000000"
);

@WinGecko = (
	"d4d0c8","0a246a","808080","3a6ea5",
	"d4d0c8","ffffff","808080","000000",
	"ffffff","808080","0a246a","ffffff",
	"d4d0c8","808080","d4d0c8","ffffe1",
	"000000","d4d0c8","000000","d4d0c8",
	"404040","d4d0c8","ffffff","d4d0c8",
	"808080","ffffff","000000","000000"
);

@MacGecko = (
	"000000","cccccc","ffffff","6363ce",
	"f0f0f0","fdfdfd","dcdcdc","000000",
	"000000","7f7f7f","66ffff","010101",
	"ffffff","ffffff","7f7f7f","ffffff",
	"000000","ffffff","000000","aaaaaa",
	"dcdcdc","f0f0f0","fdfdfd","e1e1e1",
	"e1e1e1","ffffff","cccccc","000000"
);

@MacNN4 = (
	"b20d10","b20d08","a6000d","c10010",
	"b112ce","b60008","b30fad","b60008",
	"cc13e0","0a0e00","000000","0014e0",
	"0010b0","0012ca","0012ca","00b900",
	"0f0e00","0e0000","e80c0a","0011ba",
	"00eb00","00edcd","00eb00","00eb00",
	"00ecac","000d00","000fa0","0d0e00"
);

@WinOpera6 = (
	"d4d0c8","0a246a","808080","3a6ea5",
	"d4d0c8","ffffff","808080","000000",
	"ffffff","808080","0a246a","ffffff",
	"d4d0c8","808080","d4d0c8","ffffe1",
	"000000","d4d0c8","000000","d4d0c8",
	"404040","d4d0c8","ffffff","d4d0c8",
	"808080","ffffff","000000","000000"
);

@MacOpera6 = (
	"-","-","-","-",
	"-","-","-","-",
	"-","-","-","-",
	"-","-","-","-",
	"-","-","-","-",
	"-","-","-","-",
	"-","-","-","-"
);

@iCab = (
	"-","-","-","-",
	"-","-","-","-",
	"-","-","-","-",
	"-","-","-","-",
	"-","-","-","-",
	"-","-","-","-",
	"-","-","-","-"
);

@OmniWeb4 = (
	"00aacc","00aacc","0000aa","-"     ,
	"0000bb","0000bb","0000bb","0000bb",
	"00ccaa","000000","000000","000000",
	"000000","000000","000000","000000",
	"000000","-"     ,"000000","000000",
	"000000","000000","000000","000000",
	"000000","000000","000000","000000"
);

open(OUTPUT,">result")|| die "Can not open Output file\n";
select(OUTPUT);

print "<table>\n";

print "\t<tr>\n";
print "\t\t<th>System Color</th>\n";
print "\t\t<th>Win IE4</th>\n";
print "\t\t<th>Win IE5</th>\n";
print "\t\t<th>Win IE55</th>\n";
print "\t\t<th>Win Op6</th>\n";
print "\t\t<th>Win Moz</th>\n";
print "\t\t<th>Mac Moz</th>\n";
print "\t\t<th>Mac IE5</th>\n";
print "\t\t<th>Mac NN4</th>\n";
print "\t\t<th>Mac Omni</th>\n";
print "\t\t<th>Mac Op6</th>\n";
print "\t\t<th>Mac iCab</th>\n";
print "\t</tr>\n";

foreach (0..27){
	print "\t<tr>\n";
	print "\t\t<td>$colorName[$_]</td>\n";
	print "\t\t<td style=\"color:#$WinIE40[$_];background-color:#$WinIE40[$_]\">$WinIE40[$_]</td>\n";
	print "\t\t<td style=\"color:#$WinIE50[$_];background-color:#$WinIE50[$_]\">$WinIE50[$_]</td>\n";
	print "\t\t<td style=\"color:#$WinIE55[$_];background-color:#$WinIE55[$_]\">$WinIE55[$_]</td>\n";
	print "\t\t<td style=\"color:#$WinOpera6[$_];background-color:#$WinOpera6[$_]\">$WinOpera6[$_]</td>\n";
	print "\t\t<td style=\"color:#$WinGecko[$_];background-color:#$WinGecko[$_]\">$WinGecko[$_]</td>\n";
	print "\t\t<td style=\"color:#$MacGecko[$_];background-color:#$MacGecko[$_]\">$MacGecko[$_]</td>\n";
	print "\t\t<td style=\"color:#$MacIE5[$_];background-color:#$MacIE5[$_]\">$MacIE5[$_]</td>\n";
	print "\t\t<td style=\"color:#$MacNN4[$_];background-color:#$MacNN4[$_]\">$MacNN4[$_]</td>\n";
	print "\t\t<td style=\"color:#$OmniWeb4[$_];background-color:#$OmniWeb4[$_]\">$OmniWeb4[$_]</td>\n";
	print "\t\t<td style=\"color:#$MacOpera6[$_];background-color:#$MacOpera6[$_]\">$MacOpera6[$_]</td>\n";
	print "\t\t<td style=\"color:#$iCab[$_];background-color:#$iCab[$_]\">$iCab[$_]</td>\n";
	print "\t</tr>\n";
}

print "</table>\n";

close(OUTPUT);

exit;