#!/usr/bin/env perl
use Mojolicious::Lite;
use EV;
use AnyEvent::IRC qw/parse_irc_msg mk_msg prefix_nick/;
use AnyEvent::IRC::Client;

# Join #mojo on irc.perl.org
my $irc = AnyEvent::IRC::Client->new;
my $channel = "#maxson";
$irc->connect('irc.freenode.net', 6667, {nick => "coollogbot$$", user => "coollogbotr", real => "coollogbotd"});
$irc->send_srv(JOIN => $channel);
get '/' => 'index';
$irc->send_srv(PRIVMSG => $channel, 'Hi all!');

get '/events' => sub {
  my $self = shift;
    $self->write("event:r\ndata: \n\n");

  # Emit "msg" event for every new IRC message
  $self->res->headers->content_type('text/event-stream');
  my $g = $irc->reg_cb( publicmsg     => sub {
  	my ( $foo, $channel, $ircmsg ) = @_;
    my $message = $ircmsg->{params}->[1];
    my $user = $ircmsg->{prefix};
    my $userid = $ircmsg->{prefix};
    print $user . '\n';
    print $userid . '\n';
    my $nick = prefix_nick($user);