+Partial German translation by Botond Beres.

diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl
index de5bc4d..37c39e1 100755 (executable)
--- a/project/captive/Index.html.pl
+++ b/project/captive/Index.html.pl
@@ -31,6 +31,10 @@ Wuse 'My::Project';
 Wuse 'project::captive::ListItem';
 
 
+my $lang="";
+do { $lang="de" if $_ && /^de/i; } for ($ENV{"HTTP_ACCEPT_LANGUAGE"});
+
+
 my $W=My::Project->init_project(
                "__PACKAGE__"=>__PACKAGE__,
                "ListItem"=>\@project::captive::ListItem::ListItem,
@@ -45,6 +49,8 @@ table.download td { padding: 8px; }
 table.navigate td { padding-bottom: 1ex; padding-left: 15px; padding-right: 15px; }
 ",
                "project_text_after_title"=>""
+                               .($lang ne "de" ? "" : "<h1>Captive:"
+                                               ." Das erste kostenlose Programm um auf ein NTFS Dateisystem unter GNU/Linux zu lesen und zu schreiben</h1>")
                                .'<table border="0" width="100%"><tr><td align="center">'
                                        .'<table border="0" class="navigate"><tr>'
                                                .'<td>&bull;&nbsp;'.a_href('#download','Download').'</td>'
@@ -54,7 +60,8 @@ table.navigate td { padding-bottom: 1ex; padding-left: 15px; padding-right: 15px
                                                .'<td>&bull;&nbsp;'.a_href('#lists','Mailing Lists').'</td>'
                                                .'<td>&bull;&nbsp;'.a_href('#seealso','See Also').'</td>'
                                        .'</tr></table>'
-                               .'</td></tr></table>'
+                               .'</td></tr></table>',
+               ($lang eq "" ? () : ("force_charset"=>"utf-8")),
                );
 
 
@@ -84,8 +91,14 @@ print <<"HERE";
 <table border="1" frame="border" rules="rows" align="center" style="text-align: center;" class="download">
        <tr>
                <td>
-                       RPM i386 binary<br />
-                       tested for distributions:
+HERE
+       if ($lang eq "") {
+               print "RPM i386 binary<br />tested for distributions:";
+               }
+       if ($lang eq "de") {
+               print "RPM i386 Binärcode<br />getestet für den Betrieb unter:";
+               }
+print <<"HERE";
                                        <table border="0"><tr><td align="left"><ul>
                                                <li>Red&nbsp;Hat&nbsp;9&nbsp;Shrike</li>
                                                <li>Red&nbsp;Hat&nbsp;8&nbsp;Psyche</li>
@@ -96,7 +109,16 @@ print <<"HERE";
                                undef(),"size"=>1,"basename"=>1 ]}</td>
        </tr>
        <tr>
-               <td>.tar.gz i386 binary<br />(for non-RPM distributions)</td>
+               <td>
+HERE
+       if ($lang eq "") {
+               print ".tar.gz i386 binary<br />(for non-RPM distributions)";
+               }
+       if ($lang eq "de") {
+               print ".tar.gz i386 Binärcode<br />(für Linux Versionen ohne RPM z.B. Knoppix)";
+               }
+print <<"HERE";
+                               </td>
                <td>@{[ a_href 'dist/captive-static-'.$version{"captive"}[0].'.tar.gz',undef(),"size"=>1,"basename"=>1 ]}</td>
        </tr>
        <tr>
@@ -156,10 +178,30 @@ print <<"HERE";
 @{[ vskip "3ex" ]}
 
 
-<a name="notes"><h1>Installation Notes</h1></a>
-
+<a name="notes"><h1>
+HERE
+       if ($lang eq "") {
+               print "Installation Notes";
+               }
+       if ($lang eq "de") {
+               print "Installationsanleitung";
+               }
+print <<"HERE";
+</h1></a>
+HERE
+       if ($lang eq "") {
+               print <<"EOF";
 <p>You should first run <b>captive-install-acquire</b> command to check your
 available Microsoft Windows drivers versions. Now you can execute:</p>
+EOF
+               }
+       if ($lang eq "de") {
+               print <<"EOF";
+<p>Sie sollten als erstes den Befehl <b>captive-install-acquire</b>
+ausführen um ihre Windows Treiber Version zu überprüfen. Nun können sie folgenden Befehl ausführen:</p>
+EOF
+               }
+print <<"HERE";
 
 <blockquote>
        <p class="quote">
@@ -169,13 +211,28 @@ available Microsoft Windows drivers versions. Now you can execute:</p>
 </blockquote>
 
 
+HERE
+       if ($lang eq "") {
+               print <<"EOF";
 <h2>Overview</h2>
 
 <p>Any errors from '<b>captive-lufs</b>' are written to '<b>/var/log/messages</b>'.</p>
-
 <p>Needed drivers (at least ntoskrnl.exe+ntfs.sys) must be in '<b>/var/lib/captive</b>'.</p>
-
 <p>'<b>captive</b>' package creates '<b>captive</b>' user and '<b>captive</b>' group on your system.</p>
+EOF
+               }
+       if ($lang eq "de") {
+               print <<"EOF";
+<h2>Übersicht</h2>
+
+<p>Jegliche Fehler des '<b>captive-lufs</b>' werden im Ordner '<b>/var/log/messages</b>' aufgelistet.</p>
+<p>Die Dateien ntoskrnl.exe und ntfs.sys müssen in den '<b>/var/lib/captive</b>'-Ordner kopiert werden.
+(Empfehlendswert über ein Wechseldatenträger [CD-ROM, Diskette].)</p>
+<p>Das '<b>captive</b>' Packet erstellt einen '<b>captive</b>' Benutzer und eine '<b>captive</b>' Gruppe auf Ihrem System.</p>
+<p align="right" style="font-size: smaller;">Übersetzung von Botond Beres.</p>
+EOF
+               }
+print <<"HERE";
 
 
 <h2>LUFS Kernel Driver Module</h2>