escapeHTML
함수를 써서 한번 quote함
sub escapeHTML { ... # Handle bug in some browsers with Latin charsets if ($self->{'.charset'} && (uc($self->{'.charset'}) eq 'ISO-8859-1' || uc($self->{'.charset'}) eq 'WINDOWS-1252')) { ... } return $toencode; }
올바른 해결책은 $q->charset($HttpCharset);
을 해 주는 거라 생각이 되는데, 이게 다른 데 어디 또 영향을 미칠지 몰라서 일단 보류하고. 이 함수가 하는 일이 결국 위키 소스 내의 QuoteHtml()
이 하는 것과 똑같다. 따라서 그걸로 바꿔 줌
sub GetHtmlHeader { $dtd = '-//IETF//DTD HTML//EN'; $bgcolor = 'white'; # Later make an option $html = qq(<!DOCTYPE HTML PUBLIC "$dtd">\n); # $title = $q->escapeHTML($title); 이 줄을 아래 걸로 바꿈 $title = QuoteHtml($title); $html .= "<HTML><HEAD><TITLE>$title</TITLE>\n"; if ($SiteBase ne "") { ... }