49 lines
1.5 KiB
Raku
49 lines
1.5 KiB
Raku
#!/usr/biin/perl
|
|
|
|
$email_from='andre@geisslermail.de';
|
|
$email_to='bpt.andre@geisslermail.de';
|
|
$email_subject='Bike Part Tracker Statistics';
|
|
|
|
$maildomain = 'geisslermail.de';
|
|
$mailhub = 'smtp.geisslermail.de:587';
|
|
$tls = 'YES'; #YES
|
|
$starttls = 'YES'; #YES
|
|
$mailuser = 'andre@geisslermail.de';
|
|
$mailpass = 'JywJ7kvfrgdp9Yr7CZ';
|
|
|
|
#$maildomain = 'posteo.de';
|
|
#$mailhub = 'posteo.de:465';
|
|
#$tls = 'YES'; #YES
|
|
#$starttls = 'NO'; #YES
|
|
#$mailuser = 'andregeissler@posteo.de';
|
|
#$mailpass = 'Sf3ZXmNWdvVwNRkC';
|
|
|
|
open SSMTP, ">/tmp/ssmtp.conf";
|
|
printf SSMTP "hostname=$maildomain\n";
|
|
printf SSMTP "mailhub=$mailhub\n";
|
|
printf SSMTP "useTLS=$tls\n";
|
|
printf SSMTP "useSTARTTLS=$starttls\n";
|
|
printf SSMTP "FromLineOverride=YES\n";
|
|
printf SSMTP "AuthUser=$mailuser\n";
|
|
printf SSMTP "AuthPass=$mailpass\n";
|
|
close SSMTP;
|
|
|
|
|
|
open HEADER, ">/tmp/header.txt";
|
|
printf HEADER "To: $email_to\n";
|
|
printf HEADER "From: $email_from\n";
|
|
printf HEADER "Subject: $email_subject\n";
|
|
# beliebeige Header einfügen
|
|
printf HEADER "Content-Type: text/html; charset=ISO-8859-1\n\n";
|
|
close HEADER;
|
|
|
|
|
|
open OUTPUT, ">/tmp/output.txt";
|
|
|
|
close OUTPUT;
|
|
|
|
`cat /tmp/header.txt /tmp/output.txt /tmp/mail.html > /tmp/mail.txt`;
|
|
#`cat tmp/mail.txt | uuenview -a -bo | ssmtp -C /tmp/ssmtp.conf $email_to`;
|
|
`cat /tmp/mail.txt | /usr/sbin/ssmtp -C /tmp/ssmtp.conf $email_to`;
|
|
|