Ticket #1371: imalittletestbot.pl

use v6;

warn 'Init';

my $socket = IO::Socket::INET.new;

warn 'Created socket';

$socket.open('irc.freenode.net', 6667);

warn 'opened connection';

$socket.send: qq{USER littletestbot "" "" :littletestbot\r\n};

warn 'sent USER';

$socket.send("NICK imaltb\r\n");

warn 'sent NICK';

$socket.send("JOIN #perl6\r\n");

warn 'sent JOIN';

loop {
        warn 'init loop';

        my $buf = '';

        warn 'cleared buffer';

        until $buf ~~ / \r\n $ / {
                warn 'start of until';
                $buf ~= $socket.recv(1);
                warn 'recv';
        }
        say $buf;
        my $msg = $buf.split(' ');
        warn 'split buf';
        if $msg.shift eq 'PING' {
                warn 'sending ping';
                $socket.send("PONG {$msg.shift}\r\n");
                warn 'sent ping';
        }
        warn 'end of loop';
}