From: short <> Date: Fri, 26 Sep 2003 20:30:27 +0000 (+0000) Subject: modperl update X-Git-Url: https://git.jankratochvil.net/?p=www.jankratochvil.net.git;a=commitdiff_plain;h=65febd1ce4a2c8be812a556a5a2f4ad9cfbf4d1e modperl update --- diff --git a/Makefile-head.am b/Makefile-head.am index c3ea56a..3b1dca6 100644 --- a/Makefile-head.am +++ b/Makefile-head.am @@ -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 $< >$@ diff --git a/WebConfig.pm b/WebConfig.pm index a156212..ee3b9cb 100644 --- a/WebConfig.pm +++ b/WebConfig.pm @@ -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 index 0000000..85f2dc3 --- /dev/null +++ b/project/ChangeLog.txt.pl @@ -0,0 +1,49 @@ +#! /usr/bin/perl +# +# $Id$ +# 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 +# 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/,)[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 ; +close F; diff --git a/project/FordFulk/ListItem.pm b/project/FordFulk/ListItem.pm index 5e5f66e..b234dc9 100755 --- a/project/FordFulk/ListItem.pm +++ b/project/FordFulk/ListItem.pm @@ -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"=>"" .'

Java applet to demonstrate the internals of Ford-Fulkenson network algorithm.

' diff --git a/project/Heat/ListItem.pm b/project/Heat/ListItem.pm index 5440adf..b37aedc 100755 --- a/project/Heat/ListItem.pm +++ b/project/Heat/ListItem.pm @@ -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"=>"" .'

Java applet to demonstrate distribution of heat in time.

' diff --git a/project/Index.html.pl b/project/Index.html.pl index 2e42b10..25c01bc 100755 --- a/project/Index.html.pl +++ b/project/Index.html.pl @@ -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"; diff --git a/project/Islet/ListItem.pm b/project/Islet/ListItem.pm index 70570ef..cbbe93d 100755 --- a/project/Islet/ListItem.pm +++ b/project/Islet/ListItem.pm @@ -25,6 +25,8 @@ our $CVS_ID=q$Id$; use strict; use warnings; +use My::Web; + our @ListItem=( "name"=>'ICP 1998 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"=>"" .'

Simple game. Written for the purpose of' diff --git a/project/Makefile.am b/project/Makefile.am index d6809e2..b7871df 100644 --- a/project/Makefile.am +++ b/project/Makefile.am @@ -59,4 +59,6 @@ SUBDIRS= \ captive EXTRA_DIST+= \ - Index.html.pl + Index.html.pl \ + ChangeLog.txt.pl \ + cvs2cl-usermap diff --git a/project/Nokia61/ListItem.pm b/project/Nokia61/ListItem.pm index a8218bd..bd72882 100755 --- a/project/Nokia61/ListItem.pm +++ b/project/Nokia61/ListItem.pm @@ -25,6 +25,8 @@ our $CVS_ID=q$Id$; use strict; use warnings; +use My::Web; + our @ListItem=( "name"=>"Nokia Game "Rotation"", @@ -32,7 +34,7 @@ our @ListItem=( "download"=>"Nokia61.c", "summary"=>"Logical game solver", "license"=>"PD", - "maintenance"=>"finished", + "maintenance"=>"ready", "language"=>"C, PHP", "description"=>"" .'

At least Nokia 3210 offers game Rotation, this little software will' diff --git a/project/badblock_guess/ListItem.pm b/project/badblock_guess/ListItem.pm index 45e3beb..02946a3 100755 --- a/project/badblock_guess/ListItem.pm +++ b/project/badblock_guess/ListItem.pm @@ -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"=>"" .'

badblock-guess will try to find all readable sectors of the disk in minimal time.

' diff --git a/project/captive/Index.html.pl b/project/captive/Index.html.pl index 6620116..a1b1703 100755 --- a/project/captive/Index.html.pl +++ b/project/captive/Index.html.pl @@ -61,7 +61,7 @@ my @stuff=( ." hal.dll.", ); -print "

$_

\n" for (@stuff); +print "

$_

\n" for ($stuff[int rand($#stuff+1)]); print vskip "3ex"; @@ -253,9 +253,8 @@ Linux kernel versions in the binary packages above (.i386.rpm and

