view release on metacpan or  search on metacpan

lib/Apache2/ScoreBoardFile.pm  view on Meta::CPAN

package Apache2::ScoreBoardFile;

use 5.012001;
use strict;
use warnings;

our $VERSION = '0.01';

require XSLoader;
XSLoader::load('Apache2::ScoreBoardFile', $VERSION);

1;
__END__

=encoding utf8

=head1 NAME

Apache2::ScoreBoardFile - Perl extension to the Apache HTTPD ScoreBoard

=head1 SYNOPSIS

C<httpd.conf>:

 LoadModule status_module "/path/to/mod_status.so"
 ExtendedStatus On
 ScoreBoardFile "/path/to/scoreboard.sb"

Perl level:

 use Apache2::ScoreBoardFile;
 $sb=Apache2::ScoreBoardFile->new($filename);
 $sb=Apache2::ScoreBoardFile->new($filehandle);

 $shared_mem_size=$sb->shmsize;
 $server_limit=$sb->server_limit;
 $thread_limit=$sb->thread_limit;
 $type=$sb->type;
 $generation=$sb->generation;
 $lb_limit=$sb->lb_limit;
 $restart_time=$sb->restart_time;

 $process=$sb->process($index);

 $pid=$process->pid;
 $generation=$process->generation;
 $quiescing=$process->quiescing;

 $worker=$sb->worker($index);
 $worker=$sb->worker($proc_index, $thread_index);

 $thread_num=$worker->thread_num;
 $pid=$worker->pid;
 $generation=$worker->generation;
 $status=$worker->status;
 $access_count=$worker->access_count;
 $bytes_served=$worker->bytes_served;
 $my_access_count=$worker->my_access_count;
 $my_bytes_served=$worker->my_bytes_served;
 $conn_count=$worker->conn_count;
 $conn_bytes=$worker->conn_bytes;
 $start_time=$worker->start_time;
 $stop_time=$worker->stop_time;
 $last_used=$worker->last_used;
 $client=$worker->client;
 $request=$worker->request;
 $vhost=$worker->vhost;
 $tid=$worker->tid;
 $utime=$worker->utime;
 $stime=$worker->stime;
 $cutime=$worker->cutime;
 $cstime=$worker->cstime;

 my %summary;
 my @keys=qw/. _ S R W K L D C G I bw iw cw nr nb/;