equal
deleted
inserted
replaced
346 |
346 |
347 my ($msg, $to) = ($messages->{$u}, $u); |
347 my ($msg, $to) = ($messages->{$u}, $u); |
348 ($msg, $to) = ("[This is just a test mail to you. If this wasn't a test mail, then it should have been sent to [$u]]\n\n" . $messages->{$u}, $fallback) if $dont_send_to_real_uploader; |
348 ($msg, $to) = ("[This is just a test mail to you. If this wasn't a test mail, then it should have been sent to [$u]]\n\n" . $messages->{$u}, $fallback) if $dont_send_to_real_uploader; |
349 |
349 |
350 sendmail(From => $from, |
350 sendmail(From => $from, |
351 Subject => "[apt] Possible Problem importing your changes", |
351 Subject => "[apt] Import Report", |
352 To => $to, |
352 To => $to, |
353 Message => $msg); |
353 Message => $msg); |
354 print "[$0]: ", $Mail::Sendmail::log, "\n"; |
354 print "[$0]: ", $Mail::Sendmail::log, "\n"; |
355 warn "[$0]: ", $Mail::Sendmail::error, "\n" if $Mail::Sendmail::error; |
355 warn "[$0]: ", $Mail::Sendmail::error, "\n" if $Mail::Sendmail::error; |
356 |
356 |