+icons

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

diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl
index a728824..a9beb04 100755 (executable)
--- a/project/captive/Index.html.pl
+++ b/project/captive/Index.html.pl
@@ -46,7 +46,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=(
@@ -72,8 +72,10 @@ print <<"HERE";
                <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>
+               <td align="right">@{[
+                               img 'captive-install-acquire-small','[ Captive Microsoft Windows Drivers Acquire Illustration ]',
+                                               "a_href_img"=>'captive-install-acquire'
+                               ]}</td>
        </tr>
 </table>
 
@@ -95,7 +97,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.6","0"]),qw(captive captive-lufs captive-install)),
                "lufs"=>["0.9.6","1captive5"],
                "gnome-vfs-httpcaptive"=>["2.3.8captive2","0"],
                "ntfsprogs"=>["200309071734","1captive1"],
@@ -294,7 +296,7 @@ class="quote">/usr/share/lufs/prepmod</span>.</p>
        <col width="0*" />
        <tr>
                <td align="left">
-                       <h2>The First Free Microsoft Windows Kernel API Emulation</h2>
+                       <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
@@ -304,7 +306,7 @@ class="quote">/usr/share/lufs/prepmod</span>.</p>
                        <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>
+               <td align="right">@{[ img 'reactos','ReactOS',"a_href"=>'http://www.reactos.com/' ]}</td>
        </tr>
 </table>