update, MSIE bug compatibility
[www.jankratochvil.net.git] / project / captive / Index.html.pl
index bd28f74..a6dd149 100755 (executable)
@@ -34,6 +34,7 @@ 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%; }
@@ -46,14 +47,14 @@ 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=(
                "A lot of people claim themselves as Windows Programmers.\n"
                                ." Now I can finally join them - I also wrote my own Microsoft Windows.",
                "Why do they need ".a_href('http://www.winsupersite.com/reviews/winserver2k3_gold2.asp','5000 developers')
-                               ." to write Microsoft Windows when it is just One Man Show task?",
+                               ." to write Microsoft Windows when it can be just One Man Show?",
 
 
 
@@ -61,25 +62,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,8 +86,8 @@ my %reqpkg=(
                3=>[qw(glib2 gnome-vfs2 ORBit2 libxml2 openssl popt readline)],
                );
 my %version=(
-               map(($_=>["0.9.4","0"]),qw(captive captive-lufs captive-install)),
-               "lufs"=>["0.9.6","1captive3"],
+               map(($_=>["0.9.6","0"]),qw(captive captive-lufs captive-install)),
+               "lufs"=>["0.9.6","1captive5"],
                "gnome-vfs-httpcaptive"=>["2.3.8captive2","0"],
                "ntfsprogs"=>["200309071734","1captive1"],
                "ntfsprogs-gnomevfs"=>["1.0.1","0"],
@@ -289,35 +280,34 @@ 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
+
+
+print <<"HERE";
 
 @{[ vskip "3ex" ]}
 
 <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>
-               <li>@{[ a_href 'doc/Details.html.pl#sandbox','Sandboxing of W32 filesystem' ]}</li>
+               <li>@{[ a_href 'doc/Details.html.pl#sandbox','Sandboxing of W32 Filesystem' ]}</li>
                <li>@{[ a_href 'doc/TODO.html.pl#todo_fsck','TODO: Fsck of NTFS' ]}</li>
                <li>@{[ a_href 'doc/TODO.html.pl#todo_surprise','TODO: NTFS Support for Partition Surprise' ]}</li>
                <li>@{[ a_href 'doc/Related.html.pl#LinuxNTFScompet','Related Projects - Linux NTFS' ]}</li>
@@ -355,7 +345,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