svnno****@sourc*****
svnno****@sourc*****
2011年 4月 10日 (日) 22:49:08 JST
Tera TermRevision: 4431
http://sourceforge.jp/projects/ttssh2/svn/view?view=rev&revision=4431
Author: yutakapon
Date: 2011-04-10 22:49:08 +0900 (Sun, 10 Apr 2011)
Log Message:
-----------
二é‡å¼•ç”¨ç¬¦ã‚’エスケープã™ã‚‹ã‚ˆã†ã«ã—ãŸã€‚
Modified Paths:
--------------
trunk/doc/htmlhelp_index_make.pl
-------------- next part --------------
Modified: trunk/doc/htmlhelp_index_make.pl
===================================================================
--- trunk/doc/htmlhelp_index_make.pl 2011-04-10 13:32:22 UTC (rev 4430)
+++ trunk/doc/htmlhelp_index_make.pl 2011-04-10 13:49:08 UTC (rev 4431)
@@ -4,7 +4,7 @@
# HTMLƒwƒ‹ƒv‚̃Cƒ“ƒfƒbƒNƒXƒtƒ@ƒCƒ‹‚𶬂·‚é
#
# Usage(ActivePerl):
-# perl htmlhelp_index_make.pl
+# perl htmlhelp_index_make.pl ja html > ja\Index.hhk
#
use Cwd;
@@ -71,7 +71,7 @@
sub check_html_file {
my($filename) = shift;
local(*FP);
- my($line, $no);
+ my($line, $no, $val);
if ($filename !~ /.html$/) {
return;
@@ -85,7 +85,9 @@
if ($line =~ /<TITLE>(.+)<\/TITLE>/i) {
# print "$filename:$no: $1\n";
# print "$line\n";
- write_add_index($filename, $1);
+ $val = $1;
+ $val =~ s/"/"/g; # “ñdˆø—p•„‚ðƒGƒXƒP[ƒv‚·‚é
+ write_add_index($filename, $val);
last;
}