Hello!

On Fri, Aug 10, 2012 at 10:12:56AM -0400, darkweaver871 wrote:

> OK, so is this better ?
>
> #!/usr/bin/perl
>
> package switcher_test;
> use nginx;
>
> use Sys::Syslog;
>
> my $facility = 'local2';
>
> sub handler {
> my $r = shift;
>
> return $r->has_request_body(\& test);
>
> }
>
> sub test {
> my $r = shift;
> if ($r->request_body =~ /.*test.*/) { return 3 };
> openlog('switcher', 'ndelay', $facility);
> syslog(LOG_DEBUG, 'request_body: '.$r->request_body);
> syslog(LOG_DEBUG, 'request_body_file: '.$r->request_body_file);
> return 4;
> }
>
> 1;
> __END__
>
>
> It still doesn't work this way.

Again: you can't use this code in perl_set directive. You have to
use perl directive:

perl switcher_test::handler;

And in perl package (mostly cut-n-paste from docs, with an
additional test for body):

package switcher_test;

use nginx;

sub handler {
my $r = shift;

if ($r->request_method ne "POST") {
return DECLINED;
}

if ($r->has_request_body(\&post)) {
return OK;
}

return HTTP_BAD_REQUEST;
}

sub post {
my $r = shift;

$r->send_http_header;

$r->print("request_body: \"", $r->request_body, "\"<br/>");
$r->print("request_body_file: \"", $r->request_body_file, "\"<br/>\n");

if ($r->request_body =~ /test/) {
return HTTP_BAD_REQUEST;
}

return OK;
}

1;

Maxim Dounin

_______________________________________________
nginx mailing list
nginx@nginx.org
http://mailman.nginx.org/mailman/listinfo/nginx