diff options
| -rw-r--r-- | Plugin/Greet.pm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/Plugin/Greet.pm b/Plugin/Greet.pm index 9933104..e66c91a 100644 --- a/Plugin/Greet.pm +++ b/Plugin/Greet.pm @@ -56,12 +56,13 @@ my @own_responses = ( sub on_join { my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_; my $nick = (split /!/, $who)[0]; + my $response; if ($nick eq $root_config->{current_nick}) { return unless self_odds(); - return some @own_responses; + $response = some @own_responses; } else { return unless other_odds(); - return some( + $response = some( "hi $nick", "oh look, $nick is here", "look who came crawling back", @@ -71,5 +72,7 @@ sub on_join { "Welcome to $where->[0], $nick. Leave your sanity at the door", "I feel sick"); } + $irc->delay([privmsg => $where => $response], 1+rand(5)); + return; } 1; |