|
@@ -974,20 +974,29 @@ sub find_ending_index {
|
|
return $index;
|
|
return $index;
|
|
}
|
|
}
|
|
|
|
|
|
-sub get_maintainer_role {
|
|
|
|
|
|
+sub get_subsystem_name {
|
|
my ($index) = @_;
|
|
my ($index) = @_;
|
|
|
|
|
|
- my $i;
|
|
|
|
my $start = find_starting_index($index);
|
|
my $start = find_starting_index($index);
|
|
- my $end = find_ending_index($index);
|
|
|
|
|
|
|
|
- my $role = "unknown";
|
|
|
|
my $subsystem = $typevalue[$start];
|
|
my $subsystem = $typevalue[$start];
|
|
if ($output_section_maxlen && length($subsystem) > $output_section_maxlen) {
|
|
if ($output_section_maxlen && length($subsystem) > $output_section_maxlen) {
|
|
$subsystem = substr($subsystem, 0, $output_section_maxlen - 3);
|
|
$subsystem = substr($subsystem, 0, $output_section_maxlen - 3);
|
|
$subsystem =~ s/\s*$//;
|
|
$subsystem =~ s/\s*$//;
|
|
$subsystem = $subsystem . "...";
|
|
$subsystem = $subsystem . "...";
|
|
}
|
|
}
|
|
|
|
+ return $subsystem;
|
|
|
|
+}
|
|
|
|
+
|
|
|
|
+sub get_maintainer_role {
|
|
|
|
+ my ($index) = @_;
|
|
|
|
+
|
|
|
|
+ my $i;
|
|
|
|
+ my $start = find_starting_index($index);
|
|
|
|
+ my $end = find_ending_index($index);
|
|
|
|
+
|
|
|
|
+ my $role = "unknown";
|
|
|
|
+ my $subsystem = get_subsystem_name($index);
|
|
|
|
|
|
for ($i = $start + 1; $i < $end; $i++) {
|
|
for ($i = $start + 1; $i < $end; $i++) {
|
|
my $tv = $typevalue[$i];
|
|
my $tv = $typevalue[$i];
|
|
@@ -1021,16 +1030,7 @@ sub get_maintainer_role {
|
|
sub get_list_role {
|
|
sub get_list_role {
|
|
my ($index) = @_;
|
|
my ($index) = @_;
|
|
|
|
|
|
- my $i;
|
|
|
|
- my $start = find_starting_index($index);
|
|
|
|
- my $end = find_ending_index($index);
|
|
|
|
-
|
|
|
|
- my $subsystem = $typevalue[$start];
|
|
|
|
- if ($output_section_maxlen && length($subsystem) > $output_section_maxlen) {
|
|
|
|
- $subsystem = substr($subsystem, 0, $output_section_maxlen - 3);
|
|
|
|
- $subsystem =~ s/\s*$//;
|
|
|
|
- $subsystem = $subsystem . "...";
|
|
|
|
- }
|
|
|
|
|
|
+ my $subsystem = get_subsystem_name($index);
|
|
|
|
|
|
if ($subsystem eq "THE REST") {
|
|
if ($subsystem eq "THE REST") {
|
|
$subsystem = "";
|
|
$subsystem = "";
|
|
@@ -1118,7 +1118,8 @@ sub add_categories {
|
|
}
|
|
}
|
|
}
|
|
}
|
|
if ($email_reviewer) {
|
|
if ($email_reviewer) {
|
|
- push_email_addresses($pvalue, 'reviewer');
|
|
|
|
|
|
+ my $subsystem = get_subsystem_name($i);
|
|
|
|
+ push_email_addresses($pvalue, "reviewer:$subsystem");
|
|
}
|
|
}
|
|
} elsif ($ptype eq "T") {
|
|
} elsif ($ptype eq "T") {
|
|
push(@scm, $pvalue);
|
|
push(@scm, $pvalue);
|