aboutsummaryrefslogtreecommitdiff
path: root/Plugin/Tittilate.pm
diff options
context:
space:
mode:
authorDavid Phillips <david@sighup.nz>2018-07-14 19:34:37 +1200
committerDavid Phillips <david@sighup.nz>2018-07-14 19:34:41 +1200
commite56d58c07ccfe7d3e5ab9439d688259b70d60d95 (patch)
tree26d3831d578fe3b4f12a9d9649e14a1180b04ce2 /Plugin/Tittilate.pm
parentca1ba1ad6825e93bf6be91317ffdf57d076ad798 (diff)
downloadidalius-e56d58c07ccfe7d3e5ab9439d688259b70d60d95.tar.xz
Fix typo in module name
Diffstat (limited to 'Plugin/Tittilate.pm')
-rw-r--r--Plugin/Tittilate.pm37
1 files changed, 0 insertions, 37 deletions
diff --git a/Plugin/Tittilate.pm b/Plugin/Tittilate.pm
deleted file mode 100644
index b2c2286..0000000
--- a/Plugin/Tittilate.pm
+++ /dev/null
@@ -1,37 +0,0 @@
-#!/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;