perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From ge...@apache.org
Subject svn commit: r292234 - in /perl/modperl/trunk: Changes t/apache/constants.t t/response/TestModules/proxy.pm xs/tables/current/Apache2/ConstantsTable.pm
Date Wed, 28 Sep 2005 18:18:45 GMT
Author: geoff
Date: Wed Sep 28 11:18:39 2005
New Revision: 292234

URL: http://svn.apache.org/viewcvs?rev=292234&view=rev
Log:
add :proxy import tag to Apache2::Const which exposes new
constants PROXYREQ_NONE, PROXYREQ_PROXY, and PROXYREQ_REVERSE

Modified:
    perl/modperl/trunk/Changes
    perl/modperl/trunk/t/apache/constants.t
    perl/modperl/trunk/t/response/TestModules/proxy.pm
    perl/modperl/trunk/xs/tables/current/Apache2/ConstantsTable.pm

Modified: perl/modperl/trunk/Changes
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/Changes?rev=292234&r1=292233&r2=292234&view=diff
==============================================================================
--- perl/modperl/trunk/Changes (original)
+++ perl/modperl/trunk/Changes Wed Sep 28 11:18:39 2005
@@ -12,6 +12,10 @@
 
 =item 2.0.2-dev
 
+add :proxy import tag to Apache2::Const which exposes new
+constants PROXYREQ_NONE, PROXYREQ_PROXY, and PROXYREQ_REVERSE
+[Geoffrey Young]
+
 $0 Fixes : [Gozer]
 - Setting $0 works on Linux again
 - HP-UX and *BSDes show the correct process name instead of '-e'

Modified: perl/modperl/trunk/t/apache/constants.t
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/apache/constants.t?rev=292234&r1=292233&r2=292234&view=diff
==============================================================================
--- perl/modperl/trunk/t/apache/constants.t (original)
+++ perl/modperl/trunk/t/apache/constants.t Wed Sep 28 11:18:39 2005
@@ -6,7 +6,7 @@
 use Apache::TestUtil;
 
 # -compile puts constants into the Apache2:: namespace
-use Apache2::Const -compile => qw(:http :common :mpmq
+use Apache2::Const -compile => qw(:http :common :mpmq :proxy
                                   TAKE23 &OPT_EXECCGI
                                   DECLINE_CMD DIR_MAGIC_TYPE 
                                   CRLF);
@@ -15,7 +15,7 @@
 # caller namespace.  also defaults to :common
 use Apache2::Const;
 
-plan tests => 17;
+plan tests => 18;
 
 ok t_cmp(REDIRECT, 302, 'REDIRECT');
 
@@ -36,6 +36,10 @@
 ok t_cmp(Apache2::Const::MPMQ_MAX_SPARE_DAEMONS, 
          9,
          'Apache2::Const::MPMQ_MAX_SPARE_DAEMONS');
+
+ok t_cmp(Apache2::Const::PROXYREQ_REVERSE,
+         2,
+         'Apache2::Const::PROXYREQ_REVERSE');
 
 # the rest of the tests don't fit into the t_cmp() meme
 # for one reason or anothre...

Modified: perl/modperl/trunk/t/response/TestModules/proxy.pm
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/t/response/TestModules/proxy.pm?rev=292234&r1=292233&r2=292234&view=diff
==============================================================================
--- perl/modperl/trunk/t/response/TestModules/proxy.pm (original)
+++ perl/modperl/trunk/t/response/TestModules/proxy.pm Wed Sep 28 11:18:39 2005
@@ -11,7 +11,7 @@
 
 my $uri_real = "/TestModules__proxy_real";
 
-use Apache2::Const -compile => qw(DECLINED OK);
+use Apache2::Const -compile => qw(DECLINED OK PROXYREQ_REVERSE);
 
 sub proxy {
     my $r = shift;
@@ -23,7 +23,7 @@
     my $real_url = sprintf "http://%s:%d%s",
         $s->server_hostname, $s->port, $uri_real;
 
-    $r->proxyreq(1);
+    $r->proxyreq(Apache2::Const::PROXYREQ_REVERSE);
     $r->uri($real_url);
     $r->filename("proxy:$real_url");
     $r->handler('proxy-server');

Modified: perl/modperl/trunk/xs/tables/current/Apache2/ConstantsTable.pm
URL: http://svn.apache.org/viewcvs/perl/modperl/trunk/xs/tables/current/Apache2/ConstantsTable.pm?rev=292234&r1=292233&r2=292234&view=diff
==============================================================================
--- perl/modperl/trunk/xs/tables/current/Apache2/ConstantsTable.pm (original)
+++ perl/modperl/trunk/xs/tables/current/Apache2/ConstantsTable.pm Wed Sep 28 11:18:39 2005
@@ -227,7 +227,12 @@
       'TAKE23',
       'TAKE123',
       'TAKE13'
-    ]
+    ],
+    'proxy' => [
+      'PROXYREQ_REVERSE',
+      'PROXYREQ_NONE',
+      'PROXYREQ_PROXY',
+    ],
   },
   'APR::Const' => {
     'uri' => [
@@ -459,7 +464,7 @@
     ],
     'common' => [
       'APR_SUCCESS'
-    ]
+    ],
   }
 };
 



Mime
View raw message