#!/usr/bin/perl $index = ""; $out = ""; foreach $dir (<*>) { open PATCHLIST, "<$dir/patchlist.txt" or next; $patch = ""; %desc = (); %versions = (); while () { chomp; if (s/^\t//) { die "$dir/patchlist.txt:$.: missing patch name\n" if !$patch; $desc{$patch} .= " " if defined($desc{$patch}); $desc{$patch} .= $_; } else { $patch = $_; ($dir_esc = $dir) =~ s/(\W)/\\$1/g; foreach $verpath (<$dir/*>) { ($version = $verpath) =~ s,^$dir_esc/,, or die "bad: $verpath [$dir]"; push @{$versions{$patch}}, $version if -f "$verpath/$patch"; } } } map {s/&/&/g; s//>/g; s!((?:https?|ftp)://\S+[^\s.,;)])!$1!g} values(%desc); if (!%desc) { print STDERR "$dir/patchlist.txt: no patches!\n"; next; } my $dirid = $dir; $dirid =~ s/([^a-zA-Z0-9-])/sprintf("_%02X",ord($1))/eg; $index .= "
" if $index; $index .= "$dir"; $out .= "
" if $out; $out .= "

$dir

\n
\n"; foreach $patch (sort {my ($c,$d) = ($a,$b); $c =~ s/\.(?:diff|patch)$//; $d =~ s/\.(?:diff|patch)$//; $c cmp $d} (keys(%desc))) { @vers = @{$versions{$patch}}; next if !@vers; @vers = sort { my ($a_ver, $a_extra) = ($a =~ /^\D*([0-9.]*)(.*)$/); my ($b_ver, $b_extra) = ($b =~ /^\D*([0-9.]*)(.*)$/); my @a_ver = split(/\./, $a_ver); my @b_ver = split(/\./, $b_ver); while (@a_ver && @b_ver) { my $p = shift(@a_ver); my $q = shift(@b_ver); return -1 if $p < $q; return 1 if $p > $q; } return 1 if @a_ver; return -1 if @b_ver; while ($a_extra ne "" && $b_extra ne "") { my ($p, $q); ($p, $a_extra) = ($a_extra =~ /^[^A-Za-z0-9]*(.*?)(?:[-._](.*))?$/); ($q, $b_extra) = ($b_extra =~ /^[^A-Za-z0-9]*(.*?)(?:[-._](.*))?$/); return -1 if $p < $q; return 1 if $p > $q; return -1 if $p lt $q; return 1 if $p gt $q; } return 0; } @vers; $out .= "
$patch (" . join(" | ", map {my $url = "$dir/$_/$patch"; $url =~ s/\+/%2B/g; "$_"} @vers) . ")
\n"; $out .= "
$desc{$patch}
\n"; } $out .= "
\n"; } my @localtime = localtime(); my $date = sprintf("%d/%d/%d", $localtime[5]+1900, $localtime[4]+1, $localtime[3]); open OUT, ">index.html" or die "index.html: $!\n"; print OUT < The Patch Pile

The Patch Pile

All patches linked from this page are hereby placed in the public domain, unless text in the patch file indicates otherwise. These patches are provided as-is; use at your own risk.

Package index

$index

$out
Andrew Church
Generated on $date
hits -->
EOT