blob: 2e84c412c45c7835746d539d9e8832ba6717e4f7 (
plain) (
blame)
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;
|