package => qr/(?i)^package\:?\s+(\S.*\S)?\s*$/,
limit => qr/(?i)^limit\:?\s+(\S.*\S)\s*$/,
affects => qr/(?i)^affects?\s+\#?(-?\d+)(?:\s+((?:[=+-])?)\s*(\S.*)?)?\s*$/,
- summary => qr/(?i)^summary\s+\#?(-?\d+)\s*(\d+|)\s*$/,
+ summary => qr/(?i)^summary\s+\#?(-?\d+)\s*(.*)\s*$/,
+ outlook => qr/(?i)^outlook\s+\#?(-?\d+)\s*(.*)\s*$/,
owner => qr/(?i)^owner\s+\#?(-?\d+)\s+((?:\S.*\S)|\!)\s*$/,
noowner => qr/(?i)^noowner\s+\#?(-?\d+)\s*$/,
unarchive => qr/(?i)^unarchive\s+#?(\d+)$/,
},
limit => {type => HASHREF,
},
+ replyto => {type => SCALAR,
+ },
},
);
my $line = $param{line};
print {$transcript} "Failed to give $ref a summary: ".cleanup_eval_fail($@,$debug)."\n";
}
+ } elsif ($ctl eq 'outlook') {
+ my $outlook_msg = length($matches[1])?$matches[1]:undef;
+ eval {
+ outlook(@{$param{common_control_options}},
+ bug => $ref,
+ outlook => $outlook_msg,
+ );
+ };
+ if ($@) {
+ $errors++;
+ print {$transcript} "Failed to give $ref a outlook: ".cleanup_eval_fail($@,$debug)."\n";
+ }
+
} elsif ($ctl eq 'owner') {
my $newowner = $matches[1];
if ($newowner eq '!') {