aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--config_file.pm11
-rw-r--r--plugin/timezone.pm36
2 files changed, 47 insertions, 0 deletions
diff --git a/config_file.pm b/config_file.pm
index 2ad6620..5ee51d8 100644
--- a/config_file.pm
+++ b/config_file.pm
@@ -58,6 +58,16 @@ sub parse_config
$triggers{$match} = $response;
}
+ # special case: timezones hash
+ my %timezone;
+ foreach (split ',', $config->{_}->{timezone}) {
+ my ($who, $tz) = split /=>/;
+ # strip outer quotes
+ $who =~ s/^[^']*'|'[^']*$//g;
+ $tz =~ s/^[^']*'|'[^']*$//g;
+ $timezone{$who} = $tz;
+ }
+
$built_config{uid} = getpwnam($built_config{user})
or die "Cannot get uid of $built_config{user}: $!\n";
$built_config{gid} = getgrnam($built_config{group})
@@ -65,6 +75,7 @@ sub parse_config
$built_config{triggers} = \%triggers;
+ $built_config{timezone} = \%timezone;
return %built_config;
}
diff --git a/plugin/timezone.pm b/plugin/timezone.pm
new file mode 100644
index 0000000..db6bada
--- /dev/null
+++ b/plugin/timezone.pm
@@ -0,0 +1,36 @@
+#!/usr/bin/env perl
+
+package plugin::timezone;
+
+use strict;
+use warnings;
+
+use DateTime;
+
+my %config;
+
+sub configure {
+ my $self = $_[0];
+ my $cref = $_[1];
+ %config = %$cref;
+ return $self;
+}
+
+sub message {
+ my ($self, $logger, $me, $who, $where, $raw_what, $what, $irc) = @_;
+
+ my $who_nick = ( split /!/, $who )[0];
+
+ my @known_zones = (keys %{$config{timezone}});
+ if ($what =~ /^%time\s(.+)$/) {
+ my $nick = $1;
+ if (grep {$_ eq $nick} @known_zones) {
+ my $d = DateTime->now();
+ $d->set_time_zone($config{timezone}->{$nick});
+ return "$who_nick: $nick\'s clock reads $d";
+ } else {
+ return "$who_nick: I don't know what timezone $nick is in";
+ }
+ }
+}
+1;