X-Git-Url: https://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=blobdiff_plain;f=project%2Fcaptive%2FPreview.pm;fp=project%2Fcaptive%2FPreview.html.pl;h=b51625015483504c3adac9964bff7c71002183f5;hp=ca49f1d8b5c003907aabcbf20aa1368dca8a5d36;hb=f40e75167a045d189c3027a0b112a20c635d3e48;hpb=ef80d25b0a0307ee222d0a94eaae8abf1e9df31c

diff --git a/project/captive/Preview.html.pl b/project/captive/Preview.pm
similarity index 72%
rename from project/captive/Preview.html.pl
rename to project/captive/Preview.pm
index ca49f1d..b516250 100755
--- a/project/captive/Preview.html.pl
+++ b/project/captive/Preview.pm
@@ -1,8 +1,6 @@
-#! /usr/bin/perl
-# 
 # $Id$
 # Captive project Preview page Perl template.
-# Copyright (C) 2003 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
+# Copyright (C) 2003-2005 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
 # 
 # This program is free software; you can redistribute it and/or modify
 # it under the terms of the GNU General Public License as published by
@@ -25,22 +23,20 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
-BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,<F>)[0]]}; eval "use lib '$top_dir'"; close F; }
 use My::Web;
-Wrequire 'My::Project';
+Wrequire 'project::Lib';
 
 
+sub handler
+{
 My::Web->init(
-		"__PACKAGE__"=>__PACKAGE__,
 		"title"=>'Captive NTFS Technology Preview',
-		"head_css"=>"
-td { padding: 10px; text-align: center; }
-table { border-collapse: collapse; border-style: solid; }
-",
-		"WebConfig::heading_novskip"=>1,
+		"css_push"=>"./Preview.css",
+		"heading_novskip"=>1,
 		);
 My::Web->heading();
-print My::Project->section("captive");
+print(project::Lib->section("captive"));
+
 
 print "<h1>Captive NTFS Technology Preview</h1>\n";
 
@@ -49,9 +45,9 @@ sub preview_img ($$;$)
 my($file_base,$text,$comment)=@_;
 
 	return <<"HERE";
-<table border="1" align="center">
-<tr><td>@{[ img $file_base,$text ]}</td></tr>
-<tr><td><b>$text</b>@{[ map((!$_ ? "" : "<br />$_"),$comment) ]}</td></tr>
+<table border="1" class="margin-center">
+	<tr><td>@{[ img $file_base,$text ]}</td></tr>
+	<tr><td><b>$text</b>@{[ map((!$_ ? "" : "<br />$_"),$comment) ]}</td></tr>
 </table>
 @{[ vskip "3ex" ]}
 HERE
@@ -59,8 +55,8 @@ HERE
 
 print preview_img 'doc/ntdebug-ntfs','WinDbg Remote NT Kernel NTFS Debugging';
 print preview_img 'doc/dia/arch-all','Captive Components Architecture',''
-		.'<font color="red">Red color</font> indicates Captive components for the most common LUFS use case.<br />'
-		.'<font color="violet">Violet color</font> indicates system components for the most common LUFS use case.';
+		.'<span style="color: red;">Red color</span> indicates Captive components for the most common LUFS use case.<br />'
+		.'<span style="color: violet;">Violet color</span> indicates system components for the most common LUFS use case.';
 print preview_img 'doc/arch-captive','Captive Subsystems Architecture';
 print preview_img 'doc/arch-W32','Original Microsoft Windows Subsystems Architecture';
 print preview_img 'doc/ratio','Functions Reusal Ratio';
@@ -73,4 +69,6 @@ print preview_img 'doc/dia/TraceFS','TraceFS Debugging Hook for NT Cache Manager
 print preview_img 'captive-install-acquire','Captive Microsoft Windows Drivers Acquire Utility';
 
 
-My::Web->footer();
+exit;
+}
+1;