Line # | Revision | Author | |
---|---|---|---|
1 | 8 | ahitrov@rambler.ru | <%args> |
2 | $name | ||
3 | $value => undef | ||
4 | $expires => undef | ||
5 | </%args> | ||
6 | <%init> | ||
7 | if (defined $value) | ||
8 | { | ||
9 | my $cookie = new CGI::Cookie ( | ||
10 | -name => $name, | ||
11 | -value => $value, | ||
12 | defined $expires ? (-expires => $expires) : (), | ||
13 | -secure => 0, | ||
14 | ); | ||
15 | $r->headers_out->add('Set-cookie' => $cookie); | ||
16 | } | ||
17 | else | ||
18 | { | ||
19 | my %cookies = fetch CGI::Cookie; | ||
20 | my $value = $cookies{$name}->value() if exists $cookies{$name} && $cookies{$name}; | ||
21 | return $value; | ||
22 | } | ||
23 | </%init> |