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>