If you cannot mount(8) your NTFS filesystem you should run /usr/share/lufs/prepmod 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 kernel-source (Red Hat) or kernel-headers (Debian) matching your Linux kernel version (rpm -q kernel) and re-run /usr/share/lufs/prepmod.

diff --git a/project/captive/ListItem.pm b/project/captive/ListItem.pm index 8c3bc17..9acf53b 100755 --- a/project/captive/ListItem.pm +++ b/project/captive/ListItem.pm @@ -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"=>"" .'

The implementation allows applications running under the GNU/Linux operating' .' system to access NTFS drives. File system driver compatibility with VFAT,' diff --git a/project/checkstatic/ListItem.pm b/project/checkstatic/ListItem.pm index 03d6b16..f5b487f 100755 --- a/project/checkstatic/ListItem.pm +++ b/project/checkstatic/ListItem.pm @@ -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"=>"" .'

Gives additional warnings not provided by GNU C Compiler' diff --git a/project/cvs2cl-usermap b/project/cvs2cl-usermap new file mode 100644 index 0000000..a2fb6d8 --- /dev/null +++ b/project/cvs2cl-usermap @@ -0,0 +1,2 @@ +short:Jan Kratochvil +lace:Jan Kratochvil diff --git a/project/cvsbranchdiff/ListItem.pm b/project/cvsbranchdiff/ListItem.pm index 1c319de..43f8412 100755 --- a/project/cvsbranchdiff/ListItem.pm +++ b/project/cvsbranchdiff/ListItem.pm @@ -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"=>"" .'

During patching of foreign CVS trees you have to regularly import them' diff --git a/project/cvsutil/ListItem.pm b/project/cvsutil/ListItem.pm index c713a6c..33ebc4f 100755 --- a/project/cvsutil/ListItem.pm +++ b/project/cvsutil/ListItem.pm @@ -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", diff --git a/project/d1xnet/ListItem.pm b/project/d1xnet/ListItem.pm index 5a16254..be153bf 100755 --- a/project/d1xnet/ListItem.pm +++ b/project/d1xnet/ListItem.pm @@ -25,6 +25,8 @@ our $CVS_ID=q$Id$; use strict; use warnings; +use My::Web; + our @ListItem=( "name"=>"D1X native TCP/IP support patch", diff --git a/project/doswatch/ListItem.pm b/project/doswatch/ListItem.pm index 436f6f7..15176c1 100755 --- a/project/doswatch/ListItem.pm +++ b/project/doswatch/ListItem.pm @@ -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"=>"" .'

Resident program which displays all the file (and other) DOS function' diff --git a/project/fixhtml/ListItem.pm b/project/fixhtml/ListItem.pm index a583e5d..0656a81 100755 --- a/project/fixhtml/ListItem.pm +++ b/project/fixhtml/ListItem.pm @@ -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 --convert-links does the same.", "language"=>"Perl", "description"=>"" .'

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.

' - .'

This software is derived from WebCopy 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.

' ); 1; diff --git a/project/ircon/ListItem.pm b/project/ircon/ListItem.pm index 4e4baf6..8970752 100755 --- a/project/ircon/ListItem.pm +++ b/project/ircon/ListItem.pm @@ -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 LIRC", + "maintenance"=>"obsolete-Superseded by ".a_href('http://www.lirc.org/','LIRC'), "language"=>"C, Java", "description"=>"" .'

Software package for custom simple hardware connected to PC parallel port' diff --git a/project/kix/ListItem.pm b/project/kix/ListItem.pm index 7e1ea35..febe7d3 100755 --- a/project/kix/ListItem.pm +++ b/project/kix/ListItem.pm @@ -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"=>"" .'

Server which can be used on GNU/Linux as a replacement of' diff --git a/project/kware/ListItem.pm b/project/kware/ListItem.pm index 2a95bc9..fcba772 100755 --- a/project/kware/ListItem.pm +++ b/project/kware/ListItem.pm @@ -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"=>"The User-mode Linux Kernel", + "maintenance"=>"obsolete-" + .a_href('http://user-mode-linux.sourceforge.net/','The User-mode Linux Kernel')." is much more useful now.", "language"=>"C", "description"=>"" .'

