perl-modperl-cvs mailing list archives

Site index · List index
Message view « Date » · « Thread »
Top « Date » · « Thread »
From sbek...@locus.apache.org
Subject cvs commit: modperl/lib/Apache SizeLimit.pm
Date Wed, 20 Dec 2000 18:52:03 GMT
sbekman     00/12/20 10:52:01

  Modified:    .        Changes
               lib/Apache SizeLimit.pm
  Log:
  Solving an 'uninitialized value' warn in Apache::SizeLimit.
  post_connection() expects a return status from the callback function.
  
  Revision  Changes    Path
  1.558     +4 -0      modperl/Changes
  
  Index: Changes
  ===================================================================
  RCS file: /home/cvs/modperl/Changes,v
  retrieving revision 1.557
  retrieving revision 1.558
  diff -u -r1.557 -r1.558
  --- Changes	2000/12/20 18:35:32	1.557
  +++ Changes	2000/12/20 18:51:50	1.558
  @@ -10,6 +10,10 @@
   
   =item 1.24_02-dev
   
  +Solving an 'uninitialized value' warn in Apache::SizeLimit.
  +post_connection() expects a return status from the callback function.
  +[Stas Bekman <sbekman@stason.org>]
  +
   include mod_perl hook/feature config in Apache::MyConfig
   [Geoffrey Young <gyoung@laserlink.net>]
   
  
  
  
  1.7       +6 -5      modperl/lib/Apache/SizeLimit.pm
  
  Index: SizeLimit.pm
  ===================================================================
  RCS file: /home/cvs/modperl/lib/Apache/SizeLimit.pm,v
  retrieving revision 1.6
  retrieving revision 1.7
  diff -u -r1.6 -r1.7
  --- SizeLimit.pm	1999/08/03 23:50:59	1.6
  +++ SizeLimit.pm	2000/12/20 18:51:56	1.7
  @@ -172,22 +172,23 @@
   
   sub exit_if_too_big {
       my $r = shift;
  -    return if ($REQUEST_COUNT++ < $CHECK_EVERY_N_REQUESTS);
  +    return DECLINED if ($REQUEST_COUNT++ < $CHECK_EVERY_N_REQUESTS);
       $REQUEST_COUNT = 1;
  -    if (defined($MAX_PROCESS_SIZE)) {
  +    if ($MAX_PROCESS_SIZE) {
   	my $size = &$HOW_BIG_IS_IT();
   	if ($size > $MAX_PROCESS_SIZE) {
   	    # I have no idea if this will work on anything but UNIX
   	    if (getppid > 1) {	# this is a  child httpd
  -		&error_log("httpd process too big, exiting at SIZE=$size KB");
  +		error_log("httpd process too big, exiting at SIZE=$size KB");
   	        $r->child_terminate;
   	    } else {		# this is the main httpd
  -		&error_log("main process too big, SIZE=$size KB");
  +		error_log("main process too big, SIZE=$size KB");
   	    }
   	}
       } else {
  -	&error_log("you didn't set \$Apache::SizeLimit::MAX_PROCESS_SIZE");
  +	error_log("you didn't set \$Apache::SizeLimit::MAX_PROCESS_SIZE");
       }
  +    return OK;
   }
   
   # setmax can be called from within a CGI/Registry script to tell the httpd
  
  
  

Mime
View raw message