caff: support using a SMTP-server to send out the mails instead

[pgp-tools.git] / caff / caff

diff --git a/caff/caff b/caff/caff
index 47c4ec89802c7211bfe5f46f18ab63d951fc3dd9..bb687a289b97768ce8aa38bc0d385bb0b4c19ab3 100755 (executable)
--- a/caff/caff
+++ b/caff/caff
@@ -245,6 +245,15 @@ Add a Reply-To: header to messages sent. Default: none.
 Address to send blind carbon copies to when sending mail.
 Default: none.
 
+=item B<smtp-server> [string]
+
+Send mail through specified SMTP server. Default: none (uses
+sendmail).
+
+=item B<smtp-port> [string]
+
+Use specified port for sending mail to SMTP server. Default : 25.
+
 =back
 
 =head1 AUTHORS
@@ -770,7 +779,14 @@ sub send_mail($$$@) {
        $message_entity->head->add("Reply-To", $CONFIG{'reply-to'}) if defined $CONFIG{'reply-to'};
        $message_entity->head->add("Bcc", $CONFIG{'bcc'}) if defined $CONFIG{'bcc'};
        $message_entity->head->add("User-Agent", $USER_AGENT);
-       $message_entity->send();
+
+       if($CONFIG{'smtp-server'}) {
+               $message_entity->smtpsend(Host => $CONFIG{'smtp-server'},
+                       ($CONFIG{'smtp-port'} ? (Port => $CONFIG{'smtp-port'}) : ()),
+                       MailFrom => $CONFIG{'email'});
+       } else {
+               $message_entity->send();
+       }
        $message_entity->stringify();
 };