Re: BK snapshots removed from kernel.org?

[Jeff Garzik <jgarzik@pobox.com>]

[-- Attachment #1: Type: text/plain, Size: 840 bytes --]

Randy.Dunlap wrote:
> sean wrote:
> 
>> Randy.Dunlap wrote:
>>
>>>
>>> Did you look in
>>> http://www.kernel.org/pub/linux/kernel/v2.6/snapshots/old/ ?
>>>
>>
>> Yes I did.
>>
>> Latest is 2.6.12-rc1-bk2, March 26.
>>
>> None since then?
> 
> 
> I can't explain it other than "the snapshots are broken."
> All I do is look around for them, and behold, just look in
> 
> http://www.kernel.org/pub/linux/kernel/v2.6/snapshots/
> 
> for the 2.6.11.6-bk snapshots.
> 
> It's confusing and it needs to be fixed....
> 
> Jeff, is there some way that I can help to fix this,
> with the requirement (for me) that I not be required to use BK?
> I'll munge scripts or whatever...
> but I guess that I'll also need a kernel.org account to do that.

Should hopefully just be changing get-version.pl ...

	Jeff, still catching up from trip+engagement



[-- Attachment #2: get-version.pl --]
[-- Type: text/plain, Size: 710 bytes --]

#!/usr/bin/perl -w

use strict;
use Getopt::Std;

my (%opts, $mode, $s);

getopts('me', \%opts);

if ($opts{m}) {
	$mode = 0;
} elsif ($opts{e}) {
	$mode = 1;
} else {
	die "usage: get-version.pl [-e | -m]\n";
}

$s = <>;
chomp $s;
my @line = split(/\./, $s);

my ($kmicro, $kextra);

if ($#line == 3) {
	$kmicro = $line[2];
	$kextra = "." . $line[3];
} else {
	my @more = split(/-/, $line[2]);
	if ($#more == 1) {
		$kmicro = $more[0];
		$kextra = "-" . $more[1];
	} elsif (($#more == 0) && ($line[2] =~ /\d+/)) {
		$kmicro = $more[0];
		$kextra = "";
	} else {
		die "invalid extraversion parse";
	}
}

if ($mode) {
	$s = $kextra;
} else {
	$s = $kmicro;
}

printf("%s\n", $s) unless ($s eq "");

exit(0);



[-- Attachment #3: snapshot.sh --]
[-- Type: application/x-sh, Size: 3723 bytes --]