Welcome! Log In Create A New Profile

Advanced

Re: perl модуль, возвращение запроса на обработку nginx

November 03, 2012 11:40AM
Пока нашёл только один рабочий вариант: делать internal_redirect на другой локейшен.
Есть ли менее череззаднепроходные методы реализовать мою задачу?
пока как-то так:
package onlyxml;

use nginx;
use strict;
use XML::Simple;


sub test {
my $r = shift;

if ($r->request_method eq "POST") {
if ($r->has_request_body(\&post)) {
$r->internal_redirect('/valid'.$r->uri);
} else {
return 401; # пустой запрос
}
} else {
#return DECLINED; # не GET запросы
$r->internal_redirect('/valid'.$r->uri);
}

}

sub post {
my $r = shift;

my $xs = new XML::Simple();
my $hash;
eval {$hash = $xs->XMLin($r->request_body)};
if ($@){
return 400; # не валидный
} else {
return 1; # Валидный xml
}
}

1;
__END__
Subject Author Posted

perl модуль, возвращение запроса на обработку nginx

Alexey Shilo November 02, 2012 01:04PM

Re: perl модуль, возвращение запроса на обработку nginx

Alexey Shilo November 03, 2012 11:40AM

Re: perl модуль, возвращение запроса на обработку nginx

Maxim Dounin November 06, 2012 06:14AM



Sorry, only registered users may post in this forum.

Click here to login

Online Users

Guests: 324
Record Number of Users: 8 on April 13, 2023
Record Number of Guests: 421 on December 02, 2018
Powered by nginx      Powered by FreeBSD      PHP Powered      Powered by MariaDB      ipv6 ready