NAME
Parse::Apache::ServerStatus - Simple module to parse apache's
server-status.
SYNOPSIS
use Parse::Apache::ServerStatus;
my $url = '
http://localhost/server-status';
# or
http://localhost/server-status?auto
my $prs = Parse::Apache::ServerStatus->new(
url => '
http://localhost/server-status',
timeout => 30
);
my $stat = $prs->get or die $prs->errstr;
# or
my $prs = Parse::Apache::ServerStatus->new;
foreach my $url (@urls) {
$prs->request(url => $url, timeout => 30) or die $prs->errstr;
my $stat = $prs->parse or die $prs->errstr;
}
# or both in one step
foreach my $url (@urls) {
my $stat = $prs->get(url => $url, timeout => 30)
or die $prs->errstr;
}
DESCRIPTION
This module parses the content of apache's server-status and countes the
current status by each process. It works nicely with apache versions 1.3
and 2.x.
METHODS
new()
Call "new()" to create a new Parse::Apache::ServerStatus object.
request()
This method requests the url and safes the content into the object.
parse()
Call "parse()" to parse the server status. This method returns a hash
reference with the parsed content. There are diffenrent keys that
contains the following counts:
p Parents (this key will be kicked in future releases, dont use it)
r Requests currenty being processed
i Idle workers
_ Waiting for Connection
S Starting up
R Reading Request
W Sending Reply
K Keepalive (read)
D DNS Lookup
C Closing connection
L Logging
G Gracefully finishing
I Idle cleanup of worker
. Open slot with no current process
The following keys are set to 0 if extended server-status is not activated.
ta Total accesses
tt Total traffic
rs Requests per second
bs Bytes per second
br Bytes per request
It's possible to call "parse()" with the content as argument.
my $stat = $prs->parse($content);
If no argument is passed then "parse()" looks into the object for the
content that is stored by "request()".
get()
"get()" calls "request()" and "parse()" in one step. It's possible to
set the options "url" and "timeout" and it returns the hash reference
that is returned by "parse()".
content()
Call "content()" if you need the full content of server-status.
my $content = $prs->content;
errstr()
"errstr()" contains the error string if the requests fails.
ua()
Access the "LWP::UserAgent" object if you want to set your own
properties.
OPTIONS
There are only two options: "url" and "timeout".
Set "url" with the complete url like "
http://localhost/server-status".
There is only http supported by default, not https or other protocols.
Set "timeout" to define the time in seconds to abort the request if
there is no response. The default is set to 180 seconds if the options
isn't set.
EXAMPLE
use strict;
use warnings;
use Parse::Apache::ServerStatus;
$|++;
my $prs = Parse::Apache::ServerStatus->new(
url => '
http://localhost/server-status',
# url => '
http://localhost/server-status?auto',
timeout => 10
);
my @order = qw/p r i _ S R W K D C L G I . ta tt rs bs br/;
my $interval = 10;
my $header = 20;
while ( 1 ) {
print map { sprintf("%8s", $_) } @order;
print "\n";
for (my $i = 0; $i <= $header; $i++) {
my $stat = $prs->get or die $prs->errstr;
print map { sprintf("%8s", $stat->{$_}) } @order;
print "\n";
sleep($interval);
}
}
EXAMPLE CONFIGURATION FOR APACHE
This is just an example to activate the handler server-status for
localhost.
ExtendedStatus On
<Location /server-status>
SetHandler server-status
Order Deny,Allow
Deny from all
Allow from localhost
</Location>
into the configuration file.
PREREQUISITES
LWP::UserAgent
Params::Validate
Class::Accessor::Fast
EXPORTS
No exports.
REPORT BUGS
Please report all bugs to <jschulz.cpan(at)bloonix.de>.
AUTHOR
Jonny Schulz <jschulz.cpan(at)bloonix.de>.
COPYRIGHT
Copyright (C) 2007-2010 by Jonny Schulz. All rights reserved.
This program is free software; you can redistribute it and/or modify it
under the same terms as Perl itself.
