From 4afca076e5f07449e1a07bd4fe5e3d15f24f7bfc Mon Sep 17 00:00:00 2001
From: jluehrs2 <jluehrs2@uiuc.edu>
Date: Thu, 22 May 2008 15:42:20 -0500
Subject: add a simple irc evalbot for teco... needs to be expanded quite a bit
 to deal with things like escape/control characters, security, etc

---
 bin/tecobot | 26 ++++++++++++++++++++++++++
 1 file changed, 26 insertions(+)
 create mode 100644 bin/tecobot

diff --git a/bin/tecobot b/bin/tecobot
new file mode 100644
index 0000000..2e84c41
--- /dev/null
+++ b/bin/tecobot
@@ -0,0 +1,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;
-- 
cgit v1.2.3-54-g00ecf