From 137c8c4c8f16333f7913f59c869eb1c581f4f3c8 Mon Sep 17 00:00:00 2001
From: Koichi KAMICHI <kamichi@fonts.jp>
Date: Fri, 7 Apr 2006 00:42:27 +0000
Subject: [PATCH] Rename method name.

---
 linkmap/map.cgi |    1 +
 linkmap/map.pl  |    2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/linkmap/map.cgi b/linkmap/map.cgi
index 21cbcf1..28c9135 100755
--- a/linkmap/map.cgi
+++ b/linkmap/map.cgi
@@ -5,6 +5,7 @@ $random = sprintf "%05X", int(rand()*0x100000);
 use CGI;
 $cgi = new CGI;
 $target = $cgi->param('code');
+$target =~ tr/\;\<\>\|//d;
 $dummy = `/usr/bin/perl /var/www/chiseperl/map.pl $target $random 2>/dev/null`;
 
 $buffer = "";
diff --git a/linkmap/map.pl b/linkmap/map.pl
index 03868cc..6b0ed74 100755
--- a/linkmap/map.pl
+++ b/linkmap/map.pl
@@ -172,7 +172,7 @@ foreach(<FH>){
     $left = int($1 / $rate) + $x;
     $top = int($2 / $rate) + $y;
     print FH2 "<div style=\"position: absolute; top: $top; left: $left; font-family: EUDC; font-size: 40px;\">";
-    printf FH2 pack('U', chise::chise_ds_decode_char($chise_ds, chise_tools::get_uchar('=big5-pua'), eval('0x'.$3)));
+    printf FH2 pack('U', chise::chise_ds_decode_char($chise_ds, chise::get_uchar('=big5-pua'), eval('0x'.$3)));
     print FH2 "</div>";
   } elsif(m/x\=\"([0-9]+)\" y\=\"([0-9]+)\"\>\=jis\&\#45\;x0208\:([0-9A-F]{4,6})/){
     $left = int($1 / $rate) + $x;
-- 
1.7.10.4