Add prototype timezone functionality

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;