
Log::Handler::Output::Socket - Send messages to a socket.

use Log::Handler::Output::Socket;
my $sock = Log::Handler::Output::Socket->new(
peeraddr => "127.0.0.1",
peerport => 44444,
proto => "tcp",
timeout => 10
);
$sock->log(message => $message);

With this module it's possible to send messages over the network.

Call new() to create a new Log::Handler::Output::Socket object.
The following options are possible:
The address of the server.
The port to connect to.
The protocol you wish to use. Default is TCP.
The timeout to send message. The default is 5 seconds.
With this option you can enable or disable a persistent connection and re-connect if the connection was lost.
Both options are set to 1 on default.
Do you like to dump the message? If you enable this option then all messages will be dumped with Data::Dumper.
Do you want to use another dumper as Data::Dumper? You can do the following as example:
use Convert::Bencode_XS;
dumper => sub { Convert::Bencode_XS::bencode($_[0]) }
# or maybe
use JSON::PC;
dumper => sub { JSON::PC::convert($_[0]) }
This option is only useful if you want to pass your own arguments to IO::Socket::INET and don't want use peeraddr and peerhost.
Example:
connect => {
PerrAddr => "127.0.0.1",
PeerPort => 44444,
LocalPort => 44445
}
This options are passed to IO::Socket::INET.
Call log() if you want to send a message over the socket.
Example:
$sock->log("message");
Connect to the socket.
Disconnect from socket.
Validate a configuration.
Reload with a new configuration.
This function returns the last error message.

Carp
Params::Validate;
IO::Socket::INET;
Data::Dumper;

No exports.

Please report all bugs to <jschulz.cpan(at)bloonix.de>.
If you send me a mail then add Log::Handler into the subject.

Jonny Schulz <jschulz.cpan(at)bloonix.de>.

Copyright (C) 2007-2009 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.