perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From pgollu...@apache.org
Subject svn commit: r433885 - /perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm
Date Wed, 23 Aug 2006 04:37:03 GMT
Author: pgollucci
Date: Tue Aug 22 21:37:03 2006
New Revision: 433885

URL: http://svn.apache.org/viewvc?rev=433885&view=rev
Log:
remove target specific functions


Modified:
    perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm

Modified: perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm
URL: http://svn.apache.org/viewvc/perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm?rev=433885&r1=433884&r2=433885&view=diff
==============================================================================
--- perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm (original)
+++ perl/Apache-SizeLimit/trunk/lib/Apache/BaseSizeLimit.pm Tue Aug 22 21:37:03 2006
@@ -13,7 +13,7 @@
 # See the License for the specific language governing permissions and
 # limitations under the License.
 
-package Apache::SizeLimit;
+package Apache::BaseLimit;
 
 use strict;
 
@@ -63,39 +63,6 @@
     my $class = shift;
 
     $CHECK_EVERY_N_REQUESTS = shift;
-}
-
-sub handler ($$) {
-    my $class = shift;
-    my $r = shift || Apache->request;
-
-    return DECLINED unless $r->is_main();
-
-    # we want to operate in a cleanup handler
-    if ( $r->current_callback eq 'PerlCleanupHandler' ) {
-        return $class->_exit_if_too_big($r);
-    }
-    else {
-        $class->add_cleanup_handler($r);
-    }
-
-    return DECLINED;
-}
-
-sub add_cleanup_handler {
-    my $class = shift;
-    my $r = shift || Apache->request;
-
-    return unless $r;
-    return if $r->pnotes('size_limit_cleanup');
-
-    # This used to use $r->post_connection but there's no good way to
-    # test it, since apparently it does not push a handler onto the
-    # PerlCleanupHandler phase. That means that there's no way to use
-    # $r->get_handlers() to check the results of calling this method.
-    $r->push_handlers( 'PerlCleanupHandler',
-                       sub { $class->_exit_if_too_big(shift) } );
-    $r->pnotes( size_limit_cleanup => 1 );
 }
 
 sub _exit_if_too_big {



Mime
View raw message