| | |
|---|
| | | |
|---|
| | | $SMTP_CONN = new Net_SMTP($smtp_host, $smtp_port, $helo_host); |
|---|
| | | |
|---|
| | | // set debugging |
|---|
| | | if ($CONFIG['debug_level'] & 8) |
|---|
| | | $SMTP_CONN->setDebug(TRUE); |
|---|
| | | |
|---|
| | | // try to connect to server and exit on failure |
|---|
| | | $result = $SMTP_CONN->connect($smtp_timeout); |
|---|
| | | if (PEAR::isError($result)) |
|---|
| | |
|---|
| | | $recipients = implode(', ', $recipients); |
|---|
| | | |
|---|
| | | $addresses = array(); |
|---|
| | | $recipients = smtp_explode_quoted_str(",", $recipients); |
|---|
| | | $recipients = rcube_explode_quoted_string(',', $recipients); |
|---|
| | | |
|---|
| | | reset($recipients); |
|---|
| | | while (list($k, $recipient) = each($recipients)) |
|---|
| | |
|---|
| | | { |
|---|
| | | if ((strpos($word, "@") > 0) && (strpos($word, "\"")===false)) |
|---|
| | | { |
|---|
| | | $word = ereg_replace('^<|>$', '', trim($word)); |
|---|
| | | $word = preg_replace('/^<|>$/', '', trim($word)); |
|---|
| | | if (in_array($word, $addresses)===false) |
|---|
| | | array_push($addresses, $word); |
|---|
| | | } |
|---|
| | |
|---|
| | | } |
|---|
| | | return $addresses; |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | | /** |
|---|
| | | * @access private |
|---|
| | | */ |
|---|
| | | function smtp_explode_quoted_str($delimiter, $string) |
|---|
| | | { |
|---|
| | | $quotes=explode("\"", $string); |
|---|
| | | while ( list($key, $val) = each($quotes)) |
|---|
| | | if (($key % 2) == 1) |
|---|
| | | $quotes[$key] = str_replace($delimiter, "_!@!_", $quotes[$key]); |
|---|
| | | $string=implode("\"", $quotes); |
|---|
| | | |
|---|
| | | $result=explode($delimiter, $string); |
|---|
| | | while (list($key, $val) = each($result)) |
|---|
| | | $result[$key] = str_replace("_!@!_", $delimiter, $result[$key]); |
|---|
| | | |
|---|
| | | return $result; |
|---|
| | | } |
|---|
| | | |
|---|
| | | |
|---|
| | | ?> |
|---|
