From: short <>
Date: Fri, 26 Sep 2003 08:26:17 +0000 (+0000)
Subject: modperl bootstrap
X-Git-Url: http://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=commitdiff_plain;h=87881612a38624ab579efed6e93749b0e2b42fc7
modperl bootstrap
---
diff --git a/.htaccess b/.htaccess
index ad263f7..f815410 100644
--- a/.htaccess
+++ b/.htaccess
@@ -1,4 +1,4 @@
-DirectoryIndex index.html
+DirectoryIndex Index.html.pl
AddType text/html .shtml
AddHandler server-parsed .shtml
@@ -42,3 +42,13 @@ php_flag magic_quotes_runtime off
RewriteEngine on
RewriteRule ^(/home/short/www/www.jankratochvil.net/)?sw/*(.*)$ http://www.jankratochvil.net/project/ [R=301] [L]
+
+
+
+ RewriteEngine on
+ RewriteRule ^.*?/www[.]jankratochvil[.]net/(.*)$ http://localhost:7680/$1 [P]
+
+
+
+ Options +ExecCGI
+
diff --git a/project/Islet/index.html.pl b/CV.html.pl
similarity index 73%
rename from project/Islet/index.html.pl
rename to CV.html.pl
index 5ef85ab..c512858 100755
--- a/project/Islet/index.html.pl
+++ b/CV.html.pl
@@ -1,7 +1,7 @@
#! /usr/bin/perl
#
# $Id$
-# Main page of 'My::Project::icp'
+# Main page Perl template.
# Copyright (C) 2003 Jan Kratochvil
#
# This program is free software; you can redistribute it and/or modify
@@ -18,6 +18,7 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package 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; };
@@ -25,20 +26,21 @@ $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;
-use project::icp::ListItem;
+require 'CGI';
+require 'My::Project';
-My::Web->init_project(
- "ListItem"=>\%My::Project::icp::ListItem,
+my $W=My::Web->init(
+ "__PACKAGE__"=>__PACKAGE__,
+ "title"=>'CV - Jan Kratochvil',
+ "footer_ids"=>0,
);
+My::Web->heading();
-print <<'HERE';
-
-Program on-line.
-
-HERE
-print ''.My::Web::img("Islet.png","Applet demo screen").' |
'."\n";
+print "Nothing to see here, move along.
\n";
+
My::Web->footer();
diff --git a/Makefile-head.am b/Makefile-head.am
index 4f4aa18..c3ea56a 100644
--- a/Makefile-head.am
+++ b/Makefile-head.am
@@ -28,12 +28,21 @@ noinst_DATA=
# Generally better behaviour but it requires GNU make. Harmless otherwise.
.DELETE_ON_ERROR:
-%.html: %.html.pl $(top_srcdir)/My/Web.pm $(top_srcdir)/WebConfig.pm
- perl -I$(top_srcdir) >$@ $<
-
%.ppm: %.fig Makefile
fig2dev -L ppm -S4 -b10 $< $@
%.gif: %.ppm
- ppmtogif -sort $< >$@
+ ppmtogif -quiet -sort $< >$@
+
+%.ppm: %.gif
+ giftopnm $< >$@
+
+%.png: %.ppm
+ pnmtopng $< >$@
+
+%.ppm: %.png
+ pngtopnm $< >$@
+
+%.png: %.dia $(top_srcdir)/dia-w.sh
+ $(top_srcdir)/dia-w.sh --nosplash --export $@ $<
diff --git a/Makefile.am b/Makefile.am
index 00a170c..ec18d28 100644
--- a/Makefile.am
+++ b/Makefile.am
@@ -19,7 +19,7 @@
include $(top_srcdir)/Makefile-head.am
AUTOMAKE_OPTIONS=foreign
-SUBDIRS=macros project
+SUBDIRS=macros My project
## to automatically rebuild aclocal.m4 if any of the macros in
## `macros/' change
@MAINT@include macros/macros.dep
@@ -33,13 +33,15 @@ EXTRA_DIST+= \
Makefile-head.am \
autogen.pl \
.vimrc \
- ChangeLog
+ ChangeLog \
+ dia-w.sh.in
MAINTAINERCLEANFILES+= \
ChangeLog
CLEANFILES+= \
- ChangeLog.bak
+ ChangeLog.bak \
+ dia-w.sh
if MAINTAINER_MODE
ChangeLog:
@@ -52,7 +54,9 @@ ChangeLog:
endif
EXTRA_DIST+= \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl \
+ WebConfig.pm \
+ redirect.pl \
+ have_js.js.pl \
+ robots.txt \
+ CV.html.pl
diff --git a/WebConfig.pm b/WebConfig.pm
index 1e5db17..a156212 100644
--- a/WebConfig.pm
+++ b/WebConfig.pm
@@ -30,9 +30,19 @@ use vars qw(@ISA @EXPORT);
@ISA=qw(Exporter);
@EXPORT=qw(%WebConfig);
+require CGI;
+
+
our %WebConfig=(
"admin_mail"=>'web-www.jankratochvil.net@jankratochvil.net',
- "viewcvs"=>map({ (!$_ ? $_ : s#^/#http://cvs.jankratochvil.net/viewcvs/energie/#); } $ENV{"SCRIPT_NAME"}),
+ "cvs_id_author"=>sub {
+ my($name)=@_;
+ return My::Web::a_href("http://www.jankratochvil.net/","Jan Kratochvil") if 0
+ || $name eq "short"
+ || $name eq "lace";
+ return CGI::escapeHTML($name);
+ },
+ "viewcvs"=>"http://cvs.jankratochvil.net/viewcvs/www/www.jankratochvil.net/",
"title_prefix"=>"Jan Kratochvil",
);
diff --git a/autogen.pl b/autogen.pl
index 9355b62..7f0bc73 100755
--- a/autogen.pl
+++ b/autogen.pl
@@ -30,6 +30,8 @@ use AutoGen;
use Carp qw(cluck confess);
+die if $ENV{"SERVER_SOFTWARE"}; # SECURITY: CGI misuse!
+
AutoGen->run(
"name"=>"www.jankratochvil.net",
"COPYRIGHT_HOLDER"=>'Jan Kratochvil ',
@@ -37,9 +39,15 @@ AutoGen->run(
"clean"=>[qw(
./ChangeLog.bak
./INSTALL
+ ./dia-w.sh
./project/Nokia61/Nokia61
./project/Nokia61/Nokia61_23.cache
+ ./project/surprise/surprise-gnome-0.gif
+ ./project/line9k/line9k.png
./project/line9k/line9k.gif
- *.html
+ ./project/captive/doc/fig/*.png
+ ./project/captive/doc/fig/*.gif
+ ./project/captive/doc/dia/*.png
+ ./project/captive/doc/dia/*.gif
)],
);
diff --git a/configure.in b/configure.ac
similarity index 88%
rename from configure.in
rename to configure.ac
index e10d54f..9f278b4 100644
--- a/configure.in
+++ b/configure.ac
@@ -20,10 +20,16 @@ AC_INIT(./Makefile-head.am)
AM_INIT_AUTOMAKE(www.jankratochvil.net,1.0cvs)
AM_MAINTAINER_MODE
+AC_PATH_PROG(PATH_XVNC,Xvnc)
+AC_PATH_PROG(PATH_BC,bc)
+AC_PATH_PROG(PATH_DIA,dia)
+
dnl "Makefile" output files MUST have pathnames incl./excl. "./" prefix as specified!
AC_OUTPUT([
Makefile
+./dia-w.sh
./macros/Makefile
+./My/Makefile
./project/Makefile
./project/step/Makefile
./project/icp/Makefile
@@ -62,6 +68,11 @@ Makefile
./project/ppp9k/Makefile
./project/LaceMail/Makefile
./project/line9k/Makefile
+./project/captive/Makefile
+./project/captive/apiref/Makefile
+./project/captive/doc/Makefile
+./project/captive/doc/fig/Makefile
+./project/captive/doc/dia/Makefile
])
echo done.
diff --git a/dia-w.sh.in b/dia-w.sh.in
new file mode 100755
index 0000000..899f18c
--- /dev/null
+++ b/dia-w.sh.in
@@ -0,0 +1,93 @@
+#! /bin/bash
+# $Id$
+# Try to run "dia" with '-e' option, Xvnc wrapping if needed.
+# Copyright (C) 2000,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
+
+
+empty=
+if test "x@PATH_XVNC@" != "x@PATH_XVNC$empty@"
+then
+ PATH_XVNC="@PATH_XVNC@"
+fi
+if test "x@PATH_BC@" != "x@PATH_BC$empty@"
+then
+ PATH_BC="@PATH_BC@"
+fi
+if test "x@PATH_DIA@" != "x@PATH_DIA$empty@"
+then
+ PATH_DIA="@PATH_DIA@"
+else
+ PATH_DIA=dia
+fi
+
+unset xpid
+if test "x$PATH_XVNC" != "x"
+then
+ xport=$[($$%4096)+2000]
+ notdone=true
+ run=true
+ while $notdone
+ do
+ if test -r /proc/net/tcp -a "x$PATH_BC" != "x"
+ then
+ loop=true
+ while $loop
+ do
+ hex="`echo "obase=16;$[$xport+5900]"|$PATH_BC`"
+ if grep -q ":`echo "000$hex"|tail -c5` " /proc/net/tcp
+ then
+ if $run
+ then
+ xport=$[$xport+1]
+ else
+ notdone=false
+ loop=false
+ fi
+ else
+ if $run
+ then
+ loop=false
+ else
+ echo -n .
+ sleep 1
+ fi
+ fi
+ done
+ else
+ notdone=$run
+ fi
+ if $run
+ then
+ export DISPLAY=":$xport"
+ $PATH_XVNC $DISPLAY & xpid=$!
+ run=false
+ fi
+ done
+else
+ if test "x$DISPLAY" = "x"
+ then
+ export DISPLAY=":0"
+ fi
+fi
+
+$PATH_DIA --disable-crash-dialog "$@";r=$?
+
+if test "x$xpid" != "x"
+then
+ kill $xpid
+fi
+
+exit $r
diff --git a/have_js.js.pl b/have_js.js.pl
new file mode 100755
index 0000000..3ae375d
--- /dev/null
+++ b/have_js.js.pl
@@ -0,0 +1,65 @@
+#! /usr/bin/perl
+#
+# $Id$
+# JavaScript detection scriptlet Perl template.
+# 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 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; };
+$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;
+
+
+my $W=My::Web->init(
+ "__PACKAGE__"=>__PACKAGE__,
+ "title"=>'Homepage of Jan Kratochvil',
+ );
+# Do not: My::Web->heading();
+$W->{"r"}->send_http_header("text/javascript");
+
+# Prevent redirection of some top (referring) foreign webpage as it
+# may not pass "have_js=1" to us anyway. (for example Google cache)
+print ""
+ .'if (0'."\n"
+ ."\t\t".'|| window.location.hostname=="'.$W->{"r"}->hostname().'" && window.location.port== 80'."\n"
+ ."\t\t".'|| window.location.hostname=="'.'localhost' .'" && window.location.port==7680)'."\n";
+print <<'HERE';
+ {
+ var searchN=window.location.search;
+ if (searchN=="" || searchN=="?")
+ searchN="?";
+ else
+ searchN+="&";
+ searchN+="have_js=1";
+
+ window.location.href
+ =window.location.protocol+"//"
+ +window.location.hostname
+ +(window.location.port==80 ? "" : ":"+window.location.port)
+ +window.location.pathname
+ +window.location.hash
+ +searchN;
+ }
+HERE
+
+# Do not: My::Web->footer();
diff --git a/index.html.pl b/index.html.pl
deleted file mode 100755
index 2ab5986..0000000
--- a/index.html.pl
+++ /dev/null
@@ -1,58 +0,0 @@
-#! /usr/bin/perl
-#
-# $Id$
-# Main page Perl template.
-# 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
-
-
-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; };
-$CVS_ID=q$Id$;
-use strict;
-use warnings;
-
-use My::Web;
-use Carp qw(cluck confess);
-
-
-My::Web->init(
- "title"=>'Homepage of Jan Kratochvil alias Lace',
- );
-My::Web->heading();
-
-print <<'HERE';
-Jan Kratochvil
-
-
-
-
-List of my software projects
-
-
-
-
-My public CVSROOT; Accessible storage of all of my projects, config files, webs and more.
-
-
-Contact
-
-e-mail: web-www.jankratochvil.net@jankratochvil.net
-
-
-HERE
-
-My::Web->footer();
diff --git a/project/.htaccess b/project/.htaccess
deleted file mode 100644
index 311399d..0000000
--- a/project/.htaccess
+++ /dev/null
@@ -1,2 +0,0 @@
-Options +ExecCGI
-DirectoryIndex list.cgi.pl index.html
diff --git a/project/FordFulk/index.html.pl b/project/FordFulk/Index.html.pl
similarity index 74%
rename from project/FordFulk/index.html.pl
rename to project/FordFulk/Index.html.pl
index 5134e2c..79bc547 100755
--- a/project/FordFulk/index.html.pl
+++ b/project/FordFulk/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::FordFulk::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::FordFulk::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::FordFulk::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::FordFulk::ListItem::ListItem,
);
print <<'HERE';
diff --git a/project/FordFulk/ListItem.pm b/project/FordFulk/ListItem.pm
index 055e13e..5e5f66e 100755
--- a/project/FordFulk/ListItem.pm
+++ b/project/FordFulk/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::FordFulk;
+package project::FordFulk::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"Ford-Fulkenson Algorithm Demonstration",
"priority"=>5,
"download"=>"FordFulk/FordFulk.zip",
diff --git a/project/FordFulk/Makefile.am b/project/FordFulk/Makefile.am
index b063480..0c1658b 100644
--- a/project/FordFulk/Makefile.am
+++ b/project/FordFulk/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/Heat/index.html.pl b/project/Heat/Index.html.pl
similarity index 74%
rename from project/Heat/index.html.pl
rename to project/Heat/Index.html.pl
index 4fd1ad1..61ed75e 100755
--- a/project/Heat/index.html.pl
+++ b/project/Heat/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::Heat::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::Heat::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::Heat::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::Heat::ListItem::ListItem,
);
print <<'HERE';
diff --git a/project/Heat/ListItem.pm b/project/Heat/ListItem.pm
index 8781cff..5440adf 100755
--- a/project/Heat/ListItem.pm
+++ b/project/Heat/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::Heat;
+package project::Heat::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"Heat Distribution Simulation",
"priority"=>5,
"download"=>"Heat/Heat.zip",
diff --git a/project/Heat/Makefile.am b/project/Heat/Makefile.am
index b25e8c7..88d647c 100644
--- a/project/Heat/Makefile.am
+++ b/project/Heat/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/list.cgi.pl b/project/Index.html.pl
similarity index 87%
rename from project/list.cgi.pl
rename to project/Index.html.pl
index eeadeef..2e42b10 100755
--- a/project/list.cgi.pl
+++ b/project/Index.html.pl
@@ -18,24 +18,24 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-use lib qw(/home/short/lib/perl5/site_perl/5.6.0/i386-linux /home/short/lib/perl5/site_perl/5.6.0 /home/short/lib/perl5/site_perl/i386-linux /home/short/lib/perl5/site_perl /home/short/lib/perl5/5.6.0/i386-linux /home/short/lib/perl5/5.6.0 /home/short/lib/perl5/i386-linux /home/short/lib/perl5);
-
-use lib "../";
+BEGIN{ open F,"Makefile"; our $top_dir=pop @{[split /\s/,(grep /^top_srcdir/,)[0]]}; eval "use lib '$top_dir'"; close F; }
use My::Web;
-require CGI;
+require 'CGI';
+require 'My::Project';
use constant ENTRIES=>"CVS/Entries";
use constant ENTRIES_LOG=>"CVS/Entries.Log";
My::Web->init(
+ "__PACKAGE__"=>__PACKAGE__,
"title"=>'Project List',
);
My::Web->heading();
@@ -45,7 +45,7 @@ my $CGI=CGI->new();
print <<'HERE';
-
'
);
1;
diff --git a/project/line9k/Makefile.am b/project/line9k/Makefile.am
index bf70f20..1945b4b 100644
--- a/project/line9k/Makefile.am
+++ b/project/line9k/Makefile.am
@@ -20,14 +20,10 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl \
+ Index.html.pl \
line9k.fig
-noinst_DATA+= \
- index.html \
- line9k.gif
-
-index.html: line9k.gif
-
CLEANFILES+= \
- line9k.fig.bak
+ line9k.fig.bak \
+ line9k.png \
+ line9k.gif
diff --git a/project/mdsms/index.html.pl b/project/mdsms/Index.html.pl
similarity index 72%
rename from project/mdsms/index.html.pl
rename to project/mdsms/Index.html.pl
index 4419075..c7de2ce 100755
--- a/project/mdsms/index.html.pl
+++ b/project/mdsms/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::mdsms::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::mdsms::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::mdsms::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::mdsms::ListItem::ListItem,
);
My::Web->footer();
diff --git a/project/mdsms/ListItem.pm b/project/mdsms/ListItem.pm
index 4dc644f..24cae4b 100755
--- a/project/mdsms/ListItem.pm
+++ b/project/mdsms/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::mdsms;
+package project::mdsms::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"Mobile Device SMS Tool",
"priority"=>8,
"download-sources .tar.gz"=>"mdsms-1.5.2.tar.gz",
diff --git a/project/mdsms/Makefile.am b/project/mdsms/Makefile.am
index 3cc6842..8eb2d05 100644
--- a/project/mdsms/Makefile.am
+++ b/project/mdsms/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/mod_auth_tacacs/index.html.pl b/project/mod_auth_tacacs/Index.html.pl
similarity index 71%
rename from project/mod_auth_tacacs/index.html.pl
rename to project/mod_auth_tacacs/Index.html.pl
index 9490658..dbec51d 100755
--- a/project/mod_auth_tacacs/index.html.pl
+++ b/project/mod_auth_tacacs/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::mod_auth_tacacs::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::mod_auth_tacacs::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::mod_auth_tacacs::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::mod_auth_tacacs::ListItem::ListItem,
);
My::Web->footer();
diff --git a/project/mod_auth_tacacs/ListItem.pm b/project/mod_auth_tacacs/ListItem.pm
index 997be01..437f96f 100755
--- a/project/mod_auth_tacacs/ListItem.pm
+++ b/project/mod_auth_tacacs/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::mod_auth_tacacs;
+package project::mod_auth_tacacs::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"mod_auth_tacacs TACACS+ test client",
"priority"=>2,
"download"=>"mod_auth_tacacs-2.0.2-gts1-checkout.diff.gz",
diff --git a/project/mod_auth_tacacs/Makefile.am b/project/mod_auth_tacacs/Makefile.am
index b564973..a08b8cf 100644
--- a/project/mod_auth_tacacs/Makefile.am
+++ b/project/mod_auth_tacacs/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/mot2as/index.html.pl b/project/mot2as/Index.html.pl
similarity index 72%
rename from project/mot2as/index.html.pl
rename to project/mot2as/Index.html.pl
index 7352004..b2dab0c 100755
--- a/project/mot2as/index.html.pl
+++ b/project/mot2as/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::mot2as::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::mot2as::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::mot2as::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::mot2as::ListItem::ListItem,
);
My::Web->footer();
diff --git a/project/mot2as/ListItem.pm b/project/mot2as/ListItem.pm
index 30afeeb..7c59c0b 100755
--- a/project/mot2as/ListItem.pm
+++ b/project/mot2as/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::mot2as;
+package project::mot2as::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"Motorola to AT&T/GNU Assembler Syntax Converter",
"priority"=>5,
"download"=>"mot2as.c",
diff --git a/project/mot2as/Makefile.am b/project/mot2as/Makefile.am
index 63e2d77..3ee15d4 100644
--- a/project/mot2as/Makefile.am
+++ b/project/mot2as/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/netstat/index.html.pl b/project/netstat/Index.html.pl
similarity index 81%
rename from project/netstat/index.html.pl
rename to project/netstat/Index.html.pl
index 4132351..be9a9be 100755
--- a/project/netstat/index.html.pl
+++ b/project/netstat/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::netstat::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::netstat::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::netstat::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::netstat::ListItem::ListItem,
);
print <<'HERE';
diff --git a/project/netstat/ListItem.pm b/project/netstat/ListItem.pm
index 37ff856..10d2491 100755
--- a/project/netstat/ListItem.pm
+++ b/project/netstat/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::netstat;
+package project::netstat::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"Program name display for net-tools-1.50/netstat",
"priority"=>3,
"download"=>"net-tools-1.50-progname.diff.gz",
diff --git a/project/netstat/Makefile.am b/project/netstat/Makefile.am
index 4f2da6e..6ca5708 100644
--- a/project/netstat/Makefile.am
+++ b/project/netstat/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/oslik/index.html.pl b/project/oslik/Index.html.pl
similarity index 74%
rename from project/oslik/index.html.pl
rename to project/oslik/Index.html.pl
index 7630b06..04be1dd 100755
--- a/project/oslik/index.html.pl
+++ b/project/oslik/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::oslik::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::oslik::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::oslik::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::oslik::ListItem::ListItem,
);
print <<"HERE";
diff --git a/project/oslik/ListItem.pm b/project/oslik/ListItem.pm
index deff81b..ba2f839 100755
--- a/project/oslik/ListItem.pm
+++ b/project/oslik/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::oslik;
+package project::oslik::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"Logical Puzzle in Prolog",
"priority"=>5,
"download"=>"oslik/oslik.zip",
diff --git a/project/oslik/Makefile.am b/project/oslik/Makefile.am
index c99d2ce..997d8eb 100644
--- a/project/oslik/Makefile.am
+++ b/project/oslik/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/patchd2/index.html.pl b/project/patchd2/Index.html.pl
similarity index 72%
rename from project/patchd2/index.html.pl
rename to project/patchd2/Index.html.pl
index fee364b..7c30114 100755
--- a/project/patchd2/index.html.pl
+++ b/project/patchd2/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::patchd2::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::patchd2::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::patchd2::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::patchd2::ListItem::ListItem,
);
My::Web->footer();
diff --git a/project/patchd2/ListItem.pm b/project/patchd2/ListItem.pm
index d492d2e..6aabce3 100755
--- a/project/patchd2/ListItem.pm
+++ b/project/patchd2/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::patchd2;
+package project::patchd2::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"Patch Descent 2 to Avoid CD-ROM",
"priority"=>2,
"download"=>"patchd2.zip",
diff --git a/project/patchd2/Makefile.am b/project/patchd2/Makefile.am
index 15690b7..5d19d4c 100644
--- a/project/patchd2/Makefile.am
+++ b/project/patchd2/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/pipebuf/Index.html.pl b/project/pipebuf/Index.html.pl
new file mode 100755
index 0000000..2d97ffc
--- /dev/null
+++ b/project/pipebuf/Index.html.pl
@@ -0,0 +1,39 @@
+#! /usr/bin/perl
+#
+# $Id$
+# Main page of 'My::Project::pipebuf'
+# 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::pipebuf::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;
+use My::Project;
+use project::pipebuf::ListItem;
+
+
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::pipebuf::ListItem::ListItem,
+ );
+
+My::Web->footer();
diff --git a/project/pipebuf/ListItem.pm b/project/pipebuf/ListItem.pm
index c6f2746..e4a1fa9 100755
--- a/project/pipebuf/ListItem.pm
+++ b/project/pipebuf/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::pipebuf;
+package project::pipebuf::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"PipeBuf - Data Buffering Tool",
"priority"=>8,
"download"=>"pipebuf.c",
diff --git a/project/pipebuf/Makefile.am b/project/pipebuf/Makefile.am
index 1f51bd9..8646788 100644
--- a/project/pipebuf/Makefile.am
+++ b/project/pipebuf/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/ppp9k/index.html.pl b/project/ppp9k/Index.html.pl
similarity index 72%
rename from project/ppp9k/index.html.pl
rename to project/ppp9k/Index.html.pl
index aaa0ba7..76ec633 100755
--- a/project/ppp9k/index.html.pl
+++ b/project/ppp9k/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::ppp9k::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::ppp9k::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::ppp9k::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::ppp9k::ListItem::ListItem,
);
My::Web->footer();
diff --git a/project/ppp9k/ListItem.pm b/project/ppp9k/ListItem.pm
index 0c1a9e5..9f1d3f4 100755
--- a/project/ppp9k/ListItem.pm
+++ b/project/ppp9k/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::ppp9k;
+package project::ppp9k::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"Nokia Communicator Leased Line",
"priority"=>6,
"download"=>"http://cvs.jankratochvil.net/viewcvs/*checkout*/nethome/home/lace/bin/ppp9k?rev=HEAD",
diff --git a/project/ppp9k/Makefile.am b/project/ppp9k/Makefile.am
index 6aa772b..dadec1d 100644
--- a/project/ppp9k/Makefile.am
+++ b/project/ppp9k/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/redirector_ad/index.html.pl b/project/redirector_ad/Index.html.pl
similarity index 71%
rename from project/redirector_ad/index.html.pl
rename to project/redirector_ad/Index.html.pl
index 4c72d1f..e84ab21 100755
--- a/project/redirector_ad/index.html.pl
+++ b/project/redirector_ad/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::redirector_ad::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::redirector_ad::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::redirector_ad::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::redirector_ad::ListItem::ListItem,
);
My::Web->footer();
diff --git a/project/redirector_ad/ListItem.pm b/project/redirector_ad/ListItem.pm
index a1efd03..f0a068f 100755
--- a/project/redirector_ad/ListItem.pm
+++ b/project/redirector_ad/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::redirector_ad;
+package project::redirector_ad::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"Banner Killer as 'squid redirector'",
"priority"=>7,
"link-CVS download"=>"http://cvs.jankratochvil.net/viewcvs/redirector-ad/redirector-ad.tar.gz?tarball=1",
diff --git a/project/redirector_ad/Makefile.am b/project/redirector_ad/Makefile.am
index 20a5c35..21cfd3a 100644
--- a/project/redirector_ad/Makefile.am
+++ b/project/redirector_ad/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/smbfs/index.html.pl b/project/smbfs/Index.html.pl
similarity index 72%
rename from project/smbfs/index.html.pl
rename to project/smbfs/Index.html.pl
index 1a54ee3..2edcbfe 100755
--- a/project/smbfs/index.html.pl
+++ b/project/smbfs/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::smbfs::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::smbfs::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::smbfs::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::smbfs::ListItem::ListItem,
);
My::Web->footer();
diff --git a/project/smbfs/ListItem.pm b/project/smbfs/ListItem.pm
index e35dc74..660a4f3 100755
--- a/project/smbfs/ListItem.pm
+++ b/project/smbfs/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::smbfs;
+package project::smbfs::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"SMB Kernel Filesystem Acceleration",
"priority"=>6,
"download"=>"smbfs-2.1.132-blocksize.diff",
diff --git a/project/smbfs/Makefile.am b/project/smbfs/Makefile.am
index b00fdbb..2f7332f 100644
--- a/project/smbfs/Makefile.am
+++ b/project/smbfs/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/sshpatch/index.html.pl b/project/sshpatch/Index.html.pl
similarity index 82%
rename from project/sshpatch/index.html.pl
rename to project/sshpatch/Index.html.pl
index f9083e5..43f63b9 100755
--- a/project/sshpatch/index.html.pl
+++ b/project/sshpatch/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::sshpatch::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::sshpatch::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::sshpatch::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::sshpatch::ListItem::ListItem,
);
print <<'HERE';
diff --git a/project/sshpatch/ListItem.pm b/project/sshpatch/ListItem.pm
index 0e516e6..c781a99 100755
--- a/project/sshpatch/ListItem.pm
+++ b/project/sshpatch/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::sshpatch;
+package project::sshpatch::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"SSH-1 patch for KeepAliveData and OnDemandForward",
"priority"=>7,
"download"=>"ssh-1.2.30-kadata+odforw.tar.gz",
diff --git a/project/sshpatch/Makefile.am b/project/sshpatch/Makefile.am
index 4b005ae..c15394f 100644
--- a/project/sshpatch/Makefile.am
+++ b/project/sshpatch/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/step/index.html.pl b/project/step/Index.html.pl
similarity index 72%
rename from project/step/index.html.pl
rename to project/step/Index.html.pl
index 0c59086..a3d7887 100755
--- a/project/step/index.html.pl
+++ b/project/step/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::step::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::step::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::step::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::step::ListItem::ListItem,
);
My::Web->footer();
diff --git a/project/step/ListItem.pm b/project/step/ListItem.pm
index 3c1266f..40bc297 100755
--- a/project/step/ListItem.pm
+++ b/project/step/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::step;
+package project::step::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"STEP - Student's Trainee Exchange Programme",
"priority"=>4,
"download"=>"step.tar.gz",
diff --git a/project/step/Makefile.am b/project/step/Makefile.am
index 4a0f95c..c89769e 100644
--- a/project/step/Makefile.am
+++ b/project/step/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/surprise/index.html.pl b/project/surprise/Index.html.pl
similarity index 70%
rename from project/surprise/index.html.pl
rename to project/surprise/Index.html.pl
index e51279f..5b8b746 100755
--- a/project/surprise/index.html.pl
+++ b/project/surprise/Index.html.pl
@@ -18,21 +18,24 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::surprise::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::surprise::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::surprise::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::surprise::ListItem::ListItem,
);
-print ''.My::Web::img("surprise-gnome-0.gif","Gnome client").' |
'."\n";
+print ''.My::Web::img("surprise-gnome-0","Gnome client").' |
'."\n";
My::Web->footer();
diff --git a/project/surprise/ListItem.pm b/project/surprise/ListItem.pm
index 1d2b900..9e60f64 100755
--- a/project/surprise/ListItem.pm
+++ b/project/surprise/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::surprise;
+package project::surprise::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"Partition Surprise",
"priority"=>9,
"download-Page on SourceForge.net"=>"http://sourceforge.net/project/showfiles.php?group_id=10546",
diff --git a/project/surprise/Makefile.am b/project/surprise/Makefile.am
index c4c5552..482a487 100644
--- a/project/surprise/Makefile.am
+++ b/project/surprise/Makefile.am
@@ -19,8 +19,9 @@
include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
- ListItem.pm \
- index.html.pl
+ ListItem.pm \
+ Index.html.pl \
+ surprise-gnome-0.png
-noinst_DATA+= \
- index.html
+CLEANFILES+= \
+ surprise-gnome-0.gif
diff --git a/project/surprise/surprise-gnome-0.gif b/project/surprise/surprise-gnome-0.gif
deleted file mode 100644
index 5b1ce7c..0000000
Binary files a/project/surprise/surprise-gnome-0.gif and /dev/null differ
diff --git a/project/surprise/surprise-gnome-0.png b/project/surprise/surprise-gnome-0.png
new file mode 100644
index 0000000..2d6431e
Binary files /dev/null and b/project/surprise/surprise-gnome-0.png differ
diff --git a/project/tac_plus/index.html.pl b/project/tac_plus/Index.html.pl
similarity index 83%
rename from project/tac_plus/index.html.pl
rename to project/tac_plus/Index.html.pl
index d0b0ff2..9542b92 100755
--- a/project/tac_plus/index.html.pl
+++ b/project/tac_plus/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::tac_plus::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::tac_plus::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::tac_plus::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::tac_plus::ListItem::ListItem,
);
print <<'HERE';
diff --git a/project/tac_plus/ListItem.pm b/project/tac_plus/ListItem.pm
index 93f8679..97bab7e 100755
--- a/project/tac_plus/ListItem.pm
+++ b/project/tac_plus/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::tac_plus;
+package project::tac_plus::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"TACACS+ Server NAS Host Based Authorization",
"priority"=>8,
"download-GTS rel.4 diff for TACACS+ v4.0.3"=>"tac_plus-F4.0.3.alpha.8.gts4.diff.gz",
diff --git a/project/tac_plus/Makefile.am b/project/tac_plus/Makefile.am
index dfbc836..c2261aa 100644
--- a/project/tac_plus/Makefile.am
+++ b/project/tac_plus/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/tcp_rto/index.html.pl b/project/tcp_rto/Index.html.pl
similarity index 72%
rename from project/tcp_rto/index.html.pl
rename to project/tcp_rto/Index.html.pl
index 361a9cf..d22c83e 100755
--- a/project/tcp_rto/index.html.pl
+++ b/project/tcp_rto/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::tcp_rto::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::tcp_rto::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::tcp_rto::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::tcp_rto::ListItem::ListItem,
);
My::Web->footer();
diff --git a/project/tcp_rto/ListItem.pm b/project/tcp_rto/ListItem.pm
index 7338b40..38a7217 100755
--- a/project/tcp_rto/ListItem.pm
+++ b/project/tcp_rto/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::tcp_rto;
+package project::tcp_rto::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"Linux Kernel Patch for Maximal Round-trip-time",
"priority"=>7,
"download-Linux kernel 2.2.17 patch"=>"linux-2.2.17-tcp_rto-1.diff",
diff --git a/project/tcp_rto/Makefile.am b/project/tcp_rto/Makefile.am
index 1e511ee..a3bd7f7 100644
--- a/project/tcp_rto/Makefile.am
+++ b/project/tcp_rto/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/tcpdump/index.html.pl b/project/tcpdump/Index.html.pl
similarity index 81%
rename from project/tcpdump/index.html.pl
rename to project/tcpdump/Index.html.pl
index b709890..4abf4a0 100755
--- a/project/tcpdump/index.html.pl
+++ b/project/tcpdump/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::tcpdump::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::tcpdump::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::tcpdump::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::tcpdump::ListItem::ListItem,
);
print <<'HERE';
diff --git a/project/tcpdump/ListItem.pm b/project/tcpdump/ListItem.pm
index 19f0fed..4aa56d1 100755
--- a/project/tcpdump/ListItem.pm
+++ b/project/tcpdump/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::tcpdump;
+package project::tcpdump::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"tcpdump ASCII Dump Patch",
"priority"=>6,
"download"=>"tcpdump-3.4-ASCIIdump.diff",
diff --git a/project/tcpdump/Makefile.am b/project/tcpdump/Makefile.am
index 7d428e8..0d57b65 100644
--- a/project/tcpdump/Makefile.am
+++ b/project/tcpdump/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/timeplan/index.html.pl b/project/timeplan/Index.html.pl
similarity index 72%
rename from project/timeplan/index.html.pl
rename to project/timeplan/Index.html.pl
index 5eeba24..2a4aa5c 100755
--- a/project/timeplan/index.html.pl
+++ b/project/timeplan/Index.html.pl
@@ -18,19 +18,22 @@
# 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
-use vars qw($VERSION $CVS_ID);
-$VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::timeplan::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::timeplan::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::timeplan::ListItem::ListItem,
);
My::Web->footer();
diff --git a/project/timeplan/ListItem.pm b/project/timeplan/ListItem.pm
index 248fa57..b013127 100755
--- a/project/timeplan/ListItem.pm
+++ b/project/timeplan/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::timeplan;
+package project::timeplan::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"Time Log Summarizer",
"priority"=>6,
"download"=>"timeplan-1.0.1.tar.gz",
diff --git a/project/timeplan/Makefile.am b/project/timeplan/Makefile.am
index db36941..d773411 100644
--- a/project/timeplan/Makefile.am
+++ b/project/timeplan/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/vblib/index.html.pl b/project/vblib/Index.html.pl
similarity index 72%
rename from project/vblib/index.html.pl
rename to project/vblib/Index.html.pl
index 303dd3d..920bb85 100755
--- a/project/vblib/index.html.pl
+++ b/project/vblib/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::vblib::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::vblib::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::vblib::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::vblib::ListItem::ListItem,
);
My::Web->footer();
diff --git a/project/vblib/ListItem.pm b/project/vblib/ListItem.pm
index 0e2c134..6ada1d1 100755
--- a/project/vblib/ListItem.pm
+++ b/project/vblib/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::vblib;
+package project::vblib::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"Variable Buffers Library",
"priority"=>4,
"download"=>"vblib-1.0.0.tar.gz",
diff --git a/project/vblib/Makefile.am b/project/vblib/Makefile.am
index 0a0c8d1..ced12a6 100644
--- a/project/vblib/Makefile.am
+++ b/project/vblib/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/winvnc/index.html.pl b/project/winvnc/Index.html.pl
similarity index 87%
rename from project/winvnc/index.html.pl
rename to project/winvnc/Index.html.pl
index fa5b3ff..c1fe864 100755
--- a/project/winvnc/index.html.pl
+++ b/project/winvnc/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::winvnc::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::winvnc::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::winvnc::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::winvnc::ListItem::ListItem,
);
print <<'HERE';
diff --git a/project/winvnc/ListItem.pm b/project/winvnc/ListItem.pm
index b677286..68d70ce 100755
--- a/project/winvnc/ListItem.pm
+++ b/project/winvnc/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::winvnc;
+package project::winvnc::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"Patch for Secret WinVNC Server Run",
"priority"=>6,
"download-already patched version 3.3.3r9"=>"vnc-3.3.3r9_x86_win32-exe-SECRET.zip",
diff --git a/project/winvnc/Makefile.am b/project/winvnc/Makefile.am
index 4f2fe05..4a75ab1 100644
--- a/project/winvnc/Makefile.am
+++ b/project/winvnc/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/wllib/index.html.pl b/project/wllib/Index.html.pl
similarity index 72%
rename from project/wllib/index.html.pl
rename to project/wllib/Index.html.pl
index 061bae3..687a970 100755
--- a/project/wllib/index.html.pl
+++ b/project/wllib/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::wllib::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::wllib::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::wllib::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::wllib::ListItem::ListItem,
);
My::Web->footer();
diff --git a/project/wllib/ListItem.pm b/project/wllib/ListItem.pm
index c490ca7..50d3041 100755
--- a/project/wllib/ListItem.pm
+++ b/project/wllib/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::wllib;
+package project::wllib::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"Line drawing Crossplatform Library",
"priority"=>4,
"download"=>"wllib-1.0.0.tar.gz",
diff --git a/project/wllib/Makefile.am b/project/wllib/Makefile.am
index 1fb9668..0bbd406 100644
--- a/project/wllib/Makefile.am
+++ b/project/wllib/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/xbill/index.html.pl b/project/xbill/Index.html.pl
similarity index 72%
rename from project/xbill/index.html.pl
rename to project/xbill/Index.html.pl
index 9c25cc0..a7eb0c8 100755
--- a/project/xbill/index.html.pl
+++ b/project/xbill/Index.html.pl
@@ -18,19 +18,22 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
+package project::xbill::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; };
-$CVS_ID=q$Id$;
+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;
+use My::Project;
use project::xbill::ListItem;
-My::Web->init_project(
- "ListItem"=>\%My::Project::xbill::ListItem,
+My::Project->init_project(
+ "__PACKAGE__"=>__PACKAGE__,
+ "ListItem"=>\@project::xbill::ListItem::ListItem,
);
My::Web->footer();
diff --git a/project/xbill/ListItem.pm b/project/xbill/ListItem.pm
index 80b9885..441e955 100755
--- a/project/xbill/ListItem.pm
+++ b/project/xbill/ListItem.pm
@@ -18,16 +18,15 @@
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
-package My::Project::xbill;
+package project::xbill::ListItem;
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; };
-$CVS_ID=q$Id$;
+our $VERSION=do { my @r=(q$Revision$=~/\d+/g); sprintf "%d.".("%03d"x$#r),@r; };
+our $CVS_ID=q$Id$;
use strict;
use warnings;
-our %ListItem=(
+our @ListItem=(
"name"=>"Classic xBill game",
"priority"=>7,
"link-Download from SourceForge.net"=>"http://sourceforge.net/project/showfiles.php?group_id=10700",
diff --git a/project/xbill/Makefile.am b/project/xbill/Makefile.am
index 7414d24..e7ce4de 100644
--- a/project/xbill/Makefile.am
+++ b/project/xbill/Makefile.am
@@ -20,7 +20,4 @@ include $(top_srcdir)/Makefile-head.am
EXTRA_DIST+= \
ListItem.pm \
- index.html.pl
-
-noinst_DATA+= \
- index.html
+ Index.html.pl
diff --git a/project/checkstatic/index.html.pl b/redirect.pl
similarity index 79%
rename from project/checkstatic/index.html.pl
rename to redirect.pl
index a291c91..97a8cfb 100755
--- a/project/checkstatic/index.html.pl
+++ b/redirect.pl
@@ -1,7 +1,7 @@
#! /usr/bin/perl
#
# $Id$
-# Main page of 'My::Project::checkstatic'
+# URL redirector of &My::Web::a_href Perl template.
# Copyright (C) 2003 Jan Kratochvil
#
# This program is free software; you can redistribute it and/or modify
@@ -26,11 +26,14 @@ use strict;
use warnings;
use My::Web;
-use project::checkstatic::ListItem;
+use Apache::Constants qw(MOVED);
-My::Web->init_project(
- "ListItem"=>\%My::Project::checkstatic::ListItem,
+my $W=My::Web->init(
+ "header_only"=>1,
+ "args_check"=>{
+ "location"=>'^\w+://',
+ },
);
-
-My::Web->footer();
+$W->{"r"}->status(MOVED);
+$W->{"r"}->header_out("Location"=>$W->{"args"}{"location"});