Re: BK-kernel-tools/shortlog update

[Olaf Dietsche <olaf+list.linux-kernel@olafdietsche.de>]

Linus Torvalds <torvalds@transmeta.com> writes:

> On Wed, 26 Mar 2003, Matthias Andree wrote:
>> 
>> you can either use bk receive to patch this mail, you can pull from
>> bk://krusty.dt.e-technik.uni-dortmund.de  (NOTE: no trailing slash)
>> or you can apply the patch below.
>
> Btw, one feature I'd like to see in shortlog is the ability to use 
> regexps for email address matching, ie something like
>
> 	'torvalds@.*transmeta.com' => 'Linus Torvalds'
> 	... 
> 	'alan@.*swansea.linux.org.uk' => 'Alan Cox'
> 	...
> 	'bcrl@redhat.com' => 'Benjamin LaHaise',
> 	'bcrl@.*' => '?? Benjamin LaHaise',
> 	..
>
> I don't know whether you can force perl to do something like this, but if 
> somebody were to try...

if you change your list to:

@email_name_map = (
	['torvalds@.*transmeta.com' => 'Linus Torvalds'],
	... 
	['alan@.*swansea.linux.org.uk' => 'Alan Cox'],
	...
	['bcrl@redhat.com' => 'Benjamin LaHaise'],
	['bcrl@.*' => '?? Benjamin LaHaise'],
...);

something along these (untested) lines should do the trick:

sub email2name
{
	my($email) = @_;
	for my $i (@mailmap) {
		my($pattern, $name) = @$i;
		return $name if ($email =~ m/$pattern/i);
	}

	return '??';
}
      
Regards, Olaf.