From cd1fc57841deab0e9b8bcfad49d527c6b263534c Mon Sep 17 00:00:00 2001
From: David Phillips <david@sighup.nz>
Date: Tue, 10 Apr 2018 15:20:24 +1200
Subject: Correct capitalisation on module names

---
 Plugin/Antiflood.pm | 42 +++++++++++++++++++++++++++++++++
 Plugin/Map.pm       | 34 +++++++++++++++++++++++++++
 Plugin/Timezone.pm  | 40 ++++++++++++++++++++++++++++++++
 Plugin/Tittilate.pm | 37 +++++++++++++++++++++++++++++
 Plugin/URL_Title.pm | 67 +++++++++++++++++++++++++++++++++++++++++++++++++++++
 5 files changed, 220 insertions(+)
 create mode 100644 Plugin/Antiflood.pm
 create mode 100644 Plugin/Map.pm
 create mode 100644 Plugin/Timezone.pm
 create mode 100644 Plugin/Tittilate.pm
 create mode 100644 Plugin/URL_Title.pm

(limited to 'Plugin')

diff --git a/Plugin/Antiflood.pm b/Plugin/Antiflood.pm
new file mode 100644
index 0000000..4db7ace
--- /dev/null
+++ b/Plugin/Antiflood.pm
@@ -0,0 +1,42 @@
+#!/usr/bin/env perl
+
+package Plugin::Antiflood;
+
+use strict;
+use warnings;
+
+my $message_count = 5;
+my $message_period = 11;
+
+
+my %config;
+my %lastmsg = ();
+
+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 $channel = $where->[0];
+	my $nick = (split /!/, $who)[0];
+
+	return if ($config{antiflood_on} == 0);
+
+	my $now = time();
+	push @{$lastmsg{$nick}}, $now;
+
+	if (@{$lastmsg{$nick}} >= $message_count) {
+		@{$lastmsg{$nick}} = splice @{$lastmsg{$nick}}, 1, $message_count - 1;
+		my $first = @{$lastmsg{$nick}}[0];
+		if ($now - $first <= $message_period) {
+			$irc->yield(kick => $channel => $nick => "Flood");
+		}
+	}
+	return;
+}
+1;
diff --git a/Plugin/Map.pm b/Plugin/Map.pm
new file mode 100644
index 0000000..9ca8cef
--- /dev/null
+++ b/Plugin/Map.pm
@@ -0,0 +1,34 @@
+#!/usr/bin/env perl
+
+package Plugin::Map;
+
+use strict;
+use warnings;
+
+my %config;
+my $run_command;
+
+
+sub configure {
+	my $self = shift;
+	my $cmdref = shift;
+	my $cref = shift;
+	%config = %$cref;
+	$run_command = shift;
+
+	$cmdref->("map", sub { $self->map(@_); } );
+
+	return $self;
+}
+
+sub map {
+	my ($self, $logger, $who, $where, $rest, @arguments) = @_;
+	my ($command, $subjects) = ($rest =~ /^(.+?)\s+(.*)$/);
+
+	return "[]" unless $subjects;
+
+	my @array = map { $run_command->("$command $_", $who, $where) } (split /,/, $subjects);
+
+	return "[" . (join ", ", @array). "]";
+}
+1;
diff --git a/Plugin/Timezone.pm b/Plugin/Timezone.pm
new file mode 100644
index 0000000..eaea907
--- /dev/null
+++ b/Plugin/Timezone.pm
@@ -0,0 +1,40 @@
+#!/usr/bin/env perl
+
+package Plugin::Timezone;
+
+use strict;
+use warnings;
+
+use DateTime;
+
+my %config;
+
+sub configure {
+	my $self = $_[0];
+	my $cmdref = $_[1];
+	my $cref = $_[2];
+	%config = %$cref;
+
+	$cmdref->("time", sub { $self->time(@_); } );
+
+	return $self;
+}
+
+sub time {
+	my ($self, $logger, $who, $where, $rest, @arguments) = @_;
+
+	my $requester = ( split /!/, $who)[0];
+	my @known_zones = (keys %{$config{timezone}});
+
+	return "Syntax: time [nick]" unless @arguments == 1;
+
+	my $nick = $arguments[0];
+	if (grep {$_ eq $nick} @known_zones) {
+	my $d = DateTime->now();
+		$d->set_time_zone($config{timezone}->{$nick});
+		return "$requester: $nick\'s clock reads $d";
+	} else {
+		return "$requester: I don't know what timezone $nick is in";
+	}
+}
+1;
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;
diff --git a/Plugin/URL_Title.pm b/Plugin/URL_Title.pm
new file mode 100644
index 0000000..495df8e
--- /dev/null
+++ b/Plugin/URL_Title.pm
@@ -0,0 +1,67 @@
+#!/usr/bin/env perl
+
+package Plugin::URL_Title;
+
+use strict;
+use warnings;
+use HTTP::Tiny;
+use HTML::HeadParser;
+use utf8;
+
+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 $url;
+
+	return if ($config{url_on} == 0);
+
+	if ($what =~ /(https?:\/\/[^ ]+)/i) {
+		$url = $1;
+	}
+	return unless $url;
+
+	my $http = HTTP::Tiny->new((default_headers => {'Range' => "bytes=0-65536", 'Accept' => 'text/html'}, timeout => 3));
+
+	my $response = $http->get($url);
+
+	if (!$response->{success}) {
+		$logger->("Something broke: $response->{reason}");
+		return;
+	}
+
+	if (!($response->{headers}->{"content-type"} =~ m,text/html ?,)) {
+		$logger->("Not html, giving up now");
+		return;
+	}
+
+	my $html = $response->{content};
+
+	my $parser = HTML::HeadParser->new;
+	$parser->parse($html);
+
+	# get title and unpack from utf8 (assumption)
+	my $title = $parser->header("title");
+	utf8::upgrade($title);
+	return unless $title;
+
+	my $shorturl = $url;
+	$shorturl = (substr $url, 0, $config{url_len}) . "…" if length ($url) > $config{url_len};
+
+	# remove http(s):// to avoid triggering other poorly configured bots
+	$shorturl =~ s,^https?://,,g;
+	$shorturl =~ s,/$,,g;
+
+	my $composed_title = "$title ($shorturl)";
+	return $composed_title;
+}
+1;
-- 
cgit v1.1