Do you also find debugging of Linux kernel drivers a nightmare? Would you' diff --git a/project/line9k/ListItem.pm b/project/line9k/ListItem.pm index c399973..b800263 100755 --- a/project/line9k/ListItem.pm +++ b/project/line9k/ListItem.pm @@ -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"=>"" .'

Waits for incoming PPP data connection, authorizes it and answers it.

' diff --git a/project/mdsms/ListItem.pm b/project/mdsms/ListItem.pm index 24cae4b..93a8481 100755 --- a/project/mdsms/ListItem.pm +++ b/project/mdsms/ListItem.pm @@ -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"=>"" .'

Sends NOL or NGG files as operator logo or group graphics through' diff --git a/project/mod_auth_tacacs/ListItem.pm b/project/mod_auth_tacacs/ListItem.pm index 437f96f..a66143d 100755 --- a/project/mod_auth_tacacs/ListItem.pm +++ b/project/mod_auth_tacacs/ListItem.pm @@ -25,6 +25,8 @@ our $CVS_ID=q$Id$; use strict; use warnings; +use My::Web; + our @ListItem=( "name"=>"mod_auth_tacacs TACACS+ test client", diff --git a/project/mot2as/ListItem.pm b/project/mot2as/ListItem.pm index 7c59c0b..88f2c02 100755 --- a/project/mot2as/ListItem.pm +++ b/project/mot2as/ListItem.pm @@ -25,6 +25,8 @@ our $CVS_ID=q$Id$; use strict; use warnings; +use My::Web; + our @ListItem=( "name"=>"Motorola to AT&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"=>"Princip, a.s.", "description"=>"" diff --git a/project/netstat/ListItem.pm b/project/netstat/ListItem.pm index 10d2491..d79ff5a 100755 --- a/project/netstat/ListItem.pm +++ b/project/netstat/ListItem.pm @@ -25,6 +25,8 @@ our $CVS_ID=q$Id$; use strict; use warnings; +use My::Web; + our @ListItem=( "name"=>"Program name display for net-tools-1.50/netstat", diff --git a/project/oslik/ListItem.pm b/project/oslik/ListItem.pm index ba2f839..c9bc04a 100755 --- a/project/oslik/ListItem.pm +++ b/project/oslik/ListItem.pm @@ -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"=>"" .'

This is no game, just solution of one specific mathematical problem' diff --git a/project/patchd2/ListItem.pm b/project/patchd2/ListItem.pm index 6aabce3..ed830c9 100755 --- a/project/patchd2/ListItem.pm +++ b/project/patchd2/ListItem.pm @@ -25,6 +25,8 @@ our $CVS_ID=q$Id$; use strict; use warnings; +use My::Web; + our @ListItem=( "name"=>"Patch Descent 2 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"=>"" .'

Use this DOS' diff --git a/project/pipebuf/ListItem.pm b/project/pipebuf/ListItem.pm index e4a1fa9..71aefe3 100755 --- a/project/pipebuf/ListItem.pm +++ b/project/pipebuf/ListItem.pm @@ -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"=>"" .'

You can do a buffering of realtime data such as audio stream by inserting this program' diff --git a/project/ppp9k/ListItem.pm b/project/ppp9k/ListItem.pm index 9f1d3f4..a68f8ee 100755 --- a/project/ppp9k/ListItem.pm +++ b/project/ppp9k/ListItem.pm @@ -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"=>"" .'

Script will connect Nokia Communicator 9000i' diff --git a/project/redirector_ad/ListItem.pm b/project/redirector_ad/ListItem.pm index f0a068f..1a779d6 100755 --- a/project/redirector_ad/ListItem.pm +++ b/project/redirector_ad/ListItem.pm @@ -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"=>"" .'

Scripts that will simply discard graphical images referenced' diff --git a/project/smbfs/ListItem.pm b/project/smbfs/ListItem.pm index 660a4f3..fd19b0d 100755 --- a/project/smbfs/ListItem.pm +++ b/project/smbfs/ListItem.pm @@ -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"=>"" .'

