Thread Kann mir mal jemand Net::Cmd erklären? (16 answers)
Opened by rosti at 2018-11-20 08:53

rosti
 2018-11-20 10:02
#189258 #189258
User since
2011-03-19
2725 articles
BenutzerIn
[Homepage]
user image
Mein Code ist ganz einfach, das Template wird gerendert und in das Socket geschrieben. Anschließend lese ich das Socket wieder aus und bekomme den Report. Aber das soll hier eben nicht das Thema sein.

Edit: Meine Fragen bez. Nutzung CPAN:Net::Cmd haben sich erledigt. Wie's gemacht wird steht in einem späteren Artikel. Danke für Eure Bemühungen.



MfG

In Kürze:

Code (perl): (dl )
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
# Mehrfachvererbung
use base qw(Net::Cmd IO::Socket::INET);

# Instanz in eigener Klasse, hier die main
my $m = main->new("$host:$port") || die $@;

# und dann müssen alle Kommandos in der richtigen
# Reihenfolge abgesetzt werden

$m->command('HELO', $host);
print $m->getline;

$m->command('AUTH LOGIN');
print $m->getline;

$m->command($user_base64);
print $m->getline;

$m->command($pass_base64);
print $m->getline;

$m->command("mail from: <$from>");
print $m->getline;

$m->command("rcpt to: <$to>");
print $m->getline;

$m->datasend("data$crlf test");
print $m->getline;

$m->dataend();
print $m->getline;


$m->command("quit");
print $m->getline;

Last edited: 2018-11-20 10:33:47 +0100 (CET)

View full thread Kann mir mal jemand Net::Cmd erklären?