X-Git-Url: https://git.jankratochvil.net/?a=blobdiff_plain;f=project%2Ftimeplan%2FIndex.html.pl;fp=project%2Ftimeplan%2FIndex.html.pl;h=0000000000000000000000000000000000000000;hb=f40e75167a045d189c3027a0b112a20c635d3e48;hp=ac46a0ad48320f0e49d2ac931a5e07e7b99d4ace;hpb=ef80d25b0a0307ee222d0a94eaae8abf1e9df31c;p=www.jankratochvil.net.git diff --git a/project/timeplan/Index.html.pl b/project/timeplan/Index.html.pl deleted file mode 100755 index ac46a0a..0000000 --- a/project/timeplan/Index.html.pl +++ /dev/null @@ -1,39 +0,0 @@ -#! /usr/bin/perl -# -# $Id$ -# Main page of 'My::Project::timeplan' -# Copyright (C) 2003 Jan Kratochvil -# -# 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 -# the Free Software Foundation; exactly version 2 of June 1991 is required -# -# This program is distributed in the hope that it will be useful, -# but WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the -# GNU General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA - - -package project::timeplan::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$; -use strict; -use warnings; - -BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[0]]}; eval "use lib '$top_dir'"; close F; } -use My::Web; -Wuse 'My::Project'; -Wuse 'project::timeplan::ListItem'; - - -My::Project->init_project( - "__PACKAGE__"=>__PACKAGE__, - "ListItem"=>\@project::timeplan::ListItem::ListItem, - ); - -My::Web->footer();