• 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>