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',
);
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!'); }
QuoteNet::SMTP>>> Net::SMTP(3.06)
Net::SMTP>>> Net::Cmd(3.06)
Net::SMTP>>> Exporter(5.70)
Net::SMTP>>> IO::Socket::IP(0.32)
Net::SMTP>>> IO::Socket(1.36)
Net::SMTP>>> IO::Handle(1.34)
Net::SMTP=GLOB(0x66d1c0)<<< 220 MacGyver SMTP Ready.
Net::SMTP=GLOB(0x66d1c0)>>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x66d1c0)<<< 250-SERVER Hello localhost.localdomain
Net::SMTP=GLOB(0x66d1c0)<<< 250 AUTH LOGIN PLAIN
Net::SMTP=GLOB(0x66d1c0)>>> AUTH LOGIN
334 VXNlcm5hbWU6
passt
QuoteNet::SMTP>>> Net::SMTP(3.06)
Net::SMTP>>> Net::Cmd(3.06)
Net::SMTP>>> Exporter(5.70)
Net::SMTP>>> IO::Socket::IP(0.32)
Net::SMTP>>> IO::Socket(1.36)
Net::SMTP>>> IO::Handle(1.34)
Net::SMTP=GLOB(0x34d1c0)<<< 220 MacGyver SMTP Ready.
Net::SMTP=GLOB(0x34d1c0)>>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x34d1c0)<<< 250-SERVER Hello localhost.localdomain
Net::SMTP=GLOB(0x34d1c0)<<< 250 AUTH LOGIN PLAIN
Net::SMTP=GLOB(0x34d1c0)>>> AUTH LOGIN
Net::SMTP: Net::Cmd::getline(): unexpected EOF on command channel: Bad file descriptor at test-client.pl line 10.
Use of uninitialized value $answer in say at test-client.pl line 10.
FEHLER!
QuoteAuf meinem Windows 10x64 mit Strawberry Perl 5.14.5 x86 und Apache 2.2.31 x86 nicht nachvollziehbar.unexpected EOF on command channel: Bad file descriptor
2016-04-25T09:54:19 GwenDragonAuf meinem Windows 10x64 mit Strawberry Perl 5.14.5 x86 und Apache 2.2.31 x86 nicht nachvollziehbar.
QuoteNet::SMTP>>> Net::SMTP(3.06)
Net::SMTP>>> Net::Cmd(3.06)
Net::SMTP>>> Exporter(5.70)
Net::SMTP>>> IO::Socket::IP(0.32)
Net::SMTP>>> IO::Socket(1.36)
Net::SMTP>>> IO::Handle(1.34)
Net::SMTP=GLOB(0x50de60)<<< 220 MacGyver SMTP Ready.
Net::SMTP=GLOB(0x50de60)>>> EHLO localhost.localdomain
Net::SMTP=GLOB(0x50de60)<<< 250-SERVER Hello localhost.localdomain
Net::SMTP=GLOB(0x50de60)<<< 250 AUTH LOGIN PLAIN
Net::SMTP=GLOB(0x50de60)>>> AUTH LOGIN
Net::SMTP: Net::Cmd::getline(): unexpected EOF on command channel: Bad file descriptor at test-client.pl line 10.
Use of uninitialized value $answer in say at test-client.pl line 10.
FEHLER
2016-04-26T09:07:35 GwenDragonPerl verbindet die Anweisungen in der logischen Verknüpfung und führt die aus je nachdem welchen Rückgabewert sie haben.
$DEBUG or $DEBUG_LOG and print 42;
bedeutet: Wenn DEBUG oder DEBUG_LOG wahr dann führe den zweiten Teil des and-Zweigs aus.
if ($DEBUG or $DEBUG_LOG ) { print 42 }
2016-04-26T09:07:35 GwenDragonich habs jetzt als if (...) {} in die client.pm v1.2.4 gesetzt.
2016-04-26T09:07:35 GwenDragonPS: Mir war nicht klar, dass der Server schon produktionsreif sein muss.
2016-04-26T09:07:35 GwenDragonOhne Vorgabe und Pflichtenheft ist das schwieriger oder ich bin gerade etwas unflexibel. ;)