# print {$transcript} __bug_info(@data);
# add_recipients(data => \@data,
# recipients => $param{recipients}
+# debug => $debug,
+# transcript => $transcript,
# );
# for my $data (@data) {
# append_action_to_log(bug => $data->{bug_num},
# print {$transcript} "$action\n";
# add_recipients(data => $data,
# recipients => $param{recipients},
+# debug => $debug,
+# transcript => $transcript,
# );
# }
# if ($locks) {
__handle_affected_packages(data => \@data,%param);
print {$transcript} __bug_info(@data);
add_recipients(data => \@data,
- recipients => $param{recipients}
+ recipients => $param{recipients},
+ debug => $debug,
+ transcript => $transcript,
);
my $action = 'Did not alter affected packages';
for my $data (@data) {
print {$transcript} "$action\n";
add_recipients(data => $data,
recipients => $param{recipients},
+ debug => $debug,
+ transcript => $transcript,
);
}
if ($locks) {
print {$transcript} __bug_info(@data);
add_recipients(data => \@data,
recipients => $param{recipients}
+ debug => $debug,
+ transcript => $transcript,
);
# figure out the log that we're going to use
my $summary = '';
print {$transcript} "$action\n";
add_recipients(data => $data,
recipients => $param{recipients},
+ debug => $debug,
+ transcript => $transcript,
);
}
if ($locks) {
@data and defined $data[0] or die "No bug found for $param{bug}";
add_recipients(data => \@data,
recipients => $param{recipients}
+ debug => $debug,
+ transcript => $transcript,
);
my $action = '';
for my $data (@data) {
print {$transcript} "$action\n";
add_recipients(data => $data,
recipients => $param{recipients},
+ debug => $debug,
+ transcript => $transcript,
);
}
if ($locks) {
}
add_recipients(recipients => $param{recipients},
data => \@data,
+ debug => $debug,
+ transcript => $transcript,
);
my @bugs = map {$_->{bug_num}} @data;
print {$debug} "$param{bug} bugs ".join(' ',@bugs)."\n";
writebug($bug,$newdata);
add_recipients(recipients => $param{recipients},
data => $newdata,
+ debug => $debug,
+ transcript => $transcript,
);
}
print {$debug} "$param{bug} unlocking $locks\n";