Permalink
Browse files

add ML_MAILER option

  • Loading branch information...
1 parent 6154138 commit cbae2c924378c6edb5be445587079dcfb3ae7bad @xdg xdg committed Aug 13, 2011
Showing with 3 additions and 2 deletions.
  1. +1 −0 lib/PAUSE.pm
  2. +2 −2 lib/PAUSE/mldistwatch.pm
View
@@ -79,6 +79,7 @@ $PAUSE::Config ||=
MAXRETRIES => 16,
MIRRORCONFIG => '/usr/local/mirror/mymirror.config',
MLROOT => '/home/ftp/pub/PAUSE/authors/id/', # originally module list root
+ ML_MAILER => 'sendmail',
ML_MIN_FILES => 20_000, # must be this many files to run mldistwatch
MOD_DATA_SOURCE_NAME => "dbi:mysql:mod",
NO_SUCCESS_BREAK => 900,
View
@@ -510,7 +510,7 @@ sub checkfornew {
Subject => "Upload Permission or Version mismatch"
);
$msg->add("From", "PAUSE <$PAUSE::Config->{UPLOAD}>");
- my $fh = $msg->open('sendmail');
+ my $fh = $msg->open($PAUSE::Config->{ML_MAILER});
print $fh "Not indexed.\n\t$Id\n\n", $alert;
$fh->close;
}
@@ -1786,7 +1786,7 @@ Please contact modules\@perl.org if there are any open questions.
Subject => $failed."PAUSE indexer report $substrdistro",
);
$msg->add("From", "PAUSE <$PAUSE::Config->{UPLOAD}>");
- my $fh = $msg->open('sendmail');
+ my $fh = $msg->open($PAUSE::Config->{ML_MAILER});
print $fh @m;
$fh->close;
$self->verbose(1,"-->> Sent \"indexer report\" mail about $substrdistro\n");

0 comments on commit cbae2c9

Please sign in to comment.