modperl update
authorshort <>
Fri, 26 Sep 2003 20:30:27 +0000 (20:30 +0000)
committershort <>
Fri, 26 Sep 2003 20:30:27 +0000 (20:30 +0000)
46 files changed:
Makefile-head.am
WebConfig.pm
project/ChangeLog.txt.pl [new file with mode: 0755]
project/FordFulk/ListItem.pm
project/Heat/ListItem.pm
project/Index.html.pl
project/Islet/ListItem.pm
project/Makefile.am
project/Nokia61/ListItem.pm
project/badblock_guess/ListItem.pm
project/captive/Index.html.pl
project/captive/ListItem.pm
project/checkstatic/ListItem.pm
project/cvs2cl-usermap [new file with mode: 0644]
project/cvsbranchdiff/ListItem.pm
project/cvsutil/ListItem.pm
project/d1xnet/ListItem.pm
project/doswatch/ListItem.pm
project/fixhtml/ListItem.pm
project/ircon/ListItem.pm
project/kix/ListItem.pm
project/kware/ListItem.pm
project/line9k/ListItem.pm
project/mdsms/ListItem.pm
project/mod_auth_tacacs/ListItem.pm
project/mot2as/ListItem.pm
project/netstat/ListItem.pm
project/oslik/ListItem.pm
project/patchd2/ListItem.pm
project/pipebuf/ListItem.pm
project/ppp9k/ListItem.pm
project/redirector_ad/ListItem.pm
project/smbfs/ListItem.pm
project/sshpatch/ListItem.pm
project/step/ListItem.pm
project/surprise/ListItem.pm
project/tac_plus/ListItem.pm
project/tcp_rto/ListItem.pm
project/tcpdump/ListItem.pm
project/timeplan/ListItem.pm
project/vblib/ListItem.pm
project/winvnc/ListItem.pm
project/wllib/ListItem.pm
project/xbill/ListItem.pm
redirect.pl
robots.txt

index c3ea56a..3b1dca6 100644 (file)
@@ -32,10 +32,11 @@ noinst_DATA=
        fig2dev -L ppm -S4 -b10 $< $@
 
 %.gif: %.ppm
-       ppmtogif -quiet -sort $< >$@
+       ppmquant -quiet 256 $< | ppmtogif -quiet -sort >$@
 
-%.ppm: %.gif
-       giftopnm $< >$@
+# Prevent: make: Circular %.ppm <- %.gif dependency dropped.
+#%.ppm: %.gif
+#      giftopnm $< >$@
 
 %.png: %.ppm
        pnmtopng $< >$@
index a156212..ee3b9cb 100644 (file)
@@ -44,6 +44,9 @@ our %WebConfig=(
                        },
                "viewcvs"=>"http://cvs.jankratochvil.net/viewcvs/www/www.jankratochvil.net/",
                "title_prefix"=>"Jan Kratochvil",
+               "project_viewcvs"=>"http://cvs.jankratochvil.net/viewcvs/",
+               "pserver"=>':pserver:pserver:@cvs.jankratochvil.net',
+               "pserver_path"=>"/cvs",
                );
 
 1;
