| Syntax: | perl_set $variable module :: function |'sub { ... }' |
| Default: | |
| Context: | http |
| Reference: | perl_set |
Directive establishes the function of variable ???
Instruction format is as follows:
<!--# perl sub="module::function" arg="parameter1" arg="parameter2"... -->
package hello; use nginx; sub handler { my $r = shift; if ($r->request_method ne "POST") { return DECLINED; } if ($r->has_request_body(\&post)) { return OK; } return 400; } 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"); return OK; } 1; __END__