escape special html characters in key descriptions

[sheet.git] / charset.plp

diff --git a/charset.plp b/charset.plp
index faeedc2822af742923e945b668cbd313b5f10bbe..bce918b698955bd75229f9ff3077dde3aaf4b9a7 100644 (file)
--- a/charset.plp
+++ b/charset.plp
@@ -4,7 +4,7 @@ use strict;
 use warnings;
 use open IO => ':utf8';
 
-our $VERSION = '1.0';
+our $VERSION = 'v1.0';
 
 $header{content_type} = 'text/html; charset=utf-8';
 
@@ -61,6 +61,11 @@ my @request = map {
                        utf8::upgrade($row{table});  # prevent latin1 output
                        $row{set} = sprintf 'Unicode block U+%02Xxx', $start >> 8;
                }
+               elsif ($input eq 'U') {
+                       $row{table} = ' ' x 512;
+                       $row{set} = 'Unicode planes';
+                       $row{cell} = do 'charset-ucplanes.inc.pl';
+               }
                elsif ($row{set} = resolve_alias($input)) {
                        if ($row{set} eq 'Internal') {
                                $row{table} = ' ' x ($endpoint < 255 ? 640 : 4096);
@@ -198,15 +203,11 @@ print "</ul>\n";
 </div>
 
 <p class="footer">
-       <a href="http://sheet.shiar.nl/" rel="home">sheet.shiar.nl</a>/charset
-       <a href="git://git.shiar.nl/sheet" rel="vcs-git" title="Git repository"><:= "v$VERSION" :></a>
+       <a href="/" rel="home">sheet.shiar.nl</a>/charset
+       <a href="git://git.shiar.nl/sheet" rel="vcs-git" title="Git repository"><:= $VERSION :></a>
        created by <a href="http://shiar.nl/" rel="author">Shiar</a> •
        <a title="Licensed under the GNU Affero General Public License, version 3" rel="copyright"
-          href="http://www.fsf.org/licensing/licenses/agpl-3.0.html">AGPLv3</a> •
-       last update <:
-               use Time::Format qw(time_format);
-               print time_format('yyyy-mm-dd', (stat $ENV{SCRIPT_FILENAME})[9]);
-       :>
+          href="http://www.fsf.org/licensing/licenses/agpl-3.0.html">AGPLv3</a>
 </p>
 
 </html>