115 die "Can't find IncomingDir for ruleset [$ruleset] in configuration file: [$rci]\n" unless defined $i; |
115 die "Can't find IncomingDir for ruleset [$ruleset] in configuration file: [$rci]\n" unless defined $i; |
116 |
116 |
117 # we need to determine uploaders before running reprepro, because it will |
117 # we need to determine uploaders before running reprepro, because it will |
118 # remove the *.changes files before we are going to parse its output |
118 # remove the *.changes files before we are going to parse its output |
119 my $uploaders = { map { $_ => uploader($_) } glob("$i/*.changes") }; |
119 my $uploaders = { map { $_ => uploader($_) } glob("$i/*.changes") }; |
120 for my $c (keys %{$uploaders}) { sendmails ({ $uploaders->{$c} => scalar qx{lintian $c 2>&1} }, $valid_receivers, $fallback, $hostname, "[$hostname] Lintian Report"); } |
120 if ($opt{'run-lintian'}) { for my $c (keys %{$uploaders}) { sendmails ({ $uploaders->{$c} => scalar qx{lintian $c 2>&1} }, $valid_receivers, $fallback, $hostname, "[$hostname] Lintian Report"); }}; |
121 my $messages = run_command_and_parse_output([@cmd], $uploaders, $important, $unimportant, $log_uncaught, $log_raw); |
121 my $messages = run_command_and_parse_output([@cmd], $uploaders, $important, $unimportant, $log_uncaught, $log_raw); |
122 sendmails($messages, $valid_receivers, $fallback, $hostname, "[$hostname] Import Report"); |
122 sendmails($messages, $valid_receivers, $fallback, $hostname, "[$hostname] Import Report"); |
123 |
123 |
124 # determine 'uploader' of changes file; 'uploader' means here: either the |
124 # determine 'uploader' of changes file; 'uploader' means here: either the |
125 # signer of the changes file or the changer or the maintainer in that order of |
125 # signer of the changes file or the changer or the maintainer in that order of |