| 14 |
return $s; |
return $s; |
| 15 |
} # htescape |
} # htescape |
| 16 |
|
|
| 17 |
if ($path =~ m[^/([0-9a-z-]+)$]) { |
if ($path =~ m[^/(_?[0-9a-z-]+)$]) { |
| 18 |
my $name = $1; |
my $name = $1; |
| 19 |
my $file_name = $data_dir_name . $name . '.dat'; |
my $file_name = $data_dir_name . $name . '.dat'; |
| 20 |
if (-f $file_name) { |
if (-f $file_name) { |
| 89 |
} |
} |
| 90 |
print q[</ul> |
print q[</ul> |
| 91 |
|
|
| 92 |
<section id=find> |
<section id=tools> |
| 93 |
<h2>Find by word(s)</h2> |
<h2>Tools</h2> |
| 94 |
|
|
| 95 |
<p>There's a <a href="../find" rel=search>find by word(s)</a> tool |
<ul> |
| 96 |
for those data files.</p> |
<li><a href="../words">English-Japanese word mapping table</a> |
| 97 |
|
<li id=find><a href="../find" rel=search>Find</a> |
| 98 |
|
</ul> |
| 99 |
</section> |
</section> |
| 100 |
|
|
| 101 |
<section id=status> |
<section id=status> |
Parent Directory
| 
Revision Log
| 
Patch