Quote

Ich:
Sehr geehrte/r Arbeiter/in von Hostpoint

Ich versuche schon sied etwa einer Woche vergeblich eine Testemail mit einem Perl Script zu verschicken. Doch weder mein eigenes Script noch das von Ihnen

geschriebene funktioniert. (Link: *zensored*)
Sie können wahrscheinlich nicht auf die Adresse wegen dem HTACCSESS, aber ich hoffe Sie wissen was ich meine. Das ganze geht über das Modul NET::SMTP, was

laut dem Systeminfotool installiert sein sollte.
Das Script habe ich bei mir auf dem PC Local unter Windows getestet und es funktioniert! Ich habe die Datei richtig hochgeladen und mit CHMOD 755

eingestellt.
Hier noch mal das Beispielscript:

################################################
#!/usr/bin/perl -w

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

my $smtp = Net::SMTP->new('*zensored*');

$smtp->mail('*zensored*');
$smtp->to('*zensored*');
$smtp->data();
$smtp->datasend("To: *zensored*\n");
$smtp->datasend("\n");
$smtp->datasend("A simple test message\n");
$smtp->dataend();
$smtp->quit;

print "content-type: text/html\n\n";
print "Email wurde verschickt";
################################################

Beim ausführen der Datei steht zwar die Printanweisung:
"Email wurde verschickt", aber verschickt wurde die Email leider nicht Woran liegt das?
Würde mich auf eine schnelle Hilfe freuen.

Mit freundlichen Grüssen

Ich

Quote

Support Team:
Programmieren Sie Ihr Script bitte so, dass es auf /usr/sbin/sendmail zugreifft beim E-Mail Versand.

Quote

Ich:
Ich würde es aber gern über SMTP laufen lassen, oder ist dies auf den Servern deaktiviert?

Quote

Support Team:
Sie können die E-Mail's über die Funktion mail() in PHP versenden oder dies mit einem FormMailer lösen. Ein Beispiel finden Sie in unserem Control Panel

unter CGI Center.

Quote

