diff options
author | Gustavo De Nardin <spuk@mandriva.org> | 2007-05-21 15:09:19 +0000 |
---|---|---|
committer | Gustavo De Nardin <spuk@mandriva.org> | 2007-05-21 15:09:19 +0000 |
commit | 456bb2657b2c04fecad6210852be15582c443d48 (patch) | |
tree | 4cf47154bf2c7d96fee455375f8056e06b778a64 /ulri | |
parent | 688e2df749b62ca51410a0616c3561f02034cf5b (diff) | |
download | iurt-456bb2657b2c04fecad6210852be15582c443d48.tar iurt-456bb2657b2c04fecad6210852be15582c443d48.tar.gz iurt-456bb2657b2c04fecad6210852be15582c443d48.tar.bz2 iurt-456bb2657b2c04fecad6210852be15582c443d48.tar.xz iurt-456bb2657b2c04fecad6210852be15582c443d48.zip |
get_repsys_conf() didn't really got Repsys config, just emails from the
static file. Changed it for get_author_email(), which uses repsys command
itself to get the email. Should fix bug #30904.
Diffstat (limited to 'ulri')
-rwxr-xr-x | ulri | 13 |
1 files changed, 4 insertions, 9 deletions
@@ -33,7 +33,7 @@ use strict; use MDK::Common; -use Iurt::Config qw(config_usage get_date config_init dump_cache init_cache get_repsys_conf check_arch check_noarch); +use Iurt::Config qw(config_usage get_date config_init dump_cache init_cache get_author_email check_arch check_noarch); use Iurt::Process qw(check_pid); use Iurt::File qw(check_upload_tree); use Iurt::Mail qw(sendmail); @@ -122,6 +122,7 @@ my %config_usage = ( }, }, }, + # this is weird to me, guessing email addresses? -spuk default_mail_domain => { desc => "Default mail domain to append", default => 'mandriva.org' @@ -142,10 +143,6 @@ my %config_usage = ( desc => 'Where to store the cache files', default => "$HOME/.bugs" }, - repsys_conf => { - desc => 'Path of repsys.conf which includes login mail corresponding', - default => '/etc/repsys.conf' - }, tmp => { desc => "Temporary directory", default => "$HOME/tmp/" @@ -168,8 +165,6 @@ foreach my $k (keys %{$config->{arch_translation}}) { push @{$untranslated_arch{$v}}, $k; } -my $mail = get_repsys_conf($config->{repsys_conf}); - $run{pidfile_home} = $config->{tmp}; $run{pidfile} = "upload"; my $pidfile = check_pid(\%run); @@ -493,7 +488,7 @@ foreach my $prefix (keys %pkg_tree) { $text .= "- $srpm\n"; } - my $to = $mail->{$user} || "$user\@$config->{default_mail_domain}"; + my $to = get_author_email($user) || "$user\@$config->{default_mail_domain}"; my $fpath = "$config->{http_queue}/failure/$path/$prefix"; $fpath =~ tr!/!!s; # Squash double slashes ... $fpath =~ s!/!//!; # ... except for http:// @@ -530,7 +525,7 @@ foreach my $prefix (sort keys %pkg_tree) { my $srpms = $ent->{srpms} or next; my $user = $ent->{user}; if ($user) { - $user = $mail->{$user} || $config->{packager} + $user = get_author_email($user) || $config->{packager}; } else { $user = $config->{packager} } |