| @@ -0,0 +1,36 @@
+--- httpd-2.0.49.orig/support/log_server_status.in 2004-02-09 21:59:49.000000000 +0100
++++ httpd-2.0.49/support/log_server_status2 2004-06-18 11:34:37.000000000 +0200
+@@ -24,18 +24,18 @@
+ # it to a file. Make sure the directory $wherelog is writable by the
+ # user who runs this script.
+ #
+-require 'sys/socket.ph';
++use Socket;
+
+-$wherelog = "/var/log/graph/"; # Logs will be like "/var/log/graph/19960312"
++$wherelog = "/var/log/apache2/status/"; # Logs will be like "/var/log/apache2/status/19960312"
+ $server = "localhost"; # Name of server, could be "www.foo.com"
+ $port = "80"; # Port on server
+-$request = "/status/?auto"; # Request to send
++$request = "/server-status/?auto"; # Request to send
+
+ sub tcp_connect
+ {
+ local($host,$port) =@_;
+ $sockaddr='S n a4 x8';
+- chop($hostname=`hostname`);
++ chop($hostname='localhost');
+ $port=(getservbyname($port, 'tcp'))[2] unless $port =~ /^\d+$/;
+ $me=pack($sockaddr,&AF_INET,0,(gethostbyname($hostname))[4]);
+ $them=pack($sockaddr,&AF_INET,$port,(gethostbyname($host))[4]);
+@@ -66,8 +66,8 @@
+ }
+ print S "GET $request\n";
+ while (<S>) {
+- $requests=$1 if ( m|^BusyServers:\ (\S+)|);
+- $idle=$1 if ( m|^IdleServers:\ (\S+)|);
++ $requests=$1 if ( m|^BusyWorkers:\ (\S+)|);
++ $idle=$1 if ( m|^IdleWorkers:\ (\S+)|);
+ $number=$1 if ( m|sses:\ (\S+)|);
+ $cpu=$1 if (m|^CPULoad:\ (\S+)|);
+ }
|
