From cd1fc57841deab0e9b8bcfad49d527c6b263534c Mon Sep 17 00:00:00 2001 From: David Phillips Date: Tue, 10 Apr 2018 15:20:24 +1200 Subject: Correct capitalisation on module names --- plugin/timezone.pm | 40 ---------------------------------------- 1 file changed, 40 deletions(-) delete mode 100644 plugin/timezone.pm (limited to 'plugin/timezone.pm') diff --git a/plugin/timezone.pm b/plugin/timezone.pm deleted file mode 100644 index 8807d54..0000000 --- a/plugin/timezone.pm +++ /dev/null @@ -1,40 +0,0 @@ -#!/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; -- cgit v1.1