Opened by bianca at 2016-02-29 15:58
User since
2009-09-13
6978 Artikel
BenutzerIn
2009-09-13
6978 Artikel
BenutzerIn
Guten Morgen!
Mit der neuen Net/SMTP/Server/Client.pm gibt es leider noch ein kleines Problem. Das ist wie folgt reproduzierbar auf Windows:
1.
Und zwar über lokalen Webserver muss ein Script über CGI Schnittstelle gestartet werden, welches über folgenden Code den SMTP-Server startet:
Ob man diesen Schritt hier auch auf Linux mit fork() machen kann und das selbe Ergebnis raus kommt weiß ich nicht, weil ich kein Linux habe wo ich einen SMTP-Server starten dürfte.
2.
Jetzt ein Script starten, was folgendes macht (egal ob über Konsole oder Webserver):
Nun ist $answer undef. Das heißt es ist keinerlei Kommunikation mit dem SMTP-Server möglich.
3.
Jetzt bitte den Perl Prozess mit dem SMTP-Server im Task-Manager killen.
4.
Nun wieder den SMTP-Server Tiny-SMTP-Server.pl starten aber NICHT über Webserver sondern über Konsole (WICHTIG!)
Anschließend wieder den Test aus 2. über Konsole machen.
Nun liefert $answer brav eine 334 Meldung wie es sein muss.
Es ist übrigens egal ob das Script aus 2. auf dem selben oder einem anderen PC wie der Webserver läuft.
Mit der Version aus msg #184215 gibt es diesen Unterschied nicht, nützt mir aber nichts. Ist höchstens ein Hinweis darauf, dass der Fehler mit der ganz neuen Version zusammenhängen könnte.
Oder mache ich was anderes falsch?
Mit der neuen Net/SMTP/Server/Client.pm gibt es leider noch ein kleines Problem. Das ist wie folgt reproduzierbar auf Windows:
1.
Und zwar über lokalen Webserver muss ein Script über CGI Schnittstelle gestartet werden, welches über folgenden Code den SMTP-Server startet:
Code: (dl
)
1
2
3
4
5
6
7
8
Win32::Process::Create(
my $ProcessObj,
'c:\strawberry\perl\bin\perl.exe',
"perl /pfad/Tiny-SMTP-Server.pl",
0,
Win32::Process::NORMAL_PRIORITY_CLASS()|Win32::Process::DETACHED_PROCESS(),
'/pfad',
);
Ob man diesen Schritt hier auch auf Linux mit fork() machen kann und das selbe Ergebnis raus kommt weiß ich nicht, weil ich kein Linux habe wo ich einen SMTP-Server starten dürfte.
2.
Jetzt ein Script starten, was folgendes macht (egal ob über Konsole oder Webserver):
Code (perl): (dl
)
1 2 3 4 5 6 7 8 9 10
#!/usr/bin/perl use strict; use warnings; use 5.010; use Net::SMTP 3.05; my $smtp = Net::SMTP->new('URL oder IP',Timeout => 5); if ($smtp->command('AUTH','LOGIN')) { my $answer = $smtp->getline(); say (defined $answer ? 'passt' : 'FEHLER!'); }
Nun ist $answer undef. Das heißt es ist keinerlei Kommunikation mit dem SMTP-Server möglich.
3.
Jetzt bitte den Perl Prozess mit dem SMTP-Server im Task-Manager killen.
4.
Nun wieder den SMTP-Server Tiny-SMTP-Server.pl starten aber NICHT über Webserver sondern über Konsole (WICHTIG!)
Anschließend wieder den Test aus 2. über Konsole machen.
Nun liefert $answer brav eine 334 Meldung wie es sein muss.
Es ist übrigens egal ob das Script aus 2. auf dem selben oder einem anderen PC wie der Webserver läuft.
Mit der Version aus msg #184215 gibt es diesen Unterschied nicht, nützt mir aber nichts. Ist höchstens ein Hinweis darauf, dass der Fehler mit der ganz neuen Version zusammenhängen könnte.
Oder mache ich was anderes falsch?
10 print "Hallo"
20 goto 10
20 goto 10