#!/usr/local/bin/perl -w

use CGI;

my $cgi = new CGI();

my $fonts = [
	"LTSyntax Regular",
	"LTSyntax Black",
	"LTSyntax SC Medium",
	"LTSyntax SC Regular",
];

my $string= ' [ ] { } # ~ * + ! $ % & / \ ? _ - ';
my $text = qq(The international standard ISO 10646 defines the <i>Universal</i> <b>Character <i>Set</i></b>
			 (UCS). lore\@ipsum.com $string<br>
			  _Das__Büro___am_Draht_____Software_Entwicklung___GmbH_ ä ö ü Ä Ö Ü ß é ó ú í è ò ù ì ç
			 );


my $sizes = [
	"8pt",
	"9pt",
	"10pt",
	"11pt",
	"12pt",
	"14pt",
	"18pt",
	"24pt",

	"8px",
	"9px",
	"10px",
	"11px",
	"12px",
	"14px",
	"18px",
	"24px",
			 ];

my $table = "";
my $classes = "";

my $n = 0;
foreach $size (@$sizes){
	foreach $font (@$fonts){
		$table .= "<tr>\n";
		$classes .= ".c$n { font-size:$size; font-family: $font; }\n";
		$table .= "\t<td class=c$n>$font $size<br>$text</td>\n";
		$n++;
		$table .= "</tr>\n";
	}
}

print <<EOF;
content-type: text/html

<head>
<title>fonts</title>
<style>

td {
  color: black;
  background:white;
}
h1 {
  color: black;
  font-family: Syntax UltraBlack;
  font-size: 48px;
  font-weight: bold;
}
$classes
</style>
</head>
<body bgcolor=#cccccc>

<h1 align=center>fonts</h1>

<table width=100% height=90% align=center valign=middle border=0 cellpadding=0 cellspacing=10>

$table

</table>
</body>
EOF
