aboutsummaryrefslogtreecommitdiff
path: root/Plugin/Tittilate.pm
diff options
context:
space:
mode:
Diffstat (limited to 'Plugin/Tittilate.pm')
-rw-r--r--Plugin/Tittilate.pm37
1 files changed, 37 insertions, 0 deletions
diff --git a/Plugin/Tittilate.pm b/Plugin/Tittilate.pm
new file mode 100644
index 0000000..b2c2286
--- /dev/null
+++ b/Plugin/Tittilate.pm
@@ -0,0 +1,37 @@
+#!/usr/bin/env perl
+
+package Plugin::Tittilate;
+
+use strict;
+use warnings;
+
+my %config;
+
+sub configure {
+ my $self = $_[0];
+ my $cmdref = $_[1];
+ my $cref = $_[2];
+ %config = %$cref;
+ return $self;
+}
+
+sub message {
+ my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_;
+ my $gathered = "";
+ my @expressions = (keys %{$config{triggers}});
+ my $expression = join '|', @expressions;
+ while ($what =~ /($expression)/gi) {
+ my $matched = $1;
+ my $key;
+ # figure out which key matched
+ foreach (@expressions) {
+ if ($matched =~ /$_/i) {
+ $key = $_;
+ last;
+ }
+ }
+ $gathered .= $config{triggers}->{$key};
+ }
+ return $gathered;
+}
+1;