url (-options1=>1)
from url: http://testwd.zag:82/Envs/partsh.sd?23=23 where options:
-path_info -> /Envs/partsh.sd
-base -> http://example.com:82
defaul http://testwd.zag:82/Envs/partsh.sd?23=23
method - HTTP method
retrun HTTP method
accept
return hashref
{
'application/xhtml+xml' => undef,
'application/xml' => undef,
'text/html' => undef
};
param - return GET and POST params
return params
body - HTTP body file descriptor ( see get-body for get content)
Return HTTP body file descriptor
my $body;
{
local $/;
my $fd = $request->body;
$body = <$fd>;
}
get-body - HTTP body content
Return HTTP body text
my $body= $r->get_body;
upload - return upload content
print Dumper $request->upload;
For command:
curl -i -X POST -H "Content-Type: multipart/form-data"\
-F "data=@UserSettings.txt"\
http://example.org/Upload
output:
{
'data' => {
'headers' => {
'Content-Type' => 'text/plain',
'Content-Disposition' => 'form-data; name="data"; filename="UserSettings.txt"'
},
'tempname' => '/tmp/txBmaz5Bpf.txt',
'size' => 6704,
'filename' => 'UserSettings.txt',
'name' => 'data'
}
};
set_header
$cv->set_header("Content-Type" => 'text/html; charset=utf-8')
print_headers [ header1=>value, ...]
Method for output headers
$self->response->get_request->set_header(
'Set-Cookie',
{
path => '/',
domain => '.example.com',
name => 'userid',
value => $self->_current_user->id,
expires => time() + 60 * 60 * 24 * 1, # 1 day
secure => 1,
httpOnly = >1
}
);
get_cookie
return hashref to {key=>value}