#!/usr/bin/perl -w # a simple Unicode character viewer by Pip@BinQ.org =) use strict; use CGI; my $q = new CGI; my $bgin = $q->param("bgin"); unless (defined($bgin)) { $bgin = 12353; } my $ennd = $q->param("ennd") || 12542; my $rose = $q->param("rose") || 8; #31 my $bord = $q->param("bord"); unless (defined($bord)) { $bord = 1; } #0 my $padd = $q->param("padd"); unless (defined($padd)) { $padd = 10; } #0 my $spac = $q->param("spac") || 0; my $hide = $q->param("hide"); #1; my $bcol = $q->param("bcol") || "03072B"; my $tcol = $q->param("tcol") || "A8F8F0"; my $ccol = $q->param("ccol") || "2B1B2B"; my $font = $q->param("font") || qq^font face="Tahoma,Arial,Monaco,Helvetica,Sans-Serif"^; print "Content-type: text/html\n\n"; my $kaka = $bgin; print qq^HtmlChrz\n^; print qq^
\n^; print qq^

<$font>HtmlChrz

\n^; print qq^

<$font>All following characters are displayed by preceeding the code number with Ampersand-Pound and appending a Semicolon (eg. &#12353;) within the html source!

\n^; print qq^
\n^; print qq^\n^; print qq^\n^; print qq^\n^; print qq^\n^; print qq^\n^; print qq^\n^; print qq^\n^; print qq^\n^; print qq^\n^; print qq^\n^; print qq^\n^; print qq^\n^; print qq^\n^; print qq^\n^; print qq^\n^; print qq^\n^; print qq^\n^; print qq^\n^; print qq^\n^; $font =~ s/\"/\"/g; print qq^\n^; print qq^\n^; print qq^
<$font>Bgin:<$font><$font>Ennd:<$font>
<$font>Rose:<$font><$font>Bord:<$font>
<$font>Padd:<$font><$font>Spac:<$font>
<$font>BCol:<$font><$font>TCol:<$font>
<$font>CCol:<$font><$font>Hide:<$font>

\n^; print qq^\n^; while ($kaka < $ennd) { my $poop = $kaka + $rose; print qq^^; while ($kaka < $poop) { print qq^\n^; $kaka++; } print qq^^; $kaka++; } print qq^
<$font>^; unless ($hide) { print qq^$kaka: ^; } print qq^&#$kaka; 
\n^;