preaction

1. Create a creator:
   1. https://github.com/cpan-testers/cpantesters-api/blob/master/t/legacy/metabase.t#L39-L43
2. Create a report:
   1. https://github.com/cpan-testers/cpantesters-api/blob/master/t/legacy/metabase.t#L218-L238
   2. distfile is <author>/<dist_name>-<dist_version>.tar.gz
3. Serialize and write to Metabase cache:
   1. https://github.com/cpan-testers/cpantesters-api/blob/0a7f1352d82ecd8387b0b6ed29289e81e255189c/bin/cpantesters-legacy-metabase#L55-L87

preaction

mysql> show processlist;
+-------+-------------+--------------------------------------+-----------+---------+-------+--------------------------------------------------------+------------------------------------------------------------------------------------------------------+-----------+---------------+
| Id    | User        | Host                                 | db        | Command | Time  | State                                                  | Info                                                                                                 | Rows_sent | Rows_examined |
+-------+-------------+--------------------------------------+-----------+---------+-------+--------------------------------------------------------+------------------------------------------------------------------------------------------------------+-----------+---------------+
|     1 | system user |                                      | NULL      | Connect | 36136 | Connecting to master                                   | NULL  

preaction

package CPAN::Testers::Schema::ResultSet::Metabase;
our $VERSION = '0.006';
# ABSTRACT: Query the Metabase table

=head1 SYNOPSIS

    my $rs = $schema->resultset( 'Metabase' );
    my $row = $rs->cache_metabase_fact( $fact );

=head1 DESCRIPTION

preaction

    The following escape sequences are available in constructs that
    interpolate, but not in transliterations.

        \l          lowercase next character only
        \u          titlecase (not uppercase!) next character only
        \L          lowercase all characters till \E or end of string
        \U          uppercase all characters till \E or end of string
        \F          foldcase all characters till \E or end of string
        \Q          quote (disable) pattern metacharacters till \E or
                    end of string

preaction

package CPAN::Testers::Backend::ProcessReport;
our $VERSION = 0.001;
# ABSTRACT: Process an incoming test report into useful statistics

=head1 SYNOPSIS

    # container.yml     - A Beam::Wire container file
    process_reports:
        $class: CPAN::Testers::Backend::ProcessReport
        schema:

preaction

To-Do List

Major Problems:

• PROB-1: Performance of main generate task
  • The main generate task is barely keeping up with the incoming reports. A cursory examination reveals nothing that can be easily improved without parallelization.
  • Solution: Refactor into a Minion task that can be parallelized using Beam::Minion
  • Critical chain: BACKEND-1 API-3 BACKEND-2
• PROB-2: AmazonDB SimpleDB Metabase is expensive (money wise)
• Solution: Make new API to write to local Metabase cache

preaction

=head1 NAME

=head1 SYNOPSIS

=head1 DESCRIPTION

=head1 INSTALLING

=head1 SEE ALSO

preaction

diff --git a/bin/hannibal-poll-bmc b/bin/hannibal-poll-bmc
index 96762dc..ebe42b7 100644
--- a/bin/hannibal-poll-bmc
+++ b/bin/hannibal-poll-bmc
@@ -129,12 +129,24 @@ sub _process_result {
 
 sub _write_metric {
     my ( $metric, $value ) = @_;
-    state $sock = IO::Socket::INET->new(
-        PeerAddr => $opt{graphite},

preaction

dev.hannibal.bmc.X7QJWP01K.System_Board_Fan2A.Reading 6240
dev.hannibal.bmc.X7QJWP01K.System_Board_Fan3A.Reading 6240
dev.hannibal.bmc.X7QJWP01K.System_Board_Fan4A.Reading 6120
dev.hannibal.bmc.X7QJWP01K.System_Board_Fan5A.Reading 6120
dev.hannibal.bmc.X7QJWP01K.System_Board_Fan6A.Reading 6240
dev.hannibal.bmc.X7QJWP01K.System_Board_Fan7A.Reading 6240
dev.hannibal.bmc.X7QJWP01K.System_Board_Fan1B.Reading 5760
dev.hannibal.bmc.X7QJWP01K.System_Board_Fan2B.Reading 5760
dev.hannibal.bmc.X7QJWP01K.System_Board_Fan3B.Reading 5760
dev.hannibal.bmc.X7QJWP01K.System_Board_Fan4B.Reading 5760

preaction

use Mojolicious::Lite;

use Log::Any qw( $LOG );
use Log::Any::Adapter;
Log::Any::Adapter->set( 'MojoLog', logger => app->log );

app->log->max_history_size( 100 );

get '/' => sub { $LOG->info( "LOG::ANY IS AMAZING" ); die "This should di... ALL GLORY TO THE HYPNOTOAD!\n" };