storm/w3m
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Support German translated help messages (translation is in progress)

Browse Source 
Bug: https://bugs.debian.org/cgi-bin/bugreport.cgi?bug=765682
This commit is contained in:
Tatsuya Kinoshita
2016-04-02 07:14:50 +09:00
parent f6c3e9c895
commit f5757e1a17
6 changed files with 217 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
scripts/w3mhelp.cgi.in
View File

@@ -102,8 +102,7 @@ Content-Type: text/html; charset=$charset
*******
<A HREF="http://w3m.sourceforge.net/">w3m</A>
(WWW-wo-Miru) Version $version by
<A HREF="mailto:aito\@fw.ipsj.or.jp">A.ITO</A> ********<BR>
***** Key assign table *****
<A HREF="mailto:aito\@fw.ipsj.or.jp">A.ITO</A> ********
</CENTER>
HEADING
@@ -112,13 +111,13 @@ $q_version = $version;
$q_version =~ s/[^A-Za-z0-9_\$\.\-]/sprintf('%%%02X', ord($&))/ge;
$script = "<A HREF=\"$ENV{'SCRIPT_NAME'}?version=$q_version&amp;lang=";
# doc:en_English doc-jp:ja_Japanese
# doc:en_English doc-jp:ja_Japanese doc-de:de_German
for $otherlang (@docdirs) {
local(@d) = split(/[:_]/, $otherlang);
if ($d[1] ne $lang) {
$d[1] =~ s/[^A-Za-z0-9_\$\.\-]/sprintf('%%%02X', ord($&))/ge;
print $script, $d[1], "\">$d[2] version</A>\n";
print $script, $d[1], "\">[$d[2]]</A>\n";
}
}