#!/usr/bin/perl use English; use CGI; $query = new CGI; $module = $query->param('module'); print "Content-type: text/html\n\n"; print < ClanLib Game SDK

$module Snapshots

Versions available:

END $files = `find $module* -name '*.txt'`; $files =~ s/\.\///g; $files =~ s/\.txt//g; @files2 = split("\n", $files); @files = sort {$b cmp $a} @files2; foreach $file (@files) { $file =~ /CVS-(.*)$/; print "

$1: zip, tgz

\n"; open (FILE, "<$file.txt"); while ($line = ) { chop $line; print "

$line

\n" if ($line); } close (FILE); print "

"; } print <

Questions or comments, write to the ClanLib mailing list. END2