include_once("../../../../../oops/start.inc");
$OOPSGlobal["JAVA"] = OOPSBuildJavaCall('iss');
if(!empty($ISS_NAME)) $ISS_NAME = OOPSTypograf($ISS_NAME);
if(!empty($ISS_FAM)) $ISS_FAM = OOPSTypograf($ISS_FAM);
if(!empty($ISS_COMP)) $ISS_COMP = OOPSTypograf($ISS_COMP);
if(!empty($ISS_WORK)) $ISS_WORK = OOPSTypograf($ISS_WORK);
$TRACKDIR = "/virtual/iss";
$OOPSGlobal["SES"]->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");
?>