[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.7, Fri Aug 4 13:50:49 2006 UTC (11 years, 2 months ago) by vapo.longdrop.melbourne.sgi.com
Branch: MAIN
Changes since 1.6: +1 -0 lines

Adding myself to developers list
Merge of master-melb:xfs-cmds:26710a by kenmcd.

  Adding myself to developers list

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',
	'vapo',		'Vlad Apostolov',
);

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;