File Coverage

blib/lib/Dancer/Plugin/IRCNotice.pm

Criterion	Covered	Total	%
statement	18	43	41.8
branch	0	12	0.0
condition	0	14	0.0
subroutine	6	7	85.7
pod			n/a
total	24	76	31.5

package Dancer::Plugin::IRCNotice;

use 5.008_005;
use strict;
use warnings;

use Dancer ':syntax';
use Dancer::Plugin;
use IO::Socket::IP;

our $VERSION = '0.05';

register notify => sub {
  my ($message) = @_;

  info "Sending notification: $message";

  my $config = plugin_setting;

  $config->{host}    ||= 'chat.freenode.net';
  $config->{nick}    ||= sprintf('dpin%04u', int(rand() * 10000));
  $config->{name}    ||= $config->{nick};
  $config->{channel} ||= '#dpintest';

  fork and return if $config->{fork};

  # Add default port
  $config->{host} .= ':6667' unless $config->{host} =~ /:\d+$/;

  my $socket = IO::Socket::IP->new($config->{host})
    or warning "Cannot create socket: $@" and return;

  # TODO error handling srsly

  info "Registering as $config->{nick}";

  $socket->say("NICK $config->{nick}");
  $socket->say("USER $config->{nick} . . :$config->{name}");

  while (my $line = $socket->getline) {
    info "Got $line";

    if ($line =~ /End of \/MOTD/) {
      info "Sending notice to $config->{channel}";

      $socket->say("NOTICE $config->{channel} :$message");
      $socket->say("QUIT");

      info "Notice sent";
      exit if $config->{fork};
      return;
    }
  }

  info "Notice not sent";

  exit if $config->{fork};
  return;
};

register_plugin;

1;
__END__