Gokul P. Nair wrote:
I'm confused as to which is the best way to go about
setting and retrieving cookies.
Any advice would be greatly appreciated.
perldoc APR::Request::Cookie
Its supposed to be available
http://httpd.apache.org/APR/Request/Cookie.html
but the doc generated had issues when 2.05-dev was uploaded.
I'll try to look at fixing that sometime tonight. The perldco page
should be pretty good though.
I've attached the APR/Request/Cookie.pm
--
END
---------------------------------------------------------
What doesn't kill us can only make us stronger.
Nothing is impossible.
Philip M. Gollucci ([EMAIL PROTECTED]) 301.254.5198
Consultant / http://p6m7g8.net/Resume/resume.shtml
Senior Developer / Liquidity Services, Inc.
http://www.liquidityservicesinc.com
http://www.liquidation.com
http://www.uksurplus.com
http://www.govliquidation.com
http://www.gowholesale.com
#
# /*
# * *********** WARNING **************
# * This file generated by My::WrapXS/2.05-dev
# * Any changes made here will be lost
# * ***********************************
# * 1.
/usr/local/apps/5.8.6_2.0.54_prefork/perl/lib/site_perl/ExtUtils/XSBuilder/WrapXS.pm:39
# * 2.
/usr/local/apps/5.8.6_2.0.54_prefork/perl/lib/site_perl/ExtUtils/XSBuilder/WrapXS.pm:2061
# * 3. Makefile.PL:146
# */
#
package APR::Request::Cookie;
require DynaLoader ;
use strict;
use warnings FATAL => 'all';
use vars qw{$VERSION @ISA} ;
push @ISA, 'DynaLoader' ;
$VERSION = '2.05-dev';
bootstrap APR::Request::Cookie $VERSION ;
use APR::Request;
sub new {
my ($class, $pool, %attrs) = @_;
my $name = delete $attrs{name};
my $value = delete $attrs{value};
$name = delete $attrs{-name} unless defined $name;
$value = delete $attrs{-value} unless defined $value;
return unless defined $name and defined $value;
my $cookie = $class->make($pool, $name, $class->freeze($value));
while(my ($k, $v) = each %attrs) {
$k =~ s/^-//;
$cookie->$k($v);
}
return $cookie;
}
sub freeze { return $_[1] }
sub thaw { return shift->value }
1;
__END__
