diff options
author | Yorhel <git@yorhel.nl> | 2011-01-12 15:46:26 +0100 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2011-01-12 15:46:26 +0100 |
commit | abd392a11822c04c72b2f61923616c789adf8a55 (patch) | |
tree | 48f6a454065d5a6a3e1c5ce7a628488621a63d9f /examples | |
parent | d2acc91aaf6521b81c4083b7fc7efeb8530939af (diff) |
TUWF::Request: Implemented own cookie parser
This removes the dependency on CGI::Cookie::XS.
reqCookie() can now also be used without arguments, in which case it
will return the list of available cookie names.
Also extended examples/MyWebsite/InfoDump.pm to list the cookies.
Diffstat (limited to 'examples')
-rw-r--r-- | examples/MyWebsite/InfoDump.pm | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/examples/MyWebsite/InfoDump.pm b/examples/MyWebsite/InfoDump.pm index 8950150..dc897ac 100644 --- a/examples/MyWebsite/InfoDump.pm +++ b/examples/MyWebsite/InfoDump.pm @@ -59,6 +59,12 @@ sub info { $tr->($_, $self->reqHeader($_)) for ($self->reqHeader()); end; + h2 'HTTP Cookies'; + table; + thead; Tr; td 'Cookie'; td 'Value'; end; end; + $tr->($_, $self->reqCookie($_)) for ($self->reqCookie()); + end; + h2 'Misc. request functions'; table; thead; Tr; td 'Function'; td 'Return value'; end; end; |