view release on metacpan or  search on metacpan

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

sub dump_scoreboard {
    my ( $class, $r, $image ) = @_;

    my %worker_stats = map { $_ => 0 } keys %Key;
    my @worker_scores;

    my $waiting_for_connections_count = 0;
    my $writing_response              = 0;

    for ( my $parent_score = $image->parent_score;
        $parent_score;
        $parent_score = $parent_score->next
        ) {

        my $pid = $parent_score->pid;

        my $worker_score = $parent_score->worker_score;
        push @worker_scores, {
            access_count => $worker_score->access_count,
            bytes_served => $worker_score->bytes_served,
            client       => $worker_score->client,
            conn_bytes   => $worker_score->conn_bytes,
            conn_count   => $worker_score->conn_count,
            request      => $worker_score->request,
            req_time     => $worker_score->req_time,
            status       => $worker_score->status,
            vhost        => $worker_score->vhost,
        };

        $worker_stats{ $worker_score->status }++;
    }
    $Data::Dumper::Terse  = 1;
    $Data::Dumper::Indent = 0;

    my $scores = Dumper( @worker_scores );

    $r->log->info( "Scores: $scores" );
    my $stats = Dumper( %worker_stats );
    $r->log->info( "Stats: $stats" );

}


1;

__END__

=head1 NAME

Apache2::ScoreboardDumper - Dumps the scoreboard to the error log when server slots are full

=head1 SYNOPSIS

In your httpd.conf:

 PerlInitHandler Apache2::ScoreboardDumper
 PerlSetVar ScoreboardDumpMethod All | LockFreq | Stochastic
 PerlSetVar ScoreboardDumpFreq 5 # dump every 5th request
 PerlSetVar ScoreboardDumpLock My::LockPackage # optional class to provide lock and unlock
 PerlSetVar ScoreboardDumpStochastic 0.5 # 0-1, percentage of time to dump scoreboard


=head1 DESCRIPTION

This module will dump the scoreboard to the error log at info level if the number
of httpd server slots becomes full. There are 3 different ways this module can be configured.

All - dump the scoreboard each request.

LockFreq - dump the scoreboard every Nth request. You must supply a locking package.

Stochastic - dump the scoreboard every time rand(1) is less than your supplied threshold.

=head1 SEE ALSO

Apache::Scoreboard, mod_perl2

=head1 AUTHOR

Fred Moyer, E<lt>fred@redhotpenguin.comE<gt>

=head1 COPYRIGHT AND LICENSE

Copyright (C) 2014 by Fred Moyer

This library is free software; you can redistribute it and/or modify
it under the same terms as Perl itself, either Perl version 5.16.2 or,
at your option, any later version of Perl 5 you may have available.

=cut