#!perl package Glob; our $path = 'GLOB::path/'; 1; use strict; use warnings; use MIME::Lite; # -- 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; my $mailtext =" Bestätigung Registrierung bei Pingu Farmer - Nickname: ".$nick."
Hallo ".$nick.",
und Herzlich Willkommen bei Pingu Farmer!

Deine Registrierung ist fast geschafft!
Klicke auf diesen Link um deine Account freizuschalten!

Viel Spaß!
"; #E-Mail versenden: my $msg = MIME::Lite->new( From => 'support@pingu-farmer.de', To => $mailto, Subject => $subject, Type => 'multipart/related' ); $msg->attach( Type => 'text/html', Data => $mailtext , ); $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);