#!/usr/bin/perl open (hfh, ">index.html"); open (packages, "gzip -cd Packages.gz |"); open (sources, "gzip -cd Sources.gz |"); print hfh "
This directory contains most recent nemerle packages for
Debian. We will try
to put them into main as soon as possible.
To install nemerle, you only need put these lines to your
/etc/apt/sources.list, and use apt-get to install the package.
deb http://nemerle.org/download/deb/ ./
deb-src http://nemerle.org/download/deb/ ./
\n"; print hfh "\n Binary packages: ---------------- "; while() { if (/^Maintainer: (.*) <(.*)>\n/) { $url=$2; print hfh "Maintainer: $1\n"; } elsif (/^Filename: (.*)\n/) { $url=$1; $url=~s/\.\///; $name=$url; $name=~s/.*\///; print hfh "Filename: $name\n"; } else { print hfh $_; } } print hfh "\n And Sources: ------------ "; while( ) { if (/^Directory: (.*)\n/){ $dir=$1; } if (/^ (\w*) (\w*) (.*)\n/) { print hfh " $1 $2 $3\n"; } else { print hfh $_; } } print hfh "