smeserver-sendmail-wrapper/root/usr/bin/sendmail-wrapper.pl

77 lines
1.8 KiB
Perl
Executable File

#!/usr/bin/perl
# initial script from https://github.com/xtremespb/sendmail-wrapper
# MIT License (MIT) Copyright (c) 2015 Michael Matveev
use strict;
use warnings;
use Net::SMTP;
use Email::Address;
use Email::MessageID;
use Email::Date::Format qw(email_date);
use Net::Domain qw(hostname hostfqdn hostdomain domainname);
my $user = getpwuid( $< );
my $smtp_password = 'password';
my $smtp_default_password = 'password';
my $server = hostdomain () || hostfqdn () || domainname () || 'localhost';
my $input = '';
my $to_string = '';
my $from_string = '';
my $subject = '';
my $messageID = '';
my $Date = '';
# improve here to be sure it is in headers !
# Email::Simple should do better !
foreach my $line ( <STDIN> ) {
$input .= $line;
if ($line =~ /^To:/i) {
$to_string = $line;#
}
if ($line =~ /^From:/i) {
$from_string = $line;
}
if ($line =~ /^Subject:/i) {
$subject = $line;
}
if ($line =~ /^Message-Id:/i) {
$messageID = $line;
}
if ($line =~ /^Date:/i) {
$Date = $line;
}
}
# add header if missing
my $mid= Email::MessageID->new->in_brackets;
$input = "Message-ID: $mid\r\n$input" unless $messageID ne '';
# add date if missing
my $dateheader = email_date(time);
$input = "Date: $dateheader\r\n$input" unless $Date ne '';
#check destination
my @addrs = Email::Address->parse($to_string);
if (0+@addrs eq 0) {
die "No recipients";
}
for (my$index=0;$index<=$#addrs;$index++){
my $rec = $addrs[$index];
$rec=$rec->address;
my @fraddrs = Email::Address->parse($from_string);
my $frec = $user.'@'.$server;
$frec = $fraddrs[0]->address unless (0+@fraddrs eq 0) ;
my $smtp = Net::SMTP->new('127.0.0.1', Port => 25, Timeout => 10, Debug => 0);
die "Could not connect to qpsmtpd\n" unless $smtp;
$smtp->mail($frec);
$smtp->to($rec);
$smtp->data();
$smtp->datasend($input);
$smtp->dataend();
$smtp->quit;
}