linux-master/scripts/get_maintainer.pl

1276     my $role = "unknown";
1285 		$role = $pvalue;
1290     $role = lc($role);
1291     if      ($role eq "supported") {
1292 	$role = "supporter";
1293     } elsif ($role eq "maintained") {
1294 	$role = "maintainer";
1295     } elsif ($role eq "odd fixes") {
1296 	$role = "odd fixer";
1297     } elsif ($role eq "orphan") {
1298 	$role = "orphan minder";
1299     } elsif ($role eq "obsolete") {
1300 	$role = "obsolete minder";
1301     } elsif ($role eq "buried alive in reporters") {
1302 	$role = "chief penguin";
1305     return $role . ":" . $subsystem;
1373 		    my $role = get_maintainer_role($i);
1374 		    push_email_addresses($pvalue, $role . $suffix);
1403     my ($line, $role) = @_;
1412 	push(@email_to, [format_email($name, $address, $email_usename), $role]);
1414 	push(@email_to, [format_email($name, $address, $email_usename), $role]);
1423     my ($address, $role) = @_;
1428 	push_email_address($address, $role);
1432 	    push_email_address($entry, $role);
1435 	if (!push_email_address($address, $role)) {
1442     my ($line, $role) = @_;
1451 		&& ($role eq "" || !($entry->[1] =~ m/$role/))
1454 		    $entry->[1] = "$role";
1456 		    $entry->[1] = "$entry->[1],$role";
1461 		&& ($role eq "" || !($entry->[1] =~ m/$role/))
1464 		    $entry->[1] = "$role";
1466 		    $entry->[1] = "$entry->[1],$role";
1800 			  "*", "#", "email/list and role:stats";
1809 		my $role = $entry->[1];
1821 		printf STDERR "\n     %s\n", $role;
2164     my ($role, $divisor, @lines) = @_;
2199 	    add_role($line, "$role:$sign_offs/$divisor=$fmt_percent%");
2201 	    add_role($line, $role);
2512 	my ($address, $role) = @$_;
2515 		push(@lines, "$address ($role)");