[vox-tech] Trying to use Apache::Cookie

[Jay Strauss]

I thought you guys all said you've used mod_perl.  Did everyone ignore this
post?

Jay
----- Original Message ----- 
From: "Jay Strauss" <me@heyjay.com>
To: "vox-tech" <vox-tech@lists.lugod.org>
Sent: Wednesday, May 21, 2003 11:18 PM
Subject: [vox-tech] Trying to use Apache::Cookie


> Ok, since it seems mod_perl is an appropriate topic.  Here a mod_perl
> question.
>
> I'm trying to use Apache::Cookie.  But I'm unable to send the cookie.  I
can
> pick it up fine using Apache::Cookie->fetch (if I send it using
> CGI::Cookie). I must not be doing something, like sending the header, or
I'm
> doing something else wrong.  Below are 2 pieces of code the first is
> supposed to create a cookie, the second fetches it and displays the keys.
>
> Thanks
> Jay
>
> package Apache::Init;
>
> use strict;
> use Apache::Constants qw(:common);
> use Apache::Cookie;
> use CGI::Cookie;
> use CGI qw/:standard/;
>
> sub handler {
>    my $r = shift;
>
> #  If I do it like this it works
> #
>  #my $cookie1 = new CGI::Cookie(-name=>'ID',-value=>123456);
> #my $cookie2 = new CGI::Cookie(-name=>'preferences',
> #                            -value=>{ font => 'Helvetica',
> #                                      size => 12 }
> #                            );
> #print header(-cookie=>[$cookie1,$cookie2]);
>
>    my $cookie = Apache::Cookie->new($r,
>                              -name    =>  'foo',
>                              -value   =>  'bar',
>                              -expires =>  '+3M',
>                              -domain  =>  '.heyjay.com',
>                              -secure  =>  1
>                             );
>
>    $cookie->bake;
>
>    return OK;
>
> }
>
>
> 1;
>
>
> Second Code
> ===========
> package Apache::Catch;
>
> use strict;
> use Apache::Constants qw(:common);
> use CGI '-autoload';
> use Apache::Cookie;
> use CGI::Cookie;
>
> sub handler {
>    my $r = shift;
>    my %cookies = Apache::Cookie->fetch;
>
>    map{$r->log_error($_); print "$_\n"} keys %cookies;
>    return OK;
>
> }
>
> 1;
>
> __END__
>
>
>
> _______________________________________________
> vox-tech mailing list
> vox-tech@lists.lugod.org
> http://lists.lugod.org/mailman/listinfo/vox-tech
>
>