From 4f88e0c06ccee2bf9ec563f2d55266873fdc6b7d Mon Sep 17 00:00:00 2001
From: short <>
Date: Mon, 1 Dec 2003 07:38:13 +0000
Subject: [PATCH 1/1] Remove homepage, redirect it to /project/captive/
 instead.

---
 Index.html.pl | 58 ++++------------------------------------------------------
 WebConfig.pm  |  5 +++--
 2 files changed, 7 insertions(+), 56 deletions(-)

diff --git a/Index.html.pl b/Index.html.pl
index a628b50..8f3739c 100755
--- a/Index.html.pl
+++ b/Index.html.pl
@@ -27,62 +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>
-HERE
-
-print <<"HERE" if !$WebConfig::WebConfig{"no_job"};
-<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>
-HERE
-
-print <<"HERE";
-
-<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/");
diff --git a/WebConfig.pm b/WebConfig.pm
index b4d64e7..6311d0c 100644
--- a/WebConfig.pm
+++ b/WebConfig.pm
@@ -67,8 +67,9 @@ our %WebConfig=(
 								.' style="border-collapse: collapse; border-style: solid; border-width: 2px;">'."\n";
 							print '<tr>'."\n";
 								print '<td style="padding: 5px; font-weight: bold;">'."\n";
-									print My::Web::a_href('http://www.jankratochvil.net/','Jan Kratochvil',
-											"attr"=>'style="text-decoration: inherit; /* revoke underline */;"');
+									print 'Jan Kratochvil';
+#									print My::Web::a_href('http://www.jankratochvil.net/','Jan Kratochvil',
+#											"attr"=>'style="text-decoration: inherit; /* revoke underline */;"');
 								print '</td>'."\n";
 							print '</tr>'."\n";
 						print '</table>';
-- 
1.8.3.1