152 lines
4.9 KiB
Perl
152 lines
4.9 KiB
Perl
package CGI::Cookie::XS;
|
|
|
|
use strict;
|
|
use warnings;
|
|
|
|
our $VERSION;
|
|
|
|
use XSLoader;
|
|
BEGIN {
|
|
$VERSION = '0.18';
|
|
XSLoader::load(__PACKAGE__, $VERSION);
|
|
}
|
|
|
|
sub fetch {
|
|
my $class = shift;
|
|
my $raw_cookie = $ENV{HTTP_COOKIE} || $ENV{COOKIE} or return;
|
|
$class->parse($raw_cookie);
|
|
}
|
|
|
|
sub parse {
|
|
_parse_cookie($_[1]);
|
|
}
|
|
|
|
1;
|
|
__END__
|
|
|
|
=head1 NAME
|
|
|
|
CGI::Cookie::XS - HTTP Cookie parser in pure C
|
|
|
|
=head1 VERSION
|
|
|
|
This document describes CGI::Cookie::XS 0.18 released on September 2, 2009.
|
|
|
|
=head1 SYNOPSIS
|
|
|
|
use CGI::Cookie::XS;
|
|
|
|
my $raw_cookie = 'foo=a%20phrase;weird; bar=yes%2C%20a%20phrase; baz=%5Ewibble&leiyh; qux=%27';
|
|
my $res = CGI::Cookie::XS->parse($raw_cookie);
|
|
# $res is something like:
|
|
# {
|
|
# 'bar' => [
|
|
# 'yes, a phrase'
|
|
# ],
|
|
# 'baz' => [
|
|
# '^wibble',
|
|
# 'leiyh'
|
|
# ],
|
|
# 'foo' => [
|
|
# 'a phrase'
|
|
# ],
|
|
# 'qux' => [
|
|
# '\''
|
|
# ]
|
|
# };
|
|
|
|
# or directly read raw cookies from the CGI environments:
|
|
$res = CGI::Cookie::XS->fetch;
|
|
|
|
=head1 DESCRIPTION
|
|
|
|
This module implements a very simple parser for cookies used in HTTP applications. We've found L<CGI::Simple::Cookie> and L<CGI::Cookie> rather slow according to the profiling results for our L<OpenResty> project, hence the rewrite in C.
|
|
|
|
This library is still in B<beta> stage and the API is still in flux. We're just following the "release early, releaes often" guideline. So please check back often ;)
|
|
|
|
Special effort has been made to ensure this module works in the same way as the latest L<CGI::Cookie> (i.e., the pure Perl implementation). If you find it doesn't, please let us know.
|
|
|
|
=head1 METHODS
|
|
|
|
We currently provide 2 static methods, C<parse> and C<fetch>. They work mostly the same way as those methods found in L<CGI::Cookie> and L<CGI::Simple::Cookie> but with the exception that our version returns plain Perl data structures rather than hashes of Perl objects (due to performance considerations).
|
|
|
|
We'll implement some cookie dump methods in the near future.
|
|
|
|
=over
|
|
|
|
=item C<< $ref = CGI::Cookie::XS->parse($raw_cookie) >>
|
|
|
|
Parses C<$raw_cookie> and returns the reference of a hash of arrays. The keys
|
|
of the hash are cookie variables' names while the values of the hash are lists of cookie variable's values.
|
|
|
|
There is a length limit on the C<$raw_cookie>. If C<$raw_cookie> is longer than 4 KB (i.e. 4 * 1024 bytes, excluding the trailing '\0'), the overflowing part will be truncated.
|
|
|
|
Also note that, C<fetch> does not assume any encoding on the cookie values. It just decodes the encoded entries verbatim and treat them as plain "binary" stuff.
|
|
|
|
=item C<< $ref = CGI::Cookie::XS->fetch() >>
|
|
|
|
Reads the raw cookie from the C<HTTP_COOKIE> and C<COOKIE> environments
|
|
(which are usually set by HTTP servers like lighttd or apache) and then
|
|
parses the value using the C<parse> method and finally returns the
|
|
results.
|
|
|
|
=back
|
|
|
|
=head1 TODO
|
|
|
|
=over
|
|
|
|
=item *
|
|
|
|
Removing trailing spaces in cookie values.
|
|
|
|
=back
|
|
|
|
=head1 SOURCE CONTROL
|
|
|
|
For the very latest version of this module, check out the source from
|
|
the Git repos below:
|
|
|
|
L<http://github.com/agentzh/cookiexs/>
|
|
|
|
There is anonymous access to all. If you'd like a commit bit, please let
|
|
us know. :)
|
|
|
|
=head1 BUGS
|
|
|
|
There must be some serious bugs lurking somewhere. We haven't done comprehensive testing for our code yet. It's a TODO.
|
|
|
|
Please report bugs or send wish-list to
|
|
L<http://rt.cpan.org/NoAuth/Bugs.html?Dist=CGI-Cookie-XS>.
|
|
|
|
=head1 SEE ALSO
|
|
|
|
L<CGI::Cookie>, L<CGI::Cookie::Simple>.
|
|
|
|
=head1 AUTHOR
|
|
|
|
=over
|
|
|
|
=item yuting C<< <yuting at alibaba-inc.com> >>
|
|
|
|
=item agentzh C<< <agentzh at yahoo.cn> >>
|
|
|
|
=back
|
|
|
|
=head1 COPYRIGHT
|
|
|
|
Copyright (c) 2008 by Yahoo! China EEEE Works, Alibaba Inc.
|
|
|
|
Copyright (c) 2009 by Taobao Inc., Alibaba Group.
|
|
|
|
=head1 License
|
|
|
|
The "MIT" License
|
|
|
|
Permission is hereby granted, free of charge, to any person obtaining a copy of this software and associated documentation files (the "Software"), to deal in the Software without restriction, including without limitation the rights to use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of the Software, and to permit persons to whom the Software is furnished to do so, subject to the following conditions:
|
|
|
|
The above copyright notice and this permission notice shall be included in all copies or substantial portions of the Software.
|
|
|
|
THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
|
|
|