cases

[www.jankratochvil.net.git] / project / captive / Index.html.pl

diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl
index c6e0b94..7d0dde4 100755 (executable)
--- a/project/captive/Index.html.pl
+++ b/project/captive/Index.html.pl
@@ -39,7 +39,10 @@ my $W=My::Project->init_project(
 .reqpkg { font-style: italic; }
 .stuff  { font-style: italic; font-size: larger; margin-left: 20%; margin-right: 10%; }
 .re     { font-style: italic; }
+table.mailman > * /* FIXME: What is it? */ > tr > th,
+table.mailman > * /* FIXME: What is it? */ > tr > td { padding: 1ex; text-align: center; }
 ",
+               "no_job"=>1,
                );
 
 
@@ -215,7 +218,7 @@ HERE
 print vskip "3ex";
 
 print <<"HERE";
-<h1>Installation notes</h1>
+<h1>Installation Notes</h1>
 
 <p>You should first run <b>captive-install-acquire</b> command to check your
 available Microsoft Windows drivers versions. Now you can execute:</p>
@@ -241,7 +244,7 @@ available Microsoft Windows drivers versions. Now you can execute:</p>
 <p>'<b>captive</b>' package creates '<b>captive</b>' user and '<b>captive</b>' group on your system.</p>
 
 
-<h2>Package version conflicts</h2>
+<h2>Package Version Conflicts</h2>
 
 <dl>
 
@@ -263,7 +266,7 @@ your convenience.</p></dd>
 </dl>
 
 
-<h2>LUFS kernel driver module</h2>
+<h2>LUFS Kernel Driver Module</h2>
 
 <p>@{[ a_href 'http://lufs.sourceforge.net/lufs/','LUFS' ]} (Linux Userland File
 System) needs Linux kernel module driver (<i>lufs.o</i>) compatible with your
@@ -296,11 +299,40 @@ print rightimg <<"HERE",'reactos','ReactOS',"a_href"=>'http://www.reactos.com/';
 HERE
 
 
+my @lists=qw(captive-announce-list captive-list captive-devel-list);
+
 print <<"HERE";
 
+<a name="lists"><h2>Mailing Lists</h2></a>
+
+<form action="@{[ top_dir("/Mailman.pl") ]}" method="post">
+       <table border="1" class="mailman" style="border-collapse: collapse; border-style: solid; border-width: 1px;">
+               <tr>@{[ map("<th>$_</th>",@lists) ]}</tr>
+               <tr><td>New versions announcements<br />
+                       (low traffic, recommended)</td><td>User support</td><td>Development</td></tr>
+               <tr>@{[ map({ "<td>".a_href(&{$W->{"mailman_url_sub"}}()."/listinfo/$_",'Mailman Infopage')."</td>"; } @lists) ]}</tr>
+               <tr>@{[ map({ "<td>".a_href(&{$W->{"pipermail_url_sub"}}()."/$_",'Archive')."</td>"; } @lists) ]}</tr>
+               <tr>@{[
+                       map(('<td><input type="checkbox" name="list" value="'.$_.'"'
+                                       .($_ ne "captive-announce-list" ? '' : ' checked="checked"')
+                                       .' /> Subscribe?</td>'),@lists)
+                       ]}</tr>
+               <tr><td colspan="3">
+                       <table border="0" style="text-align: left;">
+                               <tr><td>Email address:            </td><td><input type="text"     name="email"   size="30" /></td></tr>
+                               <tr><td>Your new Mailman password:</td><td><input type="password" name="pw"      size="15" /></td></tr>
+                               <tr><td>Reenter your password:    </td><td><input type="password" name="pw-conf" size="15" /></td></tr>
+                       </table>
+                       <p><input type="submit" name="email-button" value="Subscribe me" /></p>
+               </td></tr>
+       </table>
+<input type="hidden" name="back" value="/project/captive/#lists" />
+</form>
+
+
 @{[ vskip "3ex" ]}
 
-<h1>See also</h1>
+<h1>See Also</h1>
 <ul>
        <li>@{[ a_href 'Preview.html.pl','<span style="font-size: larger;">Technology Preview</span>' ]}</li>
        <li>@{[ a_href 'CVS.html.pl','CVS Repository' ]}</li>