-#! /usr/bin/perl
-#
# $Id$
# Contact page Perl template.
-# Copyright (C) 2003 Jan Kratochvil <project-www.jankratochvil.net@jankratochvil.net>
+# 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
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package Contact;
+package etmms::Index;
require 5.6.0; # at least 'use warnings;' but we need some 5.6.0+ modules anyway
use vars qw($VERSION $CVS_ID);
$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
use strict;
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;
-Wrequire 'My::Project';
+Wrequire 'project::Lib';
+sub handler
+{
my $W=My::Web->init(
- "__PACKAGE__"=>__PACKAGE__,
"title"=>"MMS Center Debugging",
);
My::Web->heading();
{
my($name)=@_;
- my %name_item=( My::Project->one_item_list_read($name) );
- return a_href "/project/$name/",$name_item{"name"}.': '.$name_item{"summary"};
+ my $name_item=project::Lib->name_to_hashref($name);
+ return a_href "/project/$name/",$name_item->{"name"}.': '.$name_item->{"summary"};
};
<li style="font-size: larger;">@{[ project 'etherealwsp' ]}</li>
</ul>
-
-
-
-
-
-
-
-
-
-
-
-
HERE
My::Web->footer();
+}
+1;