lib/CGI/Cookie.pm

1 package CGI::Cookie;
16 $CGI::Cookie::VERSION='1.28';
18 use CGI::Util qw(rearrange unescape escape);
19 use CGI;
143   #    $domain = CGI::virtual_host()    unless defined $domain;
189       print CGI::header(-cookie => $self);
238     $self->{'expires'} = CGI::Util::expires($expires,'cookie') if defined $expires;
245   $self->{'max-age'} = CGI::Util::expire_calc($expires)-time() if defined $expires;
268 CGI::Cookie - Interface to Netscape Cookies
272     use CGI qw/:standard/;
273     use CGI::Cookie;
276     $cookie1 = new CGI::Cookie(-name=>'ID',-value=>123456);
277     $cookie2 = new CGI::Cookie(-name=>'preferences',
284     %cookies = fetch CGI::Cookie;
288     %cookies = parse CGI::Cookie($ENV{COOKIE});
292 CGI::Cookie is an interface to Netscape (HTTP/1.1) cookies, an
294 the browser's side of the connection.  Although CGI::Cookie is
295 intended to be used in conjunction with CGI.pm (and is in fact used by
302 =head1 USING CGI::Cookie
304 CGI::Cookie is object oriented.  Each cookie object has a name and a
348 script if the CGI request is occurring on a secure channel, such as SSL.
367 	my $c = new CGI::Cookie(-name    =>  'foo',
382 recognized by CGI.pm, for example "+3M" for three months in the
383 future.  See CGI.pm's documentation for details.
404   my $c = new CGI::Cookie($r,
419 If you want to set the cookie yourself, Within a CGI script you can send
423   my $c = new CGI::Cookie(-name    =>  'foo',
432 If you are using CGI.pm, you send cookies by providing a -cookie
451 	%cookies = fetch CGI::Cookie;
457 	%cookies = fetch CGI::Cookie;
465 CGI.pm uses the URL escaping methods to save and restore reserved characters
474        %cookies = parse CGI::Cookie($COOKIES);
479    CGI::Cookie->fetch($r);
539 L<CGI::Carp>, L<CGI>