Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
tree: 93fea36bd4
Fetching contributors…

Cannot retrieve contributors at this time

48 lines (38 sloc) 0.99 kb
package MITBot;
use strict;
use warnings;
use POE;
use POSIX qw(mktime strftime);
use MIT;
use MIT::Session;
use MIT::UserDB;
use TOC::AIMUtils;
my $license;
sub source
{
my ($self, $who, $chat, @args) = @_;
return <<'SOURCE';
Perl source to the bot is available via anonymous svn from
svn://nelhage.mit.edu/snb/
SOURCE
}
sub license {
my ($self, $who, $chat, @args) = @_;
return ($license,"Type '!source' to learn how to obtain ".
"a copy of my source code.");
}
sub credits
{
return ("SexyNerdBot was programmed by Nelson Elhage " .
"(AIM: hanjithearcher)\n".
"Source to the bot is available under the " .
"GNU General Public License -- ".
"Type ``!source'' for more information");
}
open(LICENSE,"<","LICENSE");
$license =join("",<LICENSE>);
close(LICENSE);
registerCommand(source => \&source);
registerCommand(license => \&license);
registerCommand(credits => \&credits);
1;
Jump to Line
Something went wrong with that request. Please try again.