X-Git-Url: http://git.jankratochvil.net/?a=blobdiff_plain;f=project%2Fcaptive%2FIndex.html.pl;h=7d0dde42e4c08015eadc6a6d9e5adf1a8d71103e;hb=9033b1684bac08f38562d0c2b17e3522d0863ced;hp=a728824540b3dac4e9dd5b5d28a72655c76a24e9;hpb=e2f0a2fc5f1622e3a5c2169166e8dafd4589b90b;p=www.jankratochvil.net.git

diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl
index a728824..7d0dde4 100755
--- a/project/captive/Index.html.pl
+++ b/project/captive/Index.html.pl
@@ -34,11 +34,15 @@ Wuse 'project::captive::ListItem';
 my $W=My::Project->init_project(
 		"__PACKAGE__"=>__PACKAGE__,
 		"ListItem"=>\@project::captive::ListItem::ListItem,
+		"no_project_data"=>1,
 		"head_css"=>"
 .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,
 		);
 
 
@@ -46,7 +50,7 @@ print vskip("10ex")."<h1 align=\"center\">!!! DO NOT DISCLOSE !!!</h1>\n".vskip(
 
 print <<"HERE";
 <h1>The First Read/Write NTFS for Free Operating Systems</h1>
-<h1>The First Free Microsoft Windows Kernel API Emulation</h1>
+<h1>The First Open Source MS-Windows Kernel API for Free OS</h1>
 HERE
 
 my @stuff=(
@@ -61,25 +65,15 @@ my @stuff=(
 				." <span class=\"quote\">hal.dll</span>.",
 		);
 
+print rightimg((map("<p class=\"stuff\">$_</p>\n",($stuff[int rand @stuff])))[0],
+		'captive-install-acquire-small','[ Captive Microsoft Windows Drivers Acquire Illustration ]',
+				"a_href_img"=>'captive-install-acquire');
 
 print <<"HERE";
 
-
-<table border="0" width="100%">
-	<col width="1*" />
-	<col width="0*" />
-	<tr>
-		<td align="left">
-			@{[ map("<p class=\"stuff\">$_</p>\n",($stuff[int rand @stuff])) ]}
-		</td>
-		<td align="right">@{[ a_href My::Web::img_src('captive-install-acquire'),
-				img('captive-install-acquire-small','[ Captive Microsoft Windows Drivers Acquire Illustration ]') ]}</td>
-	</tr>
-</table>
-
 @{[ vskip "3ex" ]}
 
-<table border="1" align="center" style="text-align: center;"><tr><th>Distribution</th>
+<table border="1" align="center" style="text-align: center;" width="100%"><tr><th>Distribution</th>
 		<th>Installation Case #1<br />Filesystem and installer<br />(recommended)</th>
 		<th>Installation Case #2<br />Manual installation<br />(filesystem, expert user)</th>
 		<th>Installation Case #3<br />Command-line client<br />(no filesystem access)</th></tr>
@@ -95,7 +89,7 @@ my %reqpkg=(
 		3=>[qw(glib2 gnome-vfs2 ORBit2 libxml2 openssl popt readline)],
 		);
 my %version=(
-		map(($_=>["0.9.5","0"]),qw(captive captive-lufs captive-install)),
+		map(($_=>["0.9.7","0"]),qw(captive captive-lufs captive-install)),
 		"lufs"=>["0.9.6","1captive5"],
 		"gnome-vfs-httpcaptive"=>["2.3.8captive2","0"],
 		"ntfsprogs"=>["200309071734","1captive1"],
@@ -224,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>
@@ -250,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>
 
@@ -272,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
@@ -289,31 +283,59 @@ Linux kernel version (<b>rpm&nbsp;-q&nbsp;kernel</b>) and re-run <span
 class="quote">/usr/share/lufs/prepmod</span>.</p>
 
 
-<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>
 
 
 @{[ vskip "3ex" ]}
 
-<h1>See also</h1>
+<h1>See Also</h1>
 <ul>
-	<li>@{[ a_href 'Preview.html.pl','Technology Preview' ]}</li>
+	<li>@{[ a_href 'Preview.html.pl','<span style="font-size: larger;">Technology Preview</span>' ]}</li>
+	<li>@{[ a_href 'CVS.html.pl','CVS Repository' ]}</li>
 	<li>@{[ a_href 'doc/','Developer Documentation' ]}; highlights:<ul>
 		<li>@{[ a_href 'doc/About.html.pl#versions','Microsoft Windows Versions Compatibility' ]}</li>
 		<li>@{[ a_href 'doc/Architecture.html.pl#law','Laws and Licensing Conditions' ]}</li>
@@ -355,7 +377,7 @@ class="quote">/usr/share/lufs/prepmod</span>.</p>
 
 <p class="stuff">
 	Why did I install Microsoft Windows and wrote such disgusting piece of code?<br />
-	Expecting @{[ a_href $W->{"resume_url"},"yet another challenging task" ]}, !
+	Expecting @{[ a_href $W->{"resume_url"},"yet another challenging task" ]}!
 </p>
 HERE