Finally merged the branch 'apache20'(+'apache2') back to the main trunk.

[www.jankratochvil.net.git] / project / lynxilla / Index.pm

diff --git a/project/lynxilla/ListItem.pm b/project/lynxilla/Index.pm
old mode 100755 (executable)
new mode 100644 (file)
similarity index 80%
rename from project/lynxilla/ListItem.pm
rename to project/lynxilla/Index.pm
index cbdc9f4..39721ad
--- a/project/lynxilla/ListItem.pm
+++ b/project/lynxilla/Index.pm
@@ -1,8 +1,6 @@
-#! /usr/bin/perl
-# 
 # $Id$
-# Definition of 'My::Project::lynxilla' for list.cgi.pl
-# Copyright (C) 2003 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
+# Main page of 'My::Project::lynxilla'
+# 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
@@ -18,7 +16,7 @@
 # Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 
 
-package project::lynxilla::ListItem;
+package project::lynxilla::Index;
 require 5.6.0; # at least 'use warnings;' but we need some 5.6.0+ modules anyway
 our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
 our $CVS_ID=q$Id$;
@@ -26,6 +24,7 @@ use strict;
 use warnings;
 
 use My::Web;
+Wuse 'project::Lib';
 
 
 our @ListItem=(
@@ -35,12 +34,14 @@ our @ListItem=(
                "priority"=>460,
                # FIXME: 'http://cvs.jankratochvil.net/viewcvs/' -> $W->{"project_viewcvs"}
                "download"=>'http://cvs.jankratochvil.net/viewcvs/'."*checkout*/nethome/.userContent.css?rev=HEAD",
-               "summary"=>a_href('http://lynx.isc.org/','Lynx').' look&feel with '
-                               .a_href('http://www.mozilla.org/','Mozilla').' web compatibility',
+               "summary"=>sub {
+                               return a_href('http://lynx.isc.org/','Lynx').' look&amp;feel with '
+                                               .a_href('http://www.mozilla.org/','Mozilla').' web compatibility';
+                               },
                "license"=>"PD",
                "maintenance"=>"ready",
                "language"=>"CSS",
-               "description"=><<"HERE",
+               "description"=>sub { return <<"HERE"; },
 <p>@{[ a_href 'http://lynx.isc.org/','Lynx' ]} brings unified colors and fonts of all web pages.
 Unfortunately it is not the one of those two browsers respected by broken websites.
 To get back the unified look and feel of all the web pages while retaining the web compatibility
@@ -51,4 +52,9 @@ as your local file: @{[ '$HOME/.mozilla/$USER/*/chrome/userContent.css' ]}</p>
 HERE
                );
 
+sub handler
+{
+project::Lib->init();
+exit;
+}
 1;