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

made irssibutt frequency configurable

This commit is contained in:
ben.herr 2008-11-03 02:05:55 +00:00
parent 5d97496a57
commit 10e7d2c630
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
irssibutt.pl
View File

@ -20,7 +20,7 @@ sub on_privmsg {
my ($target, $text) = split(/ :/, $data, 2);
return unless ($target =~ Irssi::settings_get_str("butt_target_pattern"));
return 0 unless (rand(50) < 1);
return 0 unless (rand(Irssi::settings_get_int("butt_frequency")) < 1);
return 0 if ($text =~ /^!|^http:\/\/\S+$|butt|^\W+$/i);
my @words = split(/\s+/, $text);
@ -44,6 +44,7 @@ sub on_kick {
}
Irssi::settings_add_str("irssibutt", "butt_target_pattern", "^#cobol\$");
Irssi::settings_add_int("irssibutt", "butt_frequency", "50");
Irssi::signal_add("event privmsg", \&on_privmsg);
Irssi::signal_add("message kick", \&on_kick);