Mailmodul: Alternative zu Mime::Lite? - #2845 (Perl/CGI)

jemand

2004-06-12 16:33

User since
2004-05-14
231 Artikel
BenutzerIn
[default_avatar]

könnte der folgende code gehen??

Code: (dl )

use CGI::Carp qw(fatalsToBrowser);
 use Net::SMTP;


my $mailto = 'ich-22@web.de';
my $subject = 'Dies ist ein Test!!!';
my $mailtext = 'Dies ist der 26.04.1992. Dies ist der Mailtesttext';

    $smtp = Net::SMTP->new('web.de');

    $smtp->mail($ENV{USER});
    $smtp->to($mailto);

    $smtp->data();
    $smtp->datasend("To: $mailto\n");
    $smtp->datasend("Subject: $subject\n");
    $smtp->datasend("$mailtext\n");
    $smtp->dataend();

    $smtp->quit

print "Content-type: text/html\n\n";
print '<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 //EN">';
print '<html>';
print '<head>';
print '</head>';
print '<body><h1>hatz geklappt???!!</h1><br>Ich hoff es geht!!!<br>';
print 'Die mail sollte geschrieben worden sein!!';
print '</body></html>';

\n\n

print uc 'i',chr(29*4).q+'s +.++($_=q-m-),++$_;
print chr for 116,$_[0],97,$_[0],98;
print 'ug,',chr(), scalar reverse qq?!erutaef a s'ti?;