X-Git-Url: http://git.jankratochvil.net/?a=blobdiff_plain;f=Index.html.pl;h=8f3739ce20e9adc38d85389cbd36c159149452c9;hb=ef540e87ff3005dca9132b7da98f8ab9ee10bbe7;hp=c860a8daefa601c9d0a28f7996e0a0b4da50fd38;hpb=b4ddfba5b53a40e47285f8851e1ff7bb5419909b;p=www.jankratochvil.net.git

diff --git a/Index.html.pl b/Index.html.pl
index c860a8d..8f3739c 100755
--- a/Index.html.pl
+++ b/Index.html.pl
@@ -27,58 +27,12 @@ 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;
-require CGI;
+use Apache::Constants qw(MOVED);
 
 
 my $W=My::Web->init(
 		"__PACKAGE__"=>__PACKAGE__,
-		"title"=>'Homepage',
-		"no_job"=>1,
+		"header_only"=>1,
 		);
-My::Web->heading();
-
-
-print <<"HERE";
-<h1>Jan Kratochvil Homepage</h1>
-<hr />
-
-<p>Why did you come here? Shhh...Don't say anything &ndash; I'll guess.</p>
-
-<p>Some paper...no, not a paper...a file...maybe even a folder. It is
-so close you can almost touch it, but yet it is unreachable. It lies
-behind glass...perhaps you can see it...but you cannot touch it.</p>
-
-<p>For years, you have dreamed of being able to write to your NTFS partition
-from the safety of your favorite OS GNU/Linux. Well, the day of reckoning is at
-hand! Those nights lying awake feeling foolish for having that extra VFAT
-partition just to exchange files between GNU/Linux and MS-Windows are over!</p>
-
-<table border="0" style="margin: 4ex; padding: 2ex; background: #552222; font-size: larger;">
-	<tr><td>
-		<b>A programmer for hire:</b>
-		<span style="color: #ffaaaa;">
-			I am looking for new challenges.
-			If you find the software here useful, please
-			@{[ a_href $W->{"resume_url"},'consider me' ]}
-			for your next software project and
-			@{[ a_href 'Contact.html.pl','get in touch' ]}.
-		</span>
-	</td></tr>
-</table>
-
-
-<h2>Introducing the <i>Captive NTFS Filesystem</i> for GNU/Linux</h2>
-
-<p>The @{[ a_href '/project/captive/','Captive NTFS' ]} filesystem is an
-installable filesystem for GNU/Linux, which allows read/write access to NTFS
-partitions created by Microsoft Windows NT, 200x or XP. You can download it
-@{[ a_href '/project/captive/','here' ]}.</p>
-
-HERE
-
-Wrequire "project::captive::ListItem";
-my %captive_ListItem=( @project::captive::ListItem::ListItem );
-print $captive_ListItem{"description"};
-
-
-My::Web->footer();
+$W->{"r"}->status(MOVED);
+$W->{"r"}->header_out("Location"=>"http://".&{$W->{"web_hostname_sub"}}."/project/captive/");