#!/usr/bin/perl -w # $Id$ use strict; my $CPAN = 'ftp://ftp.cpan.org/pub/CPAN/authors/id/D/DA/DANIEL'; my $CVS = '/cvs'; my %stableReleases = ( 'Apache::AuthenRadius' => '0.3', 'Audio::FLAC::Decoder' => '0.2', 'Audio::FLAC::Header' => '1.1', 'Audio::MikMod' => '0.5', 'Audio::Musepack' => '0.02', 'Audio::WMA' => '0.01', 'Class::DBI::Oracle' => '0.51', 'Class::DBI::Sybase' => '0.1', 'Crypt::Cracklib' => '0.01', 'Crypt::OpenSSL::PKCS12' => '0.01', 'Crypt::OpenSSL::X509' => '0.2', 'Ogg::Vorbis::Decoder' => '0.6', 'Term::Newt' => '0.01', 'Term::Slang' => '0.07', ); sub main { printHeader(); for my $name (sort keys %stableReleases) { my $version = $stableReleases{$name}; print qq!
  • $name\n!; # my $tarball = $name; $tarball =~ s/::/-/g; $tarball .= "-$version.tar.gz"; print qq!Download stable tarfile!; # my $cvsdir = $name; $cvsdir =~ s/::/\//g; print qq!View CVS Repository\n!; } printFooter(); } sub printHeader { print "Content-Type: text/html\n\n"; print < software

    Some software I've written. Updated with more info later.

    \n\n\n"; } main(); __END__