Simple patch to increase virtual block size of SMB filesytem in Linux' diff --git a/project/sshpatch/ListItem.pm b/project/sshpatch/ListItem.pm index c781a99..6a4036b 100755 --- a/project/sshpatch/ListItem.pm +++ b/project/sshpatch/ListItem.pm @@ -25,6 +25,8 @@ our $CVS_ID=q$Id$; use strict; use warnings; +use My::Web; + our @ListItem=( "name"=>"SSH-1 patch for KeepAliveData and OnDemandForward", @@ -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"=>"OpenSSH 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' diff --git a/project/step/ListItem.pm b/project/step/ListItem.pm index 40bc297..96871c5 100755 --- a/project/step/ListItem.pm +++ b/project/step/ListItem.pm @@ -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", diff --git a/project/surprise/ListItem.pm b/project/surprise/ListItem.pm index 9e60f64..fa84075 100755 --- a/project/surprise/ListItem.pm +++ b/project/surprise/ListItem.pm @@ -25,6 +25,8 @@ our $CVS_ID=q$Id$; use strict; use warnings; +use My::Web; + our @ListItem=( "name"=>"Partition Surprise", diff --git a/project/tac_plus/ListItem.pm b/project/tac_plus/ListItem.pm index 97bab7e..1eb52ce 100755 --- a/project/tac_plus/ListItem.pm +++ b/project/tac_plus/ListItem.pm @@ -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"=>"GTS", "description"=>"" diff --git a/project/tcp_rto/ListItem.pm b/project/tcp_rto/ListItem.pm index 38a7217..7ce2f52 100755 --- a/project/tcp_rto/ListItem.pm +++ b/project/tcp_rto/ListItem.pm @@ -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"=>"" .'

This patch can solve your problems if you have network connection dropping too much' diff --git a/project/tcpdump/ListItem.pm b/project/tcpdump/ListItem.pm index 4aa56d1..9c34361 100755 --- a/project/tcpdump/ListItem.pm +++ b/project/tcpdump/ListItem.pm @@ -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"=>"" .'

Makes the text messages of tcpdump(1) readable when option -x is used.

' diff --git a/project/timeplan/ListItem.pm b/project/timeplan/ListItem.pm index b013127..5871b08 100755 --- a/project/timeplan/ListItem.pm +++ b/project/timeplan/ListItem.pm @@ -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"=>"" .'

Software to do summaries of time log - what have you spent much time on.' diff --git a/project/vblib/ListItem.pm b/project/vblib/ListItem.pm index 6ada1d1..05617b1 100755 --- a/project/vblib/ListItem.pm +++ b/project/vblib/ListItem.pm @@ -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"=>"Princip, a.s.", "description"=>"" diff --git a/project/winvnc/ListItem.pm b/project/winvnc/ListItem.pm index 68d70ce..d3a4c97 100755 --- a/project/winvnc/ListItem.pm +++ b/project/winvnc/ListItem.pm @@ -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"=>"" .'

If you install WinVNC in' diff --git a/project/wllib/ListItem.pm b/project/wllib/ListItem.pm index 50d3041..eee88b7 100755 --- a/project/wllib/ListItem.pm +++ b/project/wllib/ListItem.pm @@ -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"=>"" .'

This library should make you generically use line drawing on the following platforms:' - .' UNIX/X Windows System X11,' - .' UNIX/SVGAlib and' - .' AmigaOS.

' + .' '.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').'

' ); 1; diff --git a/project/xbill/ListItem.pm b/project/xbill/ListItem.pm index 441e955..b982249 100755 --- a/project/xbill/ListItem.pm +++ b/project/xbill/ListItem.pm @@ -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"=>"" .'

Almost-rewritten classical xBill game,' diff --git a/redirect.pl b/redirect.pl index 97a8cfb..6bf50cd 100755 --- a/redirect.pl +++ b/redirect.pl @@ -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/,)[0]]}; eval "use lib '$top_dir'"; close F; } use My::Web; use Apache::Constants qw(MOVED); diff --git a/robots.txt b/robots.txt index eb05362..43317cb 100644 --- a/robots.txt +++ b/robots.txt @@ -1,2 +1,2 @@ User-agent: * -Disallow: +Disallow: /project/ChangeLog.txt.pl