Remove homepage, redirect it to /project/captive/ instead.

diff --git a/Index.html.pl b/Index.html.pl
index a628b50..8f3739c 100755 (executable)
--- 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 (file)
--- 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>';