-
cookies.msn
600 601 4 4 $expires => undef 5 5 </%args> 6 6 <%init> 7 if (defined $value) 8 { 9 my $cookie = new CGI::Cookie ( 7 8 if (defined $value) { 9 my $cookie = Apache::Cookie->new( $request->r(), 10 10 -name => $name, 11 11 -value => $value, 12 12 defined $expires ? (-expires => $expires) : (), 13 13 -secure => 0, 14 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 } 15 $cookie->bake(); 16 # $r->headers_out->add('Set-cookie' => $cookie); 17 } else { 18 my %cookies = Apache::Cookie->fetch; 19 my $value = $cookies{$name}->value() if exists $cookies{$name} && $cookies{$name}; 20 return $value; 21 } 22 23 23 </%init>