#!/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`;