perlunity.de - PERL | JAVASCRIPT | PHP | MySQL | APACHE



#!/COMMUNITY

Members: 5374
davon online: 1
weitere User: 29
 Click for quality!



11.02.2012 / 12:38
Community-Member werden   |   Paßwort vergessen   |   OnlineMonitor (1) Wer ist online ... OnlineMonitor starten !
     

 

Home

PERLscripts

PHPscripts

JAVAscripts

Hilfreiches

Links2www

Newscenter

Community

Interna



Community  »  Perl: Allgemeines Forum zur Themenübersicht Themensuche Themenansicht in Thread-Modus


Beitragsmtp mail send problem...
 Seitenanfang
Hi,

habe probiert ein perl script zu schreiben, dass mir automatisch eine bestimmte Nachricht verschickt. Funktioniert leider nicht =(... hab auch schon alle möglichen Sachen im Internet durchgelesen... muss aber Tomaten auf den Augen haben... finde den Fehler nicht =( Der Output der Konsole ist vor dem Script...

Hoffe jemand kann mir helfen! Danke!

----------------------------------------
CONSOLE OUTPUT: ########################
----------------------------------------

Net::SMTP>>> Net::SMTP(2.29)
Net::SMTP>>> Net::Cmd(2.26)
Net::SMTP>>> Exporter(5.58)
Net::SMTP>>> IO::Socket::INET(1.29)
Net::SMTP>>> IO::Socket(1.29)
Net::SMTP>>> IO::Handle(1.25)
Net::SMTP=GLOB(0x19f5344)<<< 220 mail.gmx.net GMX Mailservices ESMTP {mp018}
Net::SMTP=GLOB(0x19f5344)>>> EHLO dodger82@gmx.de
Net::SMTP=GLOB(0x19f5344)<<< 250-mail.gmx.net GMX Mailservices
Net::SMTP=GLOB(0x19f5344)<<< 250-8BITMIME
Net::SMTP=GLOB(0x19f5344)<<< 250-ENHANCEDSTATUSCODES
Net::SMTP=GLOB(0x19f5344)<<< 250-AUTH=LOGIN CRAM-MD5 PLAIN
Net::SMTP=GLOB(0x19f5344)<<< 250-AUTH CRAM-MD5 LOGIN PLAIN
Net::SMTP=GLOB(0x19f5344)<<< 250 STARTTLS
et::SMTP=GLOB(0x19f5344)>>> HELP AUTH LOGIN
Net::SMTP=GLOB(0x19f5344)>>> AUTH LOGIN
command ok!
Net::SMTP=GLOB(0x19f5344)>>> ZG9kZ2VyODJAZ214LmRl ì╦qdÛ4ùÔ←­Î§ÎLAy
login ok!
Net::SMTP=GLOB(0x19f5344)>>> MAIL From:<dodger82@gmx.de>
Absender okay
Net::SMTP=GLOB(0x19f5344)>>> RCPT To:<dodger82@gmail.com>
Empfõnger okay
Net::SMTP=GLOB(0x19f5344)>>> DATA
Data Start Ok!
Net::SMTP=GLOB(0x19f5344)>>> Sender:absender@gmx.de
Net::SMTP=GLOB(0x19f5344)>>> Reply-To:absender@gmx.de
Net::SMTP=GLOB(0x19f5344)>>> Subject:test message
Net::SMTP=GLOB(0x19f5344)>>> To:empfaenger@gmail.com
Net::SMTP=GLOB(0x19f5344)>>> jop
Net::SMTP=GLOB(0x19f5344)>>> .
Net::SMTP=GLOB(0x19f5344)<<< 503 5.5.1 MAIL first {mp018}
Net::SMTP=GLOB(0x19f5344)>>> QUIT
Net::SMTP=GLOB(0x19f5344)<<< 502 5.5.2 Unimplemented {mp018}
Connection closed

----------------------------------------
SCRIPT: ################################
----------------------------------------


#!/usr/bin/perl -w 
use strict;
use Net::SMTP;
             
my $SMTP_Host  = 'mail.gmx.net';
my $account    = 'absender@gmx.de';
my $sender     = 'absender@gmx.de';
my $Empfaenger = 'empfaenger@gmail.com';
my $smtp = Net::SMTP->new( $SMTP_Host, Hello => $account, Timeout => 30, Debug => 1 );
use MIME::Base64;
my $user=encode_base64( $sender );
use Digest::MD5 qw(md5 md5_hex md5_base64);
my $digest = md5( 'passwort' );
my $OK;
$OK = $smtp->command( 'AUTH', 'LOGIN' );
$smtp->getline();
$OK ? print "command ok!\n" 
    : die "command failed!\n";
$OK = $smtp->command( $user, $digest );
$smtp->getline();
$OK ? print "login ok!\n" 
    : die "login failed!\n";
# Absender
$OK = $smtp->command( 'MAIL', "From:<$sender>");
$smtp->getline();
$OK ? print "Absender okay\n" 
    : die "Unbekannter Absender";
# Empfaenger
$OK = $smtp->command( 'RCPT', "To:<$Empfaenger>" );
$smtp->getline();
$OK ? print "Empfänger okay\n" 
    : die "Empfänger Absender";
$OK = $smtp->command( 'DATA' );
$smtp->getline();
$OK ? print "Data Start Ok!\n" 
    : die "Data Start Failed!\n";
my $mes = "Sender:absender\@gmx.de\015\012"
."Reply-To:absender\@gmx.de\015\012"
."Subject:test message\015\012"
."To:empfaenger\@gmail.com\015\012"
."jop\015\012";
#.".";
$smtp->datasend( $mes );
$smtp->getline();
# beim Server abmelden
$OK = $smtp->quit();
$OK ? print "Connection closed\n" 
    : die "Ooops $!";
exit;

Datum: 22.12.2006-11:02
Beitragre: smtp mail send problem...
 Seitenanfang
Hast Du schon mal das Modul MIME::Lite probiert? Benutzt intern auch Net::SMTP, kümmert sich aber um alles:


use MIME::Lite;
$mail = MIME::Lite->new(
	From    => 'absender@gmx.de',
	To      => 'empfaenger@gmx.de',
	Subject => 'test',
	Data    => 'just a test',
);
MIME::Lite->send('smtp', 'mail.gmx.de', Timeout => 60);
$mail->send();

Datum: 26.12.2006-10:11
-






-
 -