#!perl

package Glob;

our $path = 'GLOB::path/';

1;

use strict;
use warnings;
use utf8;
use MIME::Lite::HT::HTML;

# -- Variablen, die im Text verwendet werden
my $nick = 'NICKNAME';
my $regnummer = 'REGNUMMER';
my $mailto = 'MAILTO';

# EMailtext
my $subject  = "Bestätigung Registrierung bei Pingu Farmer - Nickname: ".$nick;

#E-Mail versenden:
my $msg = MIME::Lite::HT::HTML->new(
	From        => 'support@pingu-farmer.de',
	To          => $mailto,
	Subject     => $subject,
	TimeZone    => 'Europe/Berlin',
	Encoding    => 'quoted-printable',
	Template    => {
		html => 'mail.html',
		#text => 'mail.txt',
	},
	Charset     => 'utf8',
	TmplOptions => {},
	TmplParams  => {
		nickname			=> $nick,
		glob_path			=> $Glob::path,
		registration_number	=> $regnummer,
	},
);

$msg->attach(
        Type => 'image/png',
        Id   => 'header',
        Path => 'images/header_email.png',
);
$msg->attach(
        Type => 'image/png',
        Id   => 'back',
        Path => 'images/background_email.png',
);
$msg->attach(
        Type => 'image/png',
        Id   => 'pingu',
        Path => 'images/pingu7s.png',
);
$msg->send('testfile', 'pingu.mail.txt');

print "fertig\n";
exit(0);