File Source for DBMS_FIELD_EMAILADDR.phpclass

<?php
/**
* Class file DBMS_FIELD_EMAILADDR.phpclass
*
* @project Open CSP-Management
* @package dbms_field
* @category string
*
* @author Peter Krebs <p.krebs@lvus.at>
* @copyright (c) 2002-2005 by LVUS
* @license http://opensource.org/licenses/gpl-license.php GNU Public License
*
* @since pk-04-08-26
* @version pk-05-02-10
*
***/
pcf_require_class('DBMS_FIELD',dirname(__FILE__)."/DBMS_FIELD.phpclass");
/**
* Class DBMS_FIELD_EMAILADDR
*
* @project Open CSP-Management
* @package dbms_field
* @category string
*
* @author Peter Krebs <p.krebs@lvus.at>
* @copyright (c) 2002-2005 by LVUS
* @license http://opensource.org/licenses/gpl-license.php GNU Public License
*
* @since pk-04-08-26
* @version pk-05-02-10
*
***/
class DBMS_FIELD_EMAILADDR extends DBMS_FIELD {
// ###########################################################
// OBJECT (CONST) VAR DECLARATION
// ###########################################################
/**
* @var string $className Label of the class
***/
var $className = "E-MailAddress";
/**
* @var string $noAddrErrMsg error message if not a valid email address
***/
var $noAddrErrMsg = "Ihre Eingabe ist keine gltige E-Mail Adresse";
/**
* @var boolean $dnsCheckDomain
* @since pk-05-02-10
***/
var $dnsCheckDomain = False;
/**
* @var string $noMxErrMsg error message if no mx server was found for the domain
* @since pk-05-02-10
***/
var $noMxErrMsg = "Es konnte kein Mailserver fr diese Adresse gefunden werden";
/**
* source file of the class
* (without $GLOBALS['PROJECT']['PATH']
*
* @var string $classSrcFile
* @since pk-05-01-11
***/
var $classSrcFile=__FILE__;
// ###########################################################
// OBJECT SETTINGS METHODS
// ###########################################################
/**
* returns an array of field to bie shown in the edit form
* by using editTbl_echoForm
*
* the array is in the form:
*
* <code>
* [_sectionName_]
* [TITLE] -> string
* [_rowName_]
* [FLDLAB] (complete html code with <td></td>)
* [FLDVAL] (complete html code with <td></td>)
* [FLDTIT] (title of the label column)
* </code>
*
* NOTE as this is not implemented in the whole classTree at the moment ensure all parents use
* editTbl_echoForm() in theire editTblForm otherwise you'll get a mismatch of field order
*
* @param boolean $debug
*
* @returns array
*
* @since pk-06-04-26
* @version pk-06-07-17 HIDDEN added to array
* @version pk-06-08-15 FLDTIT added
*
***/
function editTbl_getFieldEditArr($debug=False) {
if ($debug) echoDebugMethod(__FILE__,get_class($this),"DBMS_FIELD_EMAILADDR::editTbl_getFieldEditArr");
$a_ret=parent::editTbl_getFieldEditArr($debug);
$a_ret['VALCHECKS']['FLD_SYNTAXERRMSG']=array(
'FLDLAB'=>"Syntax Errormsg",
'FLDVAL'=>"<input name=\"noAddrErrMsg\" value=\"".htmlspecialchars($this->noAddrErrMsg)."\" size=\"50\">",
'FLDTIT'=>"Fehlermeldung die angezeigt wird wenn die E-Mail Adresse syntaktisch falsch ist (z.B. kein @)"
);
$a_ret['VALCHECKS']['FLD_DODNSCHECK']=array(
'FLDLAB'=>"DNS-Domain-Check",
'FLDTIT'=>"Prüfen ob es für die Domain einen MX-Eintrag gibt",
'FLDVAL'=>"<input name=\"dnsCheckDomain\" type=\"checkbox\" value=\"1\"".($this->dnsCheckDomain ? " checked " : "")."> ja"
);
$a_ret['VALCHECKS']['FLD_DNSCHECKERRMSG']=array(
'FLDLAB'=>"DNS-Check Errormsg",
'FLDTIT'=>"Fehlermeldung wenn kein DNS Eintrag gefunden wurde",
'FLDVAL'=>"<input name=\"noMxErrMsg\" value=\"".htmlspecialchars($this->noMxErrMsg)."\" size=\"50\">"
);
return $a_ret;
}
/**
* save the filed definition form
*
* @param boolean $debug
*
* @return boolean
*
* @version pk-05-02-11
* @version pk-08-06-26
*/
function save($debug=False) {
$ret=parent::save();
$this->noAddrErrMsg= $_POST['noAddrErrMsg'];
$this->dnsCheckDomain= ((isset($_POST['dnsCheckDomain']) && intval($_POST['dnsCheckDomain'])) ? True : False );
$this->noMxErrMsg= $_POST['noMxErrMsg'];
return $ret;
}
/**
* returns the field value if the two fields matches
*
* @param string $aValue the value
* @param array $err error array
* @param string $arrName name of the array to access fieldsarray gloabl ${$arrName}
* @param bool $debug
*
* @return string
*
* @version pk-05-02-11 included code to check email address from www.php.net/manual/en
*
***/
function getValue($aValue,&$err,$arrName="DBVAL",$debug=False) {
$debug=($debug || $this->fldDebug || $this->fldDbgGetValue);
if ($debug) echo "<hr><p><b>DBMS_FIELD_EMAILADDR::getValue($aValue,$err,$arrName,$debug)</b> (".get_class($this)." | ".$this->myName.")</p>";
if ($value=parent::getValue($aValue,$err,$arrName,$debug)) {
if ($debug) print("Checking: $value<br>");
if (eregi("^[_a-z0-9-]+(\.[_a-z0-9-]+)*@[a-z0-9-]+(\.[a-z0-9-]+)+$", strtolower($value))) {
if ($debug) {
print("Format Test: PASSED<br>");
print("Online host verification Test...<br><br>");
print("MX Records for: $value<br>");
}
if ($this->dnsCheckDomain) {
list($alias, $domain) = split("@", $value);
if (checkdnsrr($domain, "MX")) {
if ($debug) print("Online host verification Test: PASSED<br><br>Email Status: VALID");
return $value;
} else {
$err['ERROR']=True;
$err[$this->myName]['MSG']=$value.$this->dnsCheckDomain."<br />Online host verification Test: FAILED";
$err[$this->myName]['LABEL']=$this->label;
return NULL;
}
} else {
return $value;
}
} else {
require_once __OCSP_PHPINCPATH__ . "common" . _OCSP_DIRSEP_ . "pcf_templates.phpinc";
global ${$arrName};
$a_data=${$arrName};
$a_data[$this->myName]=$aValue;
$err['ERROR']=True;
$err[$this->myName]['MSG']=pcf_tmpl_parse($this->noAddrErrMsg,$a_data);
$err[$this->myName]['LABEL']=$this->label;
return NULL;
}
}
return $value;
}
} // end class DBMS_FIELD_EMAILADDR
?>

Source for file DBMS_FIELD_EMAILADDR.phpclass