Formular ??

[patrick]

hallo was meinst du mit 4 oder 5
hier das ganze skript, vielleicht kannst du mir das ja ein bisschen näher erklären.

if ($autoresponder) {
 socket(SOCK, AF_INET, SOCK_STREAM, $proto)  or error("SMTP AR Socket operation failed : Reason $!");
 connect(SOCK, pack('Sna4x8', AF_INET, $port, $smtpaddr)) or error("SMTP AR Connection failed : Reason $!");
 $oldfh = select(SOCK);
 $| = 1; select($oldfh);$_ = <SOCK>;
 if (/^[1]/) { close SOCK; error("SMTP AR Service not available : Reason $!"); }
 print SOCK "helo localhost$CRLF"; $_ = <SOCK>;
 if (/^[2]/) { close SOCK; error("SMTP AR CommError1: Reason $!"); }
 print SOCK "mail from: <", $efrom, ">$CRLF"; $_ = <SOCK>;
 if (/^[3]/) { close SOCK; error("SMTP AR CommError2: Reason $!"); }
 foreach (split(/,/, $efrom)) {
  (/<(.*)>/) ? print SOCK "rcpt to: $1$CRLF" : print SOCK "rcpt to: <$_>$CRLF";
  $_ = <SOCK>; if (/^[4]/) { close SOCK;error("SMTP AR: Unknown user. Email address $efrom not valid"); }
 }

---

1. 45 ↩︎

2. 45 ↩︎

3. 45 ↩︎

4. 45 ↩︎