[BACK]Return to developers.pl CVS log [TXT][DIR] Up to [Development] / xfs-cmds / xfsmisc

File: [Development] / xfs-cmds / xfsmisc / Attic / developers.pl (download)

Revision 1.6, Fri Jun 9 04:23:09 2006 UTC (11 years, 4 months ago) by nathans.longdrop.melbourne.sgi.com
Branch: MAIN
Changes since 1.5: +1 -2 lines

Update list of people so merges can work again.
Merge of master-melb:xfs-cmds:26219a by kenmcd.

package developers;
use strict;

# Username to real name mapping for people who are to blame^W^W
# checking XFS mods into the xfs-kern/xfs-cmds/dmapi ptools trees.
my %names = (
	'arunr',	'Arun Ramakrishnan',
	'alkirkco',	'Mandy Kirkconnell',
	'bobo',		'Bob Kierski',
	'cattelan',	'Russell Cattelan',
	'dgc',		'David Chinner',
	'felixb',	'Felix Blyakher',
	'gnb',		'Greg Banks',
	'gwehrman',	'Geoffrey Wehrman',
	'hankins',	'Ryan Hankins',
	'hch',		'Christoph Hellwig',
	'olaf',		'Olaf Weber',
	'nathans',	'Nathan Scott',
	'sandeen',	'Eric Sandeen',
	'tes',		'Tim Shimmin',
	'wkendall',	'Bill Kendall',
	'yingping',	'Yingping Lu',
);

sub developer_check {
	my $username = shift @_;
	if (!defined($names{$username})) {
		die "unknown developer: $username";
	}
}

sub developer {
	my $username = shift @_;
	developer_check($username);
	$names{$username} . ' <' . $username. '@sgi.com>';
}

sub developer_name {
	my $username = shift @_;
	developer_check($username);
	$names{$username};
}

sub developer_email {
	my $username = shift @_;
	developer_check($username);
	$username . '@sgi.com';
}

1;