#!/usr/bin/perl # # Create a page listing all my debian packages # # By Joey Hess, # # Distribute and modify freely. $package_file="/home/joey/debian/public/Packages.gz"; # Pregenerated Packages file. $webdir="ftp://kitenet.net/pub/code/debian"; # Where are these packages, in webspace? BEGIN { push (@INC,'../include/') } require 'cgi-lib.pl'; print &PrintHeader; print qq{ Debian packages maintained by Joey Hess

Joey's Debian packages

This is a collection of all the Debian packages I currently maintain. These same packages, as well as their associated source packages and other files, are also available by ftp, and by apt, if you place the following in /etc/apt/source.list:

deb http://kitenet.net/programs/code/debian /
deb-src http://kitenet.net/programs/code/debian /

You can look at my Debian todo list if you like. Also, here are bug reports currently filed against these packages.

) { s/>/>/g; s/\n"; } if (/^Package: (.*)/ ne undef) { # Beginning of a package. print "

\n"; $total++; } if (!$in_desc) { # Normal tag of a package. if (/^Filename: .*\/(.*?)$/ ne undef) { # Change filename to links. $fn=$1; $_="Filename: $fn\n"; } # Remove installed-size tag: it only shows up on packages I # have installed, and it causes problems. # Remove some other fields that were just cluttering things up. if ((/^installed-size:/i ne undef) || (/^Maintainer:/i ne undef) || (/^Architecture:/i ne undef)) { $_='' } # Pretty-print value in bold. chomp; ($tag,$value)=split(/: /,$_,2); if ($tag) { print "$tag: $value
\n"; } } else { s/\s\.//; print $_; } if (/^Description:/ ne undef) { print "
```
\n";
		$in_desc=1;
	}
}
close P;

print "
```

(That's $total packages in all.)

\n"; &PrintFooter; print "\n";