aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--Plugin/Timezone.pm7
1 files changed, 4 insertions, 3 deletions
diff --git a/Plugin/Timezone.pm b/Plugin/Timezone.pm
index 594c5d7..eb953a1 100644
--- a/Plugin/Timezone.pm
+++ b/Plugin/Timezone.pm
@@ -23,15 +23,16 @@ sub configure {
sub time {
my ($self, $irc, $logger, $who, $where, $rest, @arguments) = @_;
- my $requester = ( split /!/, $who)[0];
+ 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 ($case_nick) = grep {/^$nick$/i} @known_zones;
+ if ($case_nick) {
my $d = DateTime->now();
- $d->set_time_zone($config{timezone}->{$nick});
+ $d->set_time_zone($config{timezone}->{$case_nick});
my $timestr = $d->strftime("%Y-%m-%d %H:%M %Z");
return "$requester: $nick\'s clock reads $timestr";
} else {