Permalink
Browse files

Pulling in some minor tweaks to WTPA bot (namely prevent it from talk…

…ing to other bots).
  • Loading branch information...
1 parent 5754cb3 commit 82580685a57aaecd3de6d96a79c8ab4db3bfbaa4 @jeresig committed Mar 10, 2012
Showing with 5 additions and 10 deletions.
  1. +0 −9 .htaccess
  2. +5 −1 wtpa-bot.pl
View
@@ -1,9 +0,0 @@
-<Files ~ "\.ini$">
- Order allow,deny
- Deny from all
-</Files>
-
-AuthType Basic
-AuthName "Where is the Party at?"
-AuthUserFile /var/www/ejohn.org/wtpa/.htpasswd
-Require valid-user
View
@@ -64,6 +64,10 @@ sub help {
sub said {
my ( $self, $msg ) = @_;
+ if ( $msg->{who} =~ /wtpa/i || $msg->{who} =~ /bot/i ) {
+ return;
+ }
+
# Check to see if the message was addressed to us
if ( defined $msg->{address} && ($msg->{address} eq $self->nick() || $msg->{address} eq "msg") ) {
my $re = "";
@@ -117,7 +121,7 @@ sub said {
}
} else {
- return $self->help();
+ #return $self->help();
}
}

0 comments on commit 8258068

Please sign in to comment.