#!/usr/bin/perl use strict; use warnings; use POSIX; my $title = shift @ARGV; print < OSGeo4W: $title

OSGeo4W: $title

EOF my %pkg; my $pkg; while(<>) { chop; if(/^@ (.*)$/) { $pkg = $1; } elsif(defined $pkg && /^version: (.*)$/) { $pkg{$pkg}{version} = $1 unless defined $pkg{$pkg}{version}; } elsif(defined $pkg && /^category:\s+_obsolete\s*$/ ) { $pkg{$pkg}{obsolete} = 1; } elsif(defined $pkg && !exists $pkg{$pkg}{maintainer} && /^install:\s+\.\/(\S+)\/([^\/]+)\s+(\d+)\s+(\S+)$/) { my $dir = $1; #print STDERR "dir: $dir\nfile: $2\nsize: $3\nmd5: $4\n"; if( -r "$dir/setup.hint" ) { open F, "$dir/setup.hint"; while() { chop; if(/^maintainer:\s+(.*)$/ ) { $pkg{$pkg}{maintainer} = $1; } } close F; } } elsif( /^$/ ) { undef $pkg; } } #print "\n"; #print "\n"; print "

\n"; foreach my $pkg (sort keys %pkg) { # print ""; # print ""; # print ""; print "

$pkg" if defined $pkg{$pkg}{version}; print ", $pkg{$pkg}{version}" if defined $pkg{$pkg}{version}; print " (obsolete)" if exists $pkg{$pkg}{obsolete}; my $maintainer = $pkg{$pkg}{maintainer}; if( defined $maintainer ) { # print "

"; print ", $maintainer"; } else { # print ""; } # print "\n"; } #print "

Package	Version	Maintainer
" . $pkg . "	" . ($pkg{$pkg}{version} \|\| "unknown" ) . "	$maintainer

\n"; print "\n"; print '

Last updated: ' . ctime(time) . '' . '

OSGeo4W: http://trac.osgeo.org/osgeo4w/

' . '';