diff --git a/project/ChangeLog.txt.pl b/project/ChangeLog.txt.pl
new file mode 100755 (executable)
index 0000000..85f2dc3
--- /dev/null
@@ -0,0 +1,49 @@
+#! /usr/bin/perl
+# 
+# $Id$
+# URL redirector of &My::Web::a_href Perl template.
+# Copyright (C) 2003 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
+# 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::ChangeLog;
+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/,<F>)[0]]}; eval "use lib '$top_dir'"; close F; }
+use My::Web;
+use Apache::Constants qw(MOVED);
+
+
+my $W=My::Web->init(
+               "header_only"=>1,
+               "args_check"=>{
+                               "cvs"=>'^[^./][^.]*$',
+                               },
+               );
+
+$W->{"r"}->send_http_header("text/plain");
+local *F;
+open F,""
+               ."cvs -n -q -d ".$W->{"pserver"}.":".$W->{"pserver_path"}." rlog ".$W->{"args"}{"cvs"}
+               ." |perl -p -e 's#^RCS file: ".$W->{"pserver_path"}.'/(.*?)(?:/Attic/|/)?([^/]*),v$#$&\nWorking file: $1/$2#;'."'"
+               ." |cvs2cl --stdin --stdout --window 3600 --separate-header --no-wrap --usermap cvs2cl-usermap"
+               ." |";
+print while <F>;
+close F;
index 5e5f66e..b234dc9 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Ford-Fulkenson Algorithm Demonstration",
@@ -32,7 +34,7 @@ our @ListItem=(
                "download"=>"FordFulk/FordFulk.zip",
                "summary"=>"Web applet",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"Java 1.0.2",
                "description"=>""
                                .'<p>Java applet to demonstrate the internals of Ford-Fulkenson network algorithm.</p>'
index 5440adf..b37aedc 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Heat Distribution Simulation",
@@ -32,7 +34,7 @@ our @ListItem=(
                "download"=>"Heat/Heat.zip",
                "summary"=>"Web applet",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"Java 1.0.2",
                "description"=>""
                                .'<p>Java applet to demonstrate distribution of heat in time.</p>'
index 2e42b10..25c01bc 100755 (executable)
@@ -104,6 +104,10 @@ $col{"license"}{"format"}=sub {
                return $_[0];
                };
 
+$col{"maintenance"}{"format"}=sub {
+               return ($_[0]=~/^([^-]*)/)[0];
+               };
+
 $col{"online-demo"}{"format"}=\&format_url;
 $col{"download"}{"format"}=\&format_url;
 $col{"name"}{""}="Project Name";
index 70570ef..cbbe93d 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>'<a href="http://www.stv.cz/icp/">ICP 1998</a> Competition Software',
@@ -32,7 +34,7 @@ our @ListItem=(
                "download"=>"Islet/Islet.zip",
                "summary"=>"Web game applet",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"Java 1.1",
                "description"=>""
                                .'<p>Simple game. Written for the purpose of'
index d6809e2..b7871df 100644 (file)
@@ -59,4 +59,6 @@ SUBDIRS= \
                captive
 
 EXTRA_DIST+= \
-       Index.html.pl
+               Index.html.pl \
+               ChangeLog.txt.pl \
+               cvs2cl-usermap
index a8218bd..bd72882 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Nokia Game &quot;Rotation&quot;",
@@ -32,7 +34,7 @@ our @ListItem=(
                "download"=>"Nokia61.c",
                "summary"=>"Logical game solver",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"C, PHP",
                "description"=>""
                                .'<p>At least Nokia 3210 offers game <b>Rotation</b>, this little software will'
index 45e3beb..02946a3 100755 (executable)
@@ -25,18 +25,19 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Recovery of Data from a Damaged Disk",
                "priority"=>7,
                "download-compiled static binary"=>"badblock-guess",
                "download-gzipped compiled static binary"=>"badblock-guess.gz",
-               "link-CVS repository"=>"http://cvs.jankratochvil.net/viewcvs/badblock-guess/",
-               "download-CVS snapshot"=>"http://cvs.jankratochvil.net/viewcvs/badblock-guess/badblock-guess.tar.gz?tarball=1",
-               "link-README"=>"http://cvs.jankratochvil.net/viewcvs/*checkout*/badblock-guess/README?rev=HEAD",
+               "cvs"=>"badblock-guess",
+               "link-README"=>$W->{"project_viewcvs"}."*checkout*/badblock-guess/README?rev=HEAD",
                "summary"=>"Data recovery",
                "license"=>"GPL",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"C",
                "description"=>""
                                .'<p>badblock-guess will try to find all readable sectors of the disk in minimal time.</p>'
index 6620116..a1b1703 100755 (executable)
@@ -61,7 +61,7 @@ my @stuff=(
                                ." <span class=\"quote\">hal.dll</span>.",
                );
 
-print "<p class=\"stuff\">$_</p>\n" for (@stuff);
+print "<p class=\"stuff\">$_</p>\n" for ($stuff[int rand($#stuff+1)]);
 print vskip "3ex";
 
 
@@ -253,9 +253,8 @@ Linux kernel versions in the binary packages above (<b>.i386.rpm</b> and
 
 <p>If you cannot <b>mount</b>(8) your NTFS filesystem you should run <span
 class="quote">/usr/share/lufs/prepmod</span> to see the reasons. It is always
-recommended to upgrade to latest stable kernel supplied by your GNU/Linux
-distribution vendor. In the case you are running kernel not supported by the
-precompiled set of binary modules you should install package
+recommended to upgrade to the latest stable kernel supplied by your GNU/Linux
+distribution vendor. You may need to install package
 <b>kernel-source</b> (Red Hat) or <b>kernel-headers</b> (Debian) matching your
 Linux kernel version (<b>rpm&nbsp;-q&nbsp;kernel</b>) and re-run <span
 class="quote">/usr/share/lufs/prepmod</span>.</p>
index 8c3bc17..9acf53b 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Captive NTFS Filesystem",
@@ -33,6 +35,8 @@ our @ListItem=(
                "license"=>"GPL",
                "maintenance"=>"active",
                "language"=>"C, i386 asm, Perl",
+               "cvs-of main tree"=>"priv/captive",
+               "cvs-of branched ".a_href('http://www.reactos.com/','reactos')." subdir"=>"priv/reactos:captive",
                "description"=>""
                                .'<p>The implementation allows applications running under the GNU/Linux operating'
                                .' system to access NTFS drives. File system driver compatibility with VFAT,'
index 03d6b16..f5b487f 100755 (executable)
@@ -25,14 +25,16 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"C Sources Symbol Attributes Checker",
                "priority"=>7,
-               "download"=>"http://cvs.jankratochvil.net/viewcvs/*checkout*/nethome/home/lace/bin/checkstatic?rev=HEAD",
+               "download"=>$W->{"project_viewcvs"}."*checkout*/nethome/home/lace/bin/checkstatic?rev=HEAD",
                "summary"=>"Development tool",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"Perl",
                "description"=>""
                                .'<p>Gives additional warnings not provided by GNU C Compiler'
diff --git a/project/cvs2cl-usermap b/project/cvs2cl-usermap
new file mode 100644 (file)
index 0000000..a2fb6d8
--- /dev/null
@@ -0,0 +1,2 @@
+short:Jan Kratochvil <project-captive@jankratochvil.net>
+lace:Jan Kratochvil <project-captive@jankratochvil.net>
index 1c319de..43f8412 100755 (executable)
@@ -25,14 +25,16 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"CVS Branching Utility",
                "priority"=>6,
-               "download"=>"http://cvs.jankratochvil.net/viewcvs/*checkout*/nethome/home/lace/bin/cvsbranchdiff?rev=HEAD",
+               "download"=>$W->{"project_viewcvs"}."*checkout*/nethome/home/lace/bin/cvsbranchdiff?rev=HEAD",
                "summary"=>"CVS addon",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"bash",
                "description"=>""
                                .'<p>During patching of foreign CVS trees you have to regularly import them'
index c713a6c..33ebc4f 100755 (executable)
@@ -25,11 +25,13 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"CVS General Utility",
                "priority"=>7,
-               "download"=>"http://cvs.jankratochvil.net/viewcvs/*checkout*/nethome/home/lace/bin/cvsutil?rev=HEAD",
+               "download"=>$W->{"project_viewcvs"}."*checkout*/nethome/home/lace/bin/cvsutil?rev=HEAD",
                "summary"=>"CVS addon",
                "license"=>"PD",
                "maintenance"=>"merge",
index 5a16254..be153bf 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"<a href=\"http://d1x.warpcore.org/\">D1X</a> native TCP/IP support patch",
index 436f6f7..15176c1 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"DOSWatcher - DOS File Access Snooper",
@@ -32,7 +34,7 @@ our @ListItem=(
                "download"=>"doswatch.zip",
                "summary"=>"DOS files snooper",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"i386 asm",
                "description"=>""
                                .'<p>Resident program which displays all the file (and other) DOS function'
index a583e5d..0656a81 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Converter of HTML Files URLs to Relative",
@@ -32,7 +34,7 @@ our @ListItem=(
                "download"=>"fixhtml.pl",
                "summary"=>"HTML converter",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"obsolete-".a_href('http://wget.sunsite.dk/','Wget')." option <b>--convert-links</b> does the same.",
                "language"=>"Perl",
                "description"=>""
                                .'<p>If you download/grab the whole (or its part) of some web site (for example'
@@ -40,9 +42,6 @@ our @ListItem=(
                                .' probably want to browse it locally on your computer offline. Unfortunately'
                                .' the authors are usually using server-name protocol reference or absolute'
                                .' path referration which will broke on your local machine.</p>'
-                               .' <p>This software is derived from <b>WebCopy</b> and initially it was only'
-                               .' its extension. I separated it afterwards - you really do not want to do'
-                               .' the opposite, think twice before trying to integrate it back.</p>'
                );
 
 1;
index 4e4baf6..8970752 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"IRCon - Infrared Remote Control",
@@ -34,8 +36,7 @@ our @ListItem=(
                "download-all scanned images"=>"ircon-img.tar",
                "summary"=>"InfraRed control",
                "license"=>"PD",
-               "maintenance"=>"obsolete",
-               "reason"=>"Linux kernel driver no longer maintained. Superseded by <a href=\"http://www.lirc.org/\">LIRC</a>",
+               "maintenance"=>"obsolete-Superseded by ".a_href('http://www.lirc.org/','LIRC'),
                "language"=>"C, Java",
                "description"=>""
                                .'<p>Software package for custom simple hardware connected to PC parallel port'
index 7e1ea35..febe7d3 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"KIX - KaliNix Replacement",
@@ -32,7 +34,7 @@ our @ListItem=(
                "download"=>"kix.c",
                "summary"=>"Network game server",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"C",
                "description"=>""
                                .'<p>Server which can be used on GNU/Linux as a replacement of'
index 2a95bc9..fcba772 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"KernelWare, Linux Kernel Drivers in Userland",
@@ -32,8 +34,8 @@ our @ListItem=(
                "download"=>"kware.tar.gz",
                "summary"=>"Drivers debugging",
                "license"=>"PD",
-               "maintenance"=>"obsolete",
-               "reason"=>"<a href=\"http://user-mode-linux.sourceforge.net/\">The User-mode Linux Kernel</a>",
+               "maintenance"=>"obsolete-"
+                               .a_href('http://user-mode-linux.sourceforge.net/','The User-mode Linux Kernel')." is much more useful now.",
                "language"=>"C",
                "description"=>""
                                .'<p>Do you also find debugging of Linux kernel drivers a nightmare? Would you'
index c399973..b800263 100755 (executable)
@@ -25,14 +25,16 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Modem / Nokia 9110 GSM data gate",
                "priority"=>7,
-               "download"=>"http://cvs.jankratochvil.net/viewcvs/*checkout*/nethome/usr/local/sbin/line9k?rev=HEAD",
+               "download"=>$W->{"project_viewcvs"}."*checkout*/nethome/usr/local/sbin/line9k?rev=HEAD",
                "summary"=>"pppd(8) script, charger scheme",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"bash, hardware",
                "description"=>""
                                .'<p>Waits for incoming PPP data connection, authorizes it and answers it.</p>'
index 24cae4b..93a8481 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Mobile Device SMS Tool",
@@ -34,10 +36,10 @@ our @ListItem=(
                "download-i386 RPM package"=>"mdsms-1.5.2-0.i386.rpm",
                "download-sources RPM package"=>"mdsms-1.5.2-0.src.rpm",
                "download-logos from KESSLER Wireless Design"=>"http://www.kessler-design.com/wireless/samples.php3",
-               "link-View CVS"=>"http://cvs.jankratochvil.net/viewcvs/mdsms/",
+               "cvs"=>"mdsms",
                "summary"=>"Mobile communication",
                "license"=>"GPL",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"C",
                "description"=>""
                                .'<p>Sends NOL or NGG files as operator logo or group graphics through'
index 437f96f..a66143d 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"<a href=\"http://sourceforge.net/projects/mod-auth-tacacs/\">mod_auth_tacacs</a> TACACS+ test client",
index 7c59c0b..88f2c02 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Motorola to AT&amp;T/GNU Assembler Syntax Converter",
@@ -32,7 +34,7 @@ our @ListItem=(
                "download"=>"mot2as.c",
                "summary"=>"Asm syntax converter",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"C",
                "sponsorship"=>"<a href=\"http://www.princip.cz/\">Princip, a.s.</a>",
                "description"=>""
index 10d2491..d79ff5a 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Program name display for <a href=\"http://www.inka.de/sites/lina/linux/NetTools/\">net-tools-1.50</a>/netstat",
index ba2f839..c9bc04a 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Logical Puzzle in Prolog",
@@ -32,7 +34,7 @@ our @ListItem=(
                "download"=>"oslik/oslik.zip",
                "summary"=>"Prolog example",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"Prolog",
                "description"=>""
                                .'<p>This is no game, just solution of one specific mathematical problem'
index 6aabce3..ed830c9 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Patch <a href=\"http://www.descent2.com/\">Descent 2</a> to Avoid CD-ROM",
@@ -32,7 +34,7 @@ our @ListItem=(
                "download"=>"patchd2.zip",
                "summary"=>"Patch for no-CD",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"i386 asm patch",
                "description"=>""
                                .'<p>Use this <a href="http://www.calderathin.com/products/drdos/">DOS</a>'
index e4a1fa9..71aefe3 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"PipeBuf - Data Buffering Tool",
@@ -32,7 +34,7 @@ our @ListItem=(
                "download"=>"pipebuf.c",
                "summary"=>"Pipe buffer",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"C",
                "description"=>""
                                .'<p>You can do a buffering of realtime data such as audio stream by inserting this program'
index 9f1d3f4..a68f8ee 100755 (executable)
@@ -25,14 +25,16 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Nokia Communicator Leased Line",
                "priority"=>6,
-               "download"=>"http://cvs.jankratochvil.net/viewcvs/*checkout*/nethome/home/lace/bin/ppp9k?rev=HEAD",
+               "download"=>$W->{"project_viewcvs"}."*checkout*/nethome/home/lace/bin/ppp9k?rev=HEAD",
                "summary"=>"Communication script",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"bash",
                "description"=>""
                                .'<p>Script will connect Nokia Communicator <a href="http://www.nokia.com/phones/9000i">9000i</a>'
index f0a068f..1a779d6 100755 (executable)
@@ -25,14 +25,16 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 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",
+               "cvs"=>"redirector-ad",
                "summary"=>"Banner killer",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"Perl",
                "description"=>""
                                .'<p>Scripts that will simply discard graphical images referenced'
index 660a4f3..fd19b0d 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"SMB Kernel Filesystem Acceleration",
@@ -32,7 +34,7 @@ our @ListItem=(
                "download"=>"smbfs-2.1.132-blocksize.diff",
                "summary"=>"SMB acceleration patch",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"C patch",
                "description"=>""
                                .'<p>Simple patch to increase virtual block size of SMB filesytem in Linux'
index c781a99..6a4036b 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"SSH-1 patch for <i>KeepAliveData</i> and <i>OnDemandForward</i>",
@@ -34,8 +36,7 @@ our @ListItem=(
                "download-SSH-1, version 1.2.30, .tar.gz"=>"ftp://ftp.fi.muni.cz/pub/ssh/ssh-1.2.30.tar.gz",
                "summary"=>"SSH enhancement",
                "license"=>"PD",
-               "maintenance"=>"update",
-               "reason"=>"<a href=\"http://www.openssh.com/\">OpenSSH</a> is now preferred but this patch is not yet migrated.",
+               "maintenance"=>"update-".a_href('http://www.openssh.com/','OpenSSH').' is preferred although this patch is not migrated.',
                "language"=>"C patch",
                "description"=>""
                                .'This patch will protect your mostly idle SSH connection from broken masquerading firewalls'
index 40bc297..96871c5 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"STEP - Student's Trainee Exchange Programme",
index 9e60f64..fa84075 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Partition Surprise",
index 97bab7e..1eb52ce 100755 (executable)
@@ -25,16 +25,18 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 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",
                "download-TACACS+ v4.0.3, Devrim Seral rel.8"=>"http://www.gazi.edu.tr/tacacs/index.php?page=download",
-               "link-CVS repository for GTS version"=>"http://cvs.jankratochvil.net/viewcvs/tac_plus/",
+               "cvs"=>"tac_plus",
                "summary"=>"Network server security",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"C patch",
                "sponsorship"=>"<a href=\"http://www.gtsgroup.cz/\">GTS</a>",
                "description"=>""
index 38a7217..7ce2f52 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Linux Kernel Patch for Maximal Round-trip-time",
@@ -33,7 +35,7 @@ our @ListItem=(
                "download-Linux kernel 2.4.16 patch"=>"linux-2.4.16-tcp_rto-1.diff",
                "summary"=>"Network workaround",
                "license"=>"GPL",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"C patch",
                "description"=>""
                                .'<p>This patch can solve your problems if you have network connection dropping too much'
index 4aa56d1..9c34361 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"tcpdump ASCII Dump Patch",
@@ -33,7 +35,7 @@ our @ListItem=(
                "download-tcpdump-3.4"=>"ftp://ftp.ee.lbl.gov/tcpdump-3.4.tar.Z",
                "summary"=>"tcpdump readability patch",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"C patch",
                "description"=>""
                                .'<p>Makes the text messages of tcpdump(1) readable when option <code>-x</code> is used.</p>'
index b013127..5871b08 100755 (executable)
@@ -25,14 +25,17 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Time Log Summarizer",
                "priority"=>6,
                "download"=>"timeplan-1.0.1.tar.gz",
+               "cvs"=>"timeplan",
                "summary"=>"Time management",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"C",
                "description"=>""
                                .'<p>Software to do summaries of time log - what have you spent much time on.'
index 6ada1d1..05617b1 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Variable Buffers Library",
@@ -32,7 +34,7 @@ our @ListItem=(
                "download"=>"vblib-1.0.0.tar.gz",
                "summary"=>"Streams library",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"C",
                "sponsorship"=>"<a href=\"http://www.princip.cz/\">Princip, a.s.</a>",
                "description"=>""
index 68d70ce..d3a4c97 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Patch for Secret WinVNC Server Run",
@@ -36,7 +38,7 @@ our @ListItem=(
                "link-VNC Homepage"=>"http://www.uk.research.att.com/vnc/",
                "summary"=>"Patch to hide WinVNC",
                "license"=>"PD",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"i386 asm patch",
                "description"=>""
                                .'<p>If you install <i>WinVNC</i> in'
index 50d3041..eee88b7 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Line drawing Crossplatform Library",
@@ -32,14 +34,13 @@ our @ListItem=(
                "download"=>"wllib-1.0.0.tar.gz",
                "summary"=>"Graphics library",
                "license"=>"PD",
-               "maintenance"=>"obsolete",
-               "reason"=>"Supported backends are no longer being used.",
+               "maintenance"=>"obsolete-Any of the supported backends are no longer being used.",
                "language"=>"C",
                "description"=>""
                                .'<p>This library should make you generically use line drawing on the following platforms:'
-                               .' <a href="http://www.x.org/">UNIX/X Windows System X11</a>,'
-                               .' <a href="http://www.svgalib.org/">UNIX/SVGAlib</a> and'
-                               .' <a href="http://www.amiga.com/">AmigaOS</a>.</p>'
+                               .' '.a_href('http://www.x.org/','UNIX/X Windows System X11 (libX11)').','
+                               .' '.a_href('http://www.svgalib.org/','UNIX/SVGAlib').' and'
+                               .' '.a_href('http://www.amiga.com/','AmigaOS').'</p>'
                );
 
 1;
index 441e955..b982249 100755 (executable)
@@ -25,6 +25,8 @@ our $CVS_ID=q$Id$;
 use strict;
 use warnings;
 
+use My::Web;
+
 
 our @ListItem=(
                "name"=>"Classic xBill game",
@@ -33,7 +35,7 @@ our @ListItem=(
                "link-Homepage on SourceForge.net"=>"http://xbill.sourceforge.net/",
                "summary"=>"Graphical game",
                "license"=>"GPL",
-               "maintenance"=>"finished",
+               "maintenance"=>"ready",
                "language"=>"C",
                "description"=>""
                                .'<p>Almost-rewritten <a href="ftp://ftp.x.org/contrib/games/xbill-2.0.tgz">classical xBill game</a>,'
index 97a8cfb..6bf50cd 100755 (executable)
@@ -25,6 +25,7 @@ $CVS_ID=q$Id$;
 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;
 use Apache::Constants qw(MOVED);
 
index eb05362..43317cb 100644 (file)
@@ -1,2 +1,2 @@
 User-agent: *
-Disallow:
+Disallow: /project/ChangeLog.txt.pl