#!/usr/bin/perl -w
$baseUrl = "ftp.kernel.org/pub/linux/kernel/people/akpm/patches/2.6/";
foreach $i (<*>) {
	( -d $i ) or next;
	$i =~ /^2\.6\.(.*)-mm(\d)$/ or next;
	$version = "2.6.$1";
	$mmNum="$2";
	chdir $i;
	$thisMmUrl = "$baseUrl/$version/$version-mm$mmNum";
	foreach $j ("announce.txt", "patch-series") {
		$name = $j;
		$name eq "patch-series" and $name = "series";
		( ! -f $name ) or next;
		system("http_proxy= wget $thisMmUrl/$j");
		system("mv $j $name") if ($name ne $j);
	}
	$name = "series";
	( -f "umlSeries" ) or system("grep uml series > umlSeries");
	chdir "..";
	#To add.
#while read i; do http_proxy= wget ftp://ftp.kernel.org/pub/linux/kernel/people/akpm/patches/2.6/2.6.9-rc3/2.6.9-rc3-mm3/broken-out/$i; done < umlSeries
}