-<table border="0" width="100%">
- <col width="1*" />
- <col width="0*" />
- <tr>
- <td align="left">
- <h2>The First Free Microsoft Windows Kernel API Emulation</h2>
-
- <p>Compatibility with existing binary Microsoft Windows file system drivers was
- reached. Microsoft Windows kernel system components required by these drivers
- were analyzed and successfuly emulated in the GNU/Linux operating system.
- Project brings Microsoft Windows kernel emulation framework to support even
- other types Microsoft Windows drivers in the future.
- <span class="productname">@{[ a_href 'http://www.reactos.com/','ReactOS' ]}</span>
- code base made a big asset for this functionality.</p>
- </td>
- <td align="right">@{[ a_href 'http://www.reactos.com/',img('reactos','ReactOS') ]}</td>
- </tr>
-</table>
+
+HERE
+
+
+print rightimg <<"HERE",'reactos','ReactOS',"a_href"=>'http://www.reactos.com/';
+ <h2>The First Open Source MS-Windows Kernel API for Free OS</h2>
+
+ <p>Compatibility with existing binary Microsoft Windows file system drivers was
+ reached. Microsoft Windows kernel system components required by these drivers
+ were analyzed and successfuly emulated in the GNU/Linux operating system.
+ Project brings Microsoft Windows kernel emulation framework to support even
+ other types Microsoft Windows drivers in the future.
+ <span class="productname">@{[ a_href 'http://www.reactos.com/','ReactOS' ]}</span>
+ code base made a big asset for this functionality.</p>
+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>