Initial mod_perl-2.0 port.

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

diff --git a/project/mod_auth_tacacs/ListItem.pm b/project/mod_auth_tacacs/Index.pm
old mode 100755 (executable)
new mode 100644 (file)
similarity index 64%
rename from project/mod_auth_tacacs/ListItem.pm
rename to project/mod_auth_tacacs/Index.pm
index e9a2b94..94e25a9
--- a/project/mod_auth_tacacs/ListItem.pm
+++ b/project/mod_auth_tacacs/Index.pm
@@ -1,8 +1,6 @@
-#! /usr/bin/perl
-# 
 # $Id$
-# Definition of 'My::Project::mod_auth_tacacs' for list.cgi.pl
-# Copyright (C) 2003 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
+# Main page of 'My::Project::mod_auth_tacacs'
+# 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::mod_auth_tacacs::ListItem;
+package project::mod_auth_tacacs::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,26 +24,36 @@ use strict;
 use warnings;
 
 use My::Web;
+Wuse 'project::Lib';
 
 
 our @ListItem=(
-               "name"=>a_href('http://sourceforge.net/projects/mod-auth-tacacs/','mod_auth_tacacs').' client',
+               "name"=>sub { return a_href('http://sourceforge.net/projects/mod-auth-tacacs/','mod_auth_tacacs').' client'; },
                "platform"=>"patch",
                "priority"=>260,
                "icon"=>"cisco-icon.jpeg",
                "download"=>"mod_auth_tacacs-2.0.2-gts1-checkout.diff.gz",
                "link-mod_auth_tacacs homepage"=>"http://sourceforge.net/projects/mod-auth-tacacs/",
-               "summary"=>a_href('http://www.cisco.com/warp/public/614/7.html','Cisco TACACS+')
-                               .' testing/debugging client for '
-                               .a_href('http://sourceforge.net/projects/mod-auth-tacacs/','mod_auth_tacacs'),
+               "summary"=>sub {
+                               return a_href('http://www.cisco.com/warp/public/614/7.html','Cisco TACACS+')
+                                               .' testing/debugging client for '
+                                               .a_href('http://sourceforge.net/projects/mod-auth-tacacs/','mod_auth_tacacs');
+                               },
                "license"=>"PD",
                "maintenance"=>"accepted",
                "language"=>"C patch",
                "description"=><<"HERE",
-Patch implements: command-line client, <code>dropped Makefile.in</code>
+<p>Patch implements: command-line client, <code>dropped Makefile.in</code>
 in favor of <code>Makefile.am</code>, <code>--with-apache</code> works now
-(whole <code>configure.in</code> rewritten)
+(whole <code>configure.in</code> rewritten)</p>
 HERE
                );
 
+sub handler
+{
+project::Lib->init();
+
+
+My::Web->footer();
+}
 1;