Ajax的错误处理机制探讨(2)

　// 方法
　this.errorToXML = errorToXML;
　this.log = log;
}

// 请求的状态发生改变的时候调用
function errorLogged() {
　if (logger.req.readyState != 4) return;
　window.clearTimeout(logger.timeout);
　// 请求完成了
　if (logger.req.status ＞= 400)
　　alert(’Attempt to log the error failed.’);
}

function foo() {
　try {
　　riskyOperation();
　} catch (err) {
　　//添加自定义属性
　　err.location = location.href + ’, function: foo()’;
　　logger.log(err);
　　warnUser();
　}
}
function warnUser() {
　alert("An error has occurred while processing this page."+"Our engineers have been alerted!");
　location.href = ’/path/to/error/page.html’;
}
＜/script＞

my $method = $request-＞request_method();
# 方法必须是POST
if ($method eq ’POST’) {
　eval {
　　my $content_type = $request-＞content_type();
　　if ($content_type eq ’text/xml’) {
　　　print $request-＞header(-status =＞’415 Unsupported Media Type’, -type =＞ ’text/xml’);
　　　croak "Invalid content type: $content_type\n";
　　}
　　# 如果方法是POST，内容既不是URL编码也不是多部分形式，
　　#那么整个post会被填充到一个参数中：POSTDATA。
　　my $error_xml = $request-＞param(’POSTDATA’);
　　my $ref = XML::Simple::XMLin($error_xml);
　　my ($name, $msg, $location) =($ref-＞{’name’}, $ref-＞{’message’}, ’’);
　　$location = $ref-＞{’location’} if (defined($ref-＞{’location’}));
　　# 改变日志中的名字
　　set_progname(’Client-side error’);
　　my $remote_host = $request-＞remote_host();
　　carp "name: [$name], msg: [$msg], location: [$location]";
　};
　if ($@) {
　　print $request-＞header(-status =＞ ’500 Internal server error’,-type =＞ ’text/xml’);
　　croak "Error while logging: $@";
　} else {
　　# 这部分响应代码表明操作成功了，但是客户端不应该期待任何内容
　　print $request-＞header(-status =＞ ’204 No content’,-type =＞ ’text/xml’);
　}
　} else {
　　print $request-＞header(-status =＞ ’405 Method not supported’,-type =＞ ’text/xml’);
　　croak "Unsupported method: $method";
}