77 lines
1.8 KiB
Perl
77 lines
1.8 KiB
Perl
|
#!/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;
|
||
|
|
}
|