File Coverage

blib/lib/Dancer/Plugin/IRCNotice.pm

Criterion	Covered	Total	%
statement	21	45	46.6
branch	0	8	0.0
condition	0	14	0.0
subroutine	7	8	87.5
pod			n/a
total	28	75	37.3

package Dancer::Plugin::IRCNotice;

use 5.008_005;
use strict;
use warnings;

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

our $VERSION = '0.06';

our %TYPES = (
  notice  => 'NOTICE',
  message => 'PRIVMSG',
);

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';
  $config->{type}    ||= 'notice';

  croak "Invalid type settings $config->{type}"
    unless exists $TYPES{ $config->{type} };

  # 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("$TYPES{$config->{type}} $config->{channel} :$message");
      $socket->say('QUIT');

      info 'Notice sent';
      return;
    }
  }

  info 'Notice not sent';
  return;
};

register_plugin;

1;
__END__