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: