TrackVariableOnDir("PID",$TRACKDIR); $OOPSGlobal["SES"]->TrackVariableOnDir("ISS_NAME",$TRACKDIR); $OOPSGlobal["SES"]->TrackVariableOnDir("ISS_FAM",$TRACKDIR); $OOPSGlobal["SES"]->TrackVariableOnDir("ISS_COMP",$TRACKDIR); $OOPSGlobal["SES"]->TrackVariableOnDir("ISS_WORK",$TRACKDIR); $OOPSGlobal["SES"]->TrackVariableOnDir("ISS_MAIL",$TRACKDIR); if(!empty($ADD)) { $RC = OOPSCheckMailAddr($ISS_MAIL); $OK = true; switch($RC) { case MAILADDR_SYNTAX: $BILLINGGlobal["ERR_MAIL"] = "Ошибка написания почтого адреса"; $OK = false; break; case MAILADDR_DOMAIN_NAME: list($n,$d) = explode("@",$ISS_MAIL); $BILLINGGlobal["ERR_MAIL"] = "Ошибка написания доменного имени [".$d."]"; $OK = false; break; case MAILADDR_DOMAIN_EXISTS: list($n,$d) = explode("@",$ISS_MAIL); $BILLINGGlobal["ERR_MAIL"] = "Домена [".$d."] не существует"; $OK = false; break; case MAILADDR_MX_EXISTS: list($n,$d) = explode("@",$ISS_MAIL); $BILLINGGlobal["ERR_MAIL"] = "Домен [".$d."] не имеет почты"; $OK = false; break; case MAILADDR_NAME: list($n,$d) = explode("@",$ISS_MAIL); $BILLINGGlobal["ERR_MAIL"] = "Имя [".$n."] ошибочно"; $OK = false; break; case MAILADDR_LEN: list($n,$d) = explode("@",$ISS_MAIL); $BILLINGGlobal["ERR_MAIL"] = "Длина адреса превышает 128 символов"; $OK = false; break; } if($OK) { OOPSRedir("about/pub/math/send/"); } else { $BILLINGGlobal["ERR_MAIL"] = "
* ".$BILLINGGlobal["ERR_MAIL"].""; } } else { $OOPSGlobal["ERR_MAIL"] = ""; } $ISS = $OOPSGlobal["SES"]->db->QueryObject("SELECT * FROM PUBS WHERE ID = '".$PID."'"); $BILLINGGlobal["PUB_TITLE"] = $ISS->TIT; include_once("../../../../../oops/stop.inc"); ?>