include_once("start.inc"); $FIRST = OOPSTypograf($SUB_FIRST); $LAST = OOPSTypograf($SUB_LAST); $COMP = OOPSTypograf($SUB_COMP); $WORK = OOPSTypograf($SUB_WORK); $MAIL = $SUB_MAIL; $BODY = new OOPSBuffer(); $BODY->Send(BillingTitle('Подписка на новости',2)); if($OOPSGlobal["SES"]->db->CheckFields("SUBSCRIBE","MAIL,STATUS,DATE","MAIL = '".$MAIL."'")) { $SUB = $OOPSGlobal["SES"]->db->ExtractObject(); $BODY->Send('
Такой адрес ['.$MAIL.'] уже есть в списке рассылки'); $BODY->Send('
Статус рассылки: ');
switch($SUB->STATUS) {
case 0:
$BODY->Send('ожидает подтверждения.');
$BODY->Send('
Ожидание подтверждения: '.OOPSWorking(time()-$SUB->DATE,WORKING_TIME_LONG));
$BODY->Send('
Анулирование подписки через: '.OOPSWorking((60*60*24*7) - (time()-$SUB->DATE),WORKING_TIME_LONG));
$BODY->Send('
На данный адрес уже было выслано письмо со ссылкой для подтверждения подписки.'); $BODY->Send('
Вы можете отказаться от подписки перейдя по этой ссылке.'); break; case 1: $BODY->Send('активна.'); break; } $BODY->Send('$BILLING_BACK'); } else { $RC = OOPSCheckMailAddr($MAIL); switch($RC) { case MAILADDR_OK: $ID = $OOPSGlobal["SES"]->db->GetFreeID("SUBSCRIBE"); $OOPSGlobal["SES"]->db->Query("INSERT INTO SUBSCRIBE (ID,FIRST,LAST,COMP,WORK,MAIL,DATE) VALUES ('".$ID."','".$FIRST."','".$LAST."','".$COMP."','".$WORK."','".$MAIL."',".time().")"); $BODY->Send('
На указанный Вами адрес ['.$MAIL.'] выслано письмо для подверждения подписки. Если в течении недели Вы не подтвердите подписку по ссылке указанной в высланном Вам письме она будет автоматически отменена и Ваш адрес удален из списка рассылки.
Спасибо, что воспользовались нашим сервисом.$HR2');
$TEXT = "Произведено Оформление подписки на адрес [".$MAIL."] с адреса [".OOPSGetIP()."].\n\nНа данный адрес выслано письмо со ссылкой для подтверждения подписки. Если в течении недели подписка не будет подтверждена, то она автоматически будет удалена.\n ОШИБКА: Адрес ['.$MAIL.'] не существует.');
$BODY->Send('$BILLING_BACK');
break;
case MAILADDR_DOMAIN_NAME:
list($n,$d) = explode("@",$MAIL);
$BODY->Send(' ОШИБКА: Доменное имя ошибочно ['.$d.'].');
$BODY->Send('$BILLING_BACK');
break;
case MAILADDR_DOMAIN_EXISTS:
list($n,$d) = explode("@",$MAIL);
$BODY->Send(' ОШИБКА: Домена ['.$d.'] не существует.');
$BODY->Send('$BILLING_BACK');
break;
case MAILADDR_MX_EXISTS:
list($n,$d) = explode("@",$MAIL);
$BODY->Send(' ОШИБКА: Домен ['.$d.'] не имеет почтового обменника.');
$BODY->Send('$BILLING_BACK');
break;
case MAILADDR_NAME:
list($n,$d) = explode("@",$MAIL);
$BODY->Send(' ОШИБКА: Имя ['.$n.'] ошибочно.');
$BODY->Send('$BILLING_BACK');
break;
case MAILADDR_LEN:
list($n,$d) = explode("@",$MAIL);
$BODY->Send(' ОШИБКА: Адрес ['.$MAIL.'] превышает 128 символов.');
$BODY->Send('$BILLING_BACK');
break;
}
}
include_once("stop.inc");
?>