Добро пожаловать!
Здесь вы можете найти ответ на интересующий вас вопрос в отрасли сайтостроения, познакомится ближе с web технологиями и web стандартами.

Статьи

Почтовые функции в РНР

Одним из возможных применений imap функций является создание почтового демона, который будет управлять подпиской и отпиской пользователей от вашей почтовой рассылки. Для реализации этой задачи, обычно в рассылках используются два метода. Первый предполагает, что пользователь должен зайти на некую страницу и подтвердить свои действия, второй требует отправки письма. Второй так же требует, чтобы скрипт-обработчик регулярно запускался cron daemon. Из-за этого он не настолько популярен как первый способ.

Но, как можно заметить, наиболее серьезные рассылки используют второй способ. Поэтому, если у вас есть возможность использования crond, воспользуйтесь им.

Собственно, разобраться в функциях не так сложно. Человек, который раньше работал на РНР, без труда поймет, как с ними работать. Некоторые затруднения могут возникнуть с разбором заголовков писем, которые будет обрабатывать скрипт.

Алгоритм работы самого скрипта придумать несложно. Демон устанавливает соединение с почтовым сервером, и проверяет наличие на нем писем. В случае если писем нет, работа скрипта прекращается.

Если письма есть, то происходит разбор заголовков первого письма. Просматривается поля from и subject. Если поле subject содержит один из двух допустимых вариантов заголовка (подписка или отписка), то запись, которой соответствует значение поля from либо становится активной (подтвержденной), либо удаляется из таблицы. В обоих случаях на адрес, указанный в поле from посылается соответствующее извещение о действиях скрипта. После этого письмо помечается для удаления. В случае если subject не содержит допустимых тем, посылается уведомление об ошибке, и письмо так же помечается для удаления. Затем скрипт переходит к следующему письму. Закончив разбор всех писем, он очищает ящик.

Не буду утомлять читателя блок-схемами, так что сразу перейдем к делу. Для открытия ящика используется функция imap_open. Поскольку РНР поддерживает работу с несколькими протоколами, то необходимо явно указать, какой протокол используется для работы с ящиком. В нашем случае это POP3 на 110 порту (стандарт). Присваиваем результат выполнения скрипта переменной $my_box.

$my_box imap_open("{you.pop.host/pop3:110}""login""password");

В дальнейшем вы увидите, что эта переменная будет использоваться пратически во всех imap функциях. Далее проверяем ящик на наличие писем. Проверку выполняет функция imap_num_msg.

$n imap_num_msg($my_box);

В результате переменная $n будет содержать количество писем в ящике. Число это может быть или больше нуля, или равно ему (если ящик пуст).

Если письма есть, то в цикле while выполняем разбор писем, последовательно увеличивая номер письма на единицу. Обратите внимание, что первое письмо в ящике будет иметь номер 0, как, и первый элемент массива. Для увеличения номера письма, присваиваем переменной $m значение 0, а потом в условиях выполнения цикла увеличиваем ее на единицу $m++.

Для разбора интересующих нас заголовков достаточно двух функций: imap_header и imap_fetch_overview. Для выполнения каждой из их, помимо ящика, нужно указывать номер письма. В нашем случае, внутри цикла он будет равен переменной $m.

imap_header возвращает в результате выполнения объект, содержащий исчерпывающую информацию о заголовке письма. Среди всего прочего, этот объект содержит массив from, в котором содержаться четыре значения. Это personal, adl, mailbox и host. Нас из них интересуют только mailbox и host. Подставляя их, мы получим адрес, с которого было отправлено письмо.

$h imap_header($my_box$m);
$h $h->from;
foreach (
$h as $k => $v) {
  
$mailbox $v->mailbox;
  
$host $v->host;
  
$personal $v->personal;
  
$email $mailbox . <@> . $host;

imap_fetch_overview — позволит нам узнать тему письма. Для этих же целей можно было бы использовать и imap_header но по ряду причин это, иногда может не сработать. Из массива, который возвращает эта функция, нам нужно только поле subject

$s imap_fetch_overview($my_box$m);
foreach (
$s as $k => $v) {
  
$subj $v->subject;
}

Дальнейшие наши действия сводятся к тому, чтобы вытащить email из базы, и в случае наличия его там, пометить всю строку с этой записью как <проверенную>, либо удалить. Предположим, что после заполнения формы рассылки на сайте, подписчику присваивается статус 0, а после подтверждения подписки он меняется на 1.

if ($subj == "SUBSCRIBE") {
  
mysql_query("UPDATE subscribe SET stat=1 WHERE email=".$my_email);
  
$del imap_delete($my_box$m);
  
mail($email$add_sbj$add_text$headers);
}
elseif (
$subj == "UNSUBSCRIBE") {
  
mysql_query("DELETE FROM subscribe WHERE email=".$my_email);
  
$del imap_delete($my_box$m);
  
mail($email$del_sbj$del_text$headers);
}
else {
  
$del imap_delete($my_box$m);
  
mail($email$err_sbj$err_text$headers);
}

Как уже говорилось выше, после выполнения всех действий скрипт очищает ящик.

$clear imap_expunge($my_box);

Данная простейшая программа, лишь демонстрация того, что на РНР можно писать не только динамически изменяющиеся сайты, но и сервисы, которые пользователю вообще не видны. Конечно, по части написания скриптов для shell, PHP неприменим, в отличие от своего конкурента Perl, но тем не менее:

Листинг всей программы за исключением параметров соединения с базой (db.php):

<?php
include "db.php";
$my_box imap_open("{you.pop.host/pop3:110}""login""password");
$n imap_num_msg($my_box);
$m 0;
$add_text "

Спасибо за подтверждение вашей подписки "
;
$add_sbj "You added!";
$del_text "

Вы были удалены из списка рассылки. "
;
$del_sbj "Delete from list";
$err_text "

Извините но этот почтовый ящик используется
только для администрирования рассылки"
;
$err_sbj "Error";
$headers "From: Subscribe Robot <You@mail.box>

X-mailer: PHP4

Content-type: text/plain; charset=windows-1251
"
;
if(
$n != 0) {
  while(
$m++ < $n) {
    
$h imap_header($my_box$m);
    
$s imap_fetch_overview($my_box$m);
    
$h $h->from;
    foreach (
$h as $k =>$v) {
      
$mailbox $v->mailbox;
      
$host $v->host;
      
$personal $v->personal;
      
$email $mailbox "@" $host;
      
$my_email mysql_escape_string($email);
    }
    foreach (
$s as $k =>$v) {
      
$subj $v->subject;
    }
    if (
$subj == "SUBSCRIBE") {
      
mysql_query("UPDATE table SET stat=1 WHERE email=".$my_email);
      
$del imap_delete($my_box$m);
      
mail($email$add_sbj$add_text$headers);
    }
    elseif (
$subj == "UNSUBSCRIBE") {
      
mysql_query("DELETE FROM table WHERE email=".$my_email);
      
$del imap_delete($my_box$m);
      
mail($email$del_sbj$del_text$headers);
    }
    else {
      
$del imap_delete($open_box$m);
      
mail($email$err_sbj$err_text$headers);
    }
  }
  
$clear imap_expunge($my_box);
}
?>

В листинг отсутствуют некоторые детали, например возможное конвертирование из win в koi, перепроверка почтового ящика отправителя и т.д. Это уже функциональные излишества, которые каждый может добавить по мере необходимости.