NAME

XAS::Collector::Alert - Perl extension for the XAS Environment

SYNOPSIS

use XAS::Collector::Alert;
use XAS::Collector::Connector;

main: {

    my $types = [
        {'xas-alert', 'alert'}
    ];

    XAS::Collector::Connector->spawn(
        RemoteAddress   => $host,
        RemotePort      => $port,
        EnableKeepAlive => 1,
        Alias           => 'collector',
        Logger          => 'logger',
        Login           => 'xas',
        Passcode        => 'xas',
        Queue           => '/queue/alerts',
        Types           => $types
    );

    my $notify = XAS::Collector::Alert->new(
        -alias     => 'alert',
        -logger    => 'logger',
        -connector => 'connector'
    );

    $poe_kernel->run();

    exit 0;

}

DESCRIPTION

This module handles the xas-alert packet type.

PUBLIC EVENTS

store_data($kernel, $self, $data, $ack)

This event will trigger the storage of xas-alert packets into the database.

$kernel

A handle to the POE environment.

$self

A handle to the current object.

$data

The data to be stored within the database.

$ack

The acknowledgement to send back to the message queue server.

SEE ALSO

XAS

AUTHOR

Kevin Esteb, <kevin@kesteb.us>

COPYRIGHT AND LICENSE

Copyright (C) 2012 by Kevin L. Esteb

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