bin/tecobot


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26

#!/usr/bin/env perl
use strict;
use warnings;
package Bot::TecoBot;
use base 'Bot::BasicBot';
use Language::TECO;

my %users;
sub said {
    my $self = shift;
    my %args = %{ shift() };

    return unless $args{body} =~ s/^!teco // || $args{address};
    $users{$args{who}} = Language::TECO->new unless exists $users{$args{who}};
    return $users{$args{who}}->execute($args{body});
}

package main;

Bot::TecoBot->new(
    server => 'irc.freenode.net',
    channels => ['#doytest'],
    nick => 'tecobot',
    username => 'tecobot',
    name => 'tecobot',
)->run;