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?",
<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>
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"],
<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
<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>
<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>
<p class="stuff">
Why did I install Microsoft Windows and wrote such disgusting piece of code?<br />
- Expecting @{[ a_href top_dir().'/resume/Resume-JanKratochvil.html.pl/Resume-JanKratochvil.html',
- "yet another challenging task" ]}, !
+ Expecting @{[ a_href $W->{"resume_url"},"yet another challenging task" ]}, !
</p>
HERE