Ich
Ich bräuchte aber etwas in Perl, was man in einem anderen Script einbauen kann und Betriebsystemunabhängig ist. Sendmail gibt es nur unter Linux :( Wieso

kann ich den das nicht über Net::SMTP laufen lassen? Ist das auf dem Server deaktiviert?

Quote

Support Team:
Ich habe Ihr Script getestet:

CHMOD 755 im cgi.bin abgelegt. Funktionierte bestens. Ich denke der Fehler könnte sein, dass Sie eine externe E-Mail Adresse eingefügt haben. Diese wird der

SMTP Server wohl abweisen, da dies nicht xxx@ihrdomain.ch ist. Sie können dies allenfalls durch einen Forwarder in Ihrem Control Panel lösen.

Quote

Ich:
Wie habe ich das den zu verstehen? Ich kann mit smtp keine Emails an andere Leute die nicht auf meiner Domain registriert sind schicken?
Kann doch nicht sein?!?!?!?!?!?!
Hier noch mal das Script:
###############################################
#!/usr/bin/perl -w

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

my $smtp = Net::SMTP->new('*zensored*');

$smtp->mail('*zensored*');
$smtp->to('*zensored*');
$smtp->data();
$smtp->datasend('To: *zensored*\n');
$smtp->datasend('\n');
$smtp->datasend('A simple test message\n');
$smtp->dataend();
$smtp->quit;

print "content-type: text/html\n\n";
print "Email wurde verschickt";
###############################################
Unter WIndows funktioniert es, aber auf dem Webserver nicht!
Wenn ich die Datei auf dem Server ausführe, sehe ich zwar die Meldung "Email wurde verschickt", aber es kommt einfach keine EMail an! Obwohl ich jetzt alles

auf meine EIGENE, interne Emailadressen gestellt habe.

Quote

Support Team:
Ich habe dies für Sie erneut getestet. Ich konnte die E-Mails nur an meine Domain senden. Ich gehe davon aus, dass dies aus Sicherheitsgründen der Fall ist,

sprich verhindern eines OpenRelay.

Quote

Ich:
Darf ich fragen, was sie mit OpenRelay meinen?
Sie meinten in einer früheren EMail, ich solle PHP oder sendmail benutzen. Wieso sollte es gerade damit gehen und mit SMTP nicht?
Irgendwie versteh ich die Logik dahinter nicht.
Ich brauche diese Option, für mein eigens geschriebenes Forum zum registrieren. Nun kann ich das Forum nicht benutzen, weil die Passwörter per Email

zugeschickt werden. Hatte auch ein Webmailprogramm programmieren wollen. Aber sogesehen kann ich das vergessen?!?!?!?!
Ich kann "nur" perl programmieren. Wieso muss ich wenn die ganze Page mit perl/cgi geschrieben wurde ein formmailer in php benutzen? Dazu noch für ein Forum

:p Was irgendwie unprofessionel rüberkommt.
Das sehe ich irgendwie nicht ein. Dazu will ich das Forum irgendwann zum Download freigeben. Was ist dann, wenn einer nen Windows Server hat, auf dem es kein

sendmail gibt??
Ach ja mal so nebenbei: Ich kann mit smtp nicht mal auf meine eigene emailadresse eine Email schicken.
Sind wir uns da überhaupt einig, das mein Script in Ordnung ist? Das es NICHT daran liegt?
Wie war den das mit dem "Forwarder" gemeint? Wie soll das den funktionieren, bei einem Forum?

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50

#!/usr/bin/perl -w
use CGI::Carp qw(fatalsToBrowser);
use strict;
use Net::SMTP;
use IO::Socket::INET;

print "content-type: text/html

";
print "
";

my $sock = new IO::Socket::INET( Proto=>"tcp", PeerAddr=>"localhost", PeerPort=>25);
die ("no connection possible") unless defined $sock;

chomp(my $hostname = `*zensored*`);
print $sock "HELO $hostname
";
print $sock "MAIL FROM: <*zensored*>
";
print $sock "QUIT
";
print "Server sagt:
";
print while <$sock>;
$sock -> close();




my $Smtpserver ='*zensored*';
my $Mail = '*zensored*';
my $To = '*zensored*';
my $Subject = '*zensored*';
my $Msg = '*zensored*';

my $smtp = Net::SMTP->new($Smtpserver, Debug => 1) || die $@;
$smtp->mail($Mail);
$smtp->to($To);

$smtp->data();
$smtp->datasend("Subject: $Subject
");
$smtp->datasend("To: $To
");
$smtp->datasend("
");
$smtp->datasend($Msg);
$smtp->dataend();
$smtp->quit;

Quote

220-server13.hostpoint.ch ESMTP Exim 4.24 #1 Fri, 31 Oct 2003 21:25:08 +0100
220-We do not authorize the use of this system to transport unsolicited,
220 and/or bulk e-mail.
250 abc.hostpoint.ch Hello  [127.0.0.1]
250 OK
221 abc.hostpoint.ch closing connection

Quote

Der Befehl "*zensored*" ist entweder falsch geschrieben oder
konnte nicht gefunden werden.

Net::SMTP: Net::SMTP(2.24)
Net::SMTP:   Net::Cmd(2.21)
Net::SMTP:     Exporter(5.566)
Net::SMTP:   IO::Socket::INET(1.26)
Net::SMTP:     IO::Socket(1.27)
Net::SMTP:       IO::Handle(1.21)

Net::SMTP=GLOB(0x1cc0afc)<<< 220-abc.hostpoint.ch ESMTP Exim 4.24 #1 Fri, 31 Oct 2003 21:27:43 +0100
Net::SMTP=GLOB(0x1cc0afc)<<< 220-We do not authorize the use of this system to transport unsolicited,
Net::SMTP=GLOB(0x1cc0afc)<<< 220 and/or bulk e-mail.
Net::SMTP=GLOB(0x1cc0afc)>>> EHLO localhost.localdomain

Net::SMTP=GLOB(0x1cc0afc)<<< 250-abc.hostpoint.ch Hello localhost.localdomain [*zensored*]
Net::SMTP=GLOB(0x1cc0afc)<<< 250-SIZE 52428800
Net::SMTP=GLOB(0x1cc0afc)<<< 250-PIPELINING
Net::SMTP=GLOB(0x1cc0afc)<<< 250-AUTH PLAIN LOGIN
Net::SMTP=GLOB(0x1cc0afc)<<< 250-STARTTLS
Net::SMTP=GLOB(0x1cc0afc)<<< 250 HELP
Net::SMTP=GLOB(0x1cc0afc)>>> MAIL FROM:<*zensored*>

Net::SMTP=GLOB(0x1cc0afc)<<< 250 OK
Net::SMTP=GLOB(0x1cc0afc)>>> RCPT TO:<*zensored*>

Net::SMTP=GLOB(0x1cc0afc)<<< 250 Accepted
Net::SMTP=GLOB(0x1cc0afc)>>> DATA

Net::SMTP=GLOB(0x1cc0afc)<<< 354 Please start mail input.
Net::SMTP=GLOB(0x1cc0afc)>>> Subject: Testtitle
Net::SMTP=GLOB(0x1cc0afc)>>> To: *zensored*
Net::SMTP=GLOB(0x1cc0afc)>>>
Net::SMTP=GLOB(0x1cc0afc)>>> Testmsg

Net::SMTP=GLOB(0x1cc0afc)>>> .
Net::SMTP=GLOB(0x1cc0afc)<<< 250 Mail queued for delivery.
Net::SMTP=GLOB(0x1cc0afc)>>> QUIT

Net::SMTP=GLOB(0x1cc0afc)<<< 221 Closing connection. Good bye.
Server sagt: