summaryrefslogtreecommitdiff
path: root/examples
diff options
context:
space:
mode:
authorYorhel <git@yorhel.nl>2011-01-12 15:46:26 +0100
committerYorhel <git@yorhel.nl>2011-01-12 15:46:26 +0100
commitabd392a11822c04c72b2f61923616c789adf8a55 (patch)
tree48f6a454065d5a6a3e1c5ce7a628488621a63d9f /examples
parentd2acc91aaf6521b81c4083b7fc7efeb8530939af (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.pm6
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;