httpd-apreq-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From is...@apache.org
Subject svn commit: r1035398 - in /httpd/apreq/trunk/glue/perl: lib/Apache2/Cookie.pm t/apreq/cookie.t t/response/TestApReq/cookie.pm
Date Mon, 15 Nov 2010 18:42:07 GMT
Author: issac
Date: Mon Nov 15 18:42:07 2010
New Revision: 1035398

URL: http://svn.apache.org/viewvc?rev=1035398&view=rev
Log:
Perl glue tests (and extra docs) for HttpOnly

Modified:
    httpd/apreq/trunk/glue/perl/lib/Apache2/Cookie.pm
    httpd/apreq/trunk/glue/perl/t/apreq/cookie.t
    httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie.pm

Modified: httpd/apreq/trunk/glue/perl/lib/Apache2/Cookie.pm
URL: http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/lib/Apache2/Cookie.pm?rev=1035398&r1=1035397&r2=1035398&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/lib/Apache2/Cookie.pm (original)
+++ httpd/apreq/trunk/glue/perl/lib/Apache2/Cookie.pm Mon Nov 15 18:42:07 2010
@@ -450,6 +450,20 @@ Get or set the HttpOnly flag for the coo
 
 
 
+=head2 httponly
+
+    $cookie->httponly()
+    $cookie->httponly($set)
+
+Get or set the HttpOnly flag for the cookie:
+
+    $cookie->httponly(1);
+    $is_HttpOnly = $cookie->httponly;
+    $cookie->httponly(0);
+
+
+
+
 =head2 comment
 
     $cookie->comment()

Modified: httpd/apreq/trunk/glue/perl/t/apreq/cookie.t
URL: http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/t/apreq/cookie.t?rev=1035398&r1=1035397&r2=1035398&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/t/apreq/cookie.t (original)
+++ httpd/apreq/trunk/glue/perl/t/apreq/cookie.t Mon Nov 15 18:42:07 2010
@@ -6,7 +6,7 @@ use Apache::Test;
 use Apache::TestUtil;
 use Apache::TestRequest qw(GET_BODY GET_HEAD);
 
-plan tests => 14, need_min_module_version('Apache::Test' => 1.29) || need_lwp;
+plan tests => 15, need_min_module_version('Apache::Test' => 1.29) || need_lwp;
 
 my $module = "TestApReq::cookie";
 my $location = Apache::TestRequest::module2url($module);
@@ -168,3 +168,15 @@ my $location = Apache::TestRequest::modu
     my $str = GET_BODY("$location?test=$test", Cookie => $cookie);
     ok t_cmp($str, $value, $test);
 }
+{
+    my $test  = 'httponly';
+    my $key   = 'apache';
+    my $value = 'ok';
+    my $cookie = "$key=$value; HttpOnly";
+    my ($header) =
+        GET_HEAD("$location?test=$test&key=$key") =~ /^#Set-Cookie:\s+(.+)/m;
+
+    ok t_cmp($header, $cookie_in, $test);
+
+}
+

Modified: httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie.pm
URL: http://svn.apache.org/viewvc/httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie.pm?rev=1035398&r1=1035397&r2=1035398&view=diff
==============================================================================
--- httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie.pm (original)
+++ httpd/apreq/trunk/glue/perl/t/response/TestApReq/cookie.pm Mon Nov 15 18:42:07 2010
@@ -68,6 +68,10 @@ sub handler {
             $cookie->version(1);
             $cookie->bake2($req);
         }
+        elsif ($test eq 'httponly'){
+            $cookie->httponly(1);
+            $cookie->bake($req);
+        }
         $r->print($cookie->value);
     }
 



Mime
View raw message