dave
/
docker-buttbot
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

heh another kludge to allow pming the bot for butting

This commit is contained in:
long.haired.steve 2009-10-08 20:33:37 +00:00
parent 3360f71f89
commit 7241de6ab8
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
buttbot.pl
View File

@ -151,8 +151,14 @@ sub pm_bot {
#If the command is !butt, buttify message.
##if the first word in the string is equal to the password, set the user to be the admin
if ($sub eq $CONF{pass}) {
if ($sub eq "!auth ".$CONF{pass}) {
$auth=$from;
} elsif ($sub eq "!butt" and @data >0 ) {
my @bread_and = &buttify(@data);
# comparing lists is piss easy in python :(
my $jam = join(" ", @data);
my $cock = join(" ", @bread_and);
_send("PRIVMSG $to :$cock") if ($jam ne $cock);
}
##ADMIN FUNCTIONS
@ -182,7 +188,7 @@ sub pm_channel {
##ignores statements from cout and users containing the word "bot"
if (($from !~/^:cout/) && ($from !~/^:[^!]*bot[^!]*!/i)) {
if ($sub !~ /^!/) {
if ($sub !~ /^!/ && ($sub !~ /^\./)) {
my $rnd = 1;
unshift (@data,$sub);
if (@data > 1) {