用PHP即时捕捉PHP中的错误并发送email通知的实现代码

开发PHP的朋友都知道,其实最担心的就是程序中出现一些异常或错误,这些状况如果输出到用户的萤幕会把用户给吓坏,甚至为此丢了工作,如果不输出到萤幕就得想办法记录到日志中,但是似乎不是每个人都有查看错误日志的习惯,爲了解决这个尴尬的问题,所以我写了这段代码,其用意就是当我们写的php程式出错的时候把错误内容捕捉出来然后发到我们的email内.

先看效果:


复制代码 代码如下:
Define('SYS_DEBUG',false);
IF(SYS_DEBUG) {
ini_set('display_errors','on');
Error_reporting(E_ALL);//上线后使用该设定Error_reporting(E_ERROR | E_WARNING | E_PARSE);
}Else{
ini_set('display_errors','off');
Error_reporting(0);
}

//错误捕捉
Register_shutdown_function('Fun::Error');

Class Fun{


Public Static Function Error($M='',$E=True){
$ErrTpl='

{$M}

';

$M=Trim($M);
IF($M!='') {//手工调用
$M=' 注意: '.$M;
Echo Strtr($ErrTpl,Array('{$M}'=>$M));unSet($ErrTpl);
IF($E===True) {Die();}
Return ;
}Else{//程式执行完毕自动抓取错误时调用
$M=error_get_last();//取得最后产生的错误
IF(!Is_array($M) Or Count($M)<4) {Unset($M);Return ;}
IF(!File_Exists($M['file'])) {Unset($M);Return ;}

//取得5行出错关键代码,如果取不到内容,说明出错档桉不存在
$E=Array_slice(File($M['file']),($M['line']-4),5);
IF(!Is_array($E)) {Unset($M,$E);Return ;}

$E['M']='';
For($i=0;$i<5;$i++) {
$E[$i]=isSet($E[$i]) ? $E[$i] : '';
$E['M'].='  ';
$E['M'].=($i==3) ? ''.(($M['line']-3)+($i+1)).'' : (($M['line']-3)+($i+1));
$E['M'].=': '.Htmlspecialchars($E[$i],ENT_QUOTES,'UTF-8').'
';
}
$E=&$E['M'];

$M='自动捕捉到有错误产生!

错误描述:
  '.$M['file'].'的第'.$M['line'].'行出现了类型为'.$M['type'].'的错误:
  '.$M['message'].'

关键代码:
'.$E.'
'.self::now('Y-m-d H:i:s',time()).'
';

$M=Strtr($ErrTpl,Array('{$M}'=>$M));unSet($ErrTpl);

$G=seft::getG('SYS','config');
IF(!self::Mail2($G['Spe'],'警告: '.$G['Tit'].' 出现 PHP 程式错误!',$M) And SYS_DEBUG===True){
throw new Exception('警告: '.$G['Tit'].' 出现 PHP 程式错误!

'.$M);
}
IF(SYS_DEBUG) {Echo $M;}
unSet($E,$M,$G);
Die();
}
}

Public Static Function Mail2($to,$tit,$msg) {
IF(Filter_var($to,FILTER_VALIDATE_EMAIL)==''){
throw new Exception('电邮地址错误!');
}

$tit='=?UTF-8?B?'.base64_Encode($tit).'?=';
$msg = str_replace("n.","n..",$msg); //Windows如果在一行开头发现一个句号则会被删掉,要避免此问题将单个句号替换成两个句号

Return Mail($to,$tit,$msg,'From:'.seft::getG('config/SYS/Mal')."n".'Content-Type:text/html;charset=utf-8');
}
}