Mercurial > hg > skillbot

changeset 47:31a4d4cab76f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Adding timezone field to friends file, used for !eta
author Dominic Cleal <dominic@computerkb.co.uk>
date Sat, 20 Dec 2008 11:45:26 +0000
parents bfd2b428d131
children 75b3b76a1643
files skillbot.pl
diffstat 1 files changed, 8 insertions(+), 5 deletions(-) [+]
line wrap: on
line diff
--- a/skillbot.pl	Fri Dec 19 12:53:37 2008 +0000
+++ b/skillbot.pl	Sat Dec 20 11:45:26 2008 +0000
@@ -240,7 +240,8 @@
 					}
 
 					my $finish = DateTime->from_epoch(
-							epoch => $f->{skill}->finish_time);
+							epoch => $f->{skill}->finish_time,
+							time_zone => $f->{tz});
 
 					$text = sprintf("Currently training %s %s ".
 									"(finish in %s, %s%s)",
@@ -397,7 +398,7 @@
 
 Read a list of friends from the friends_file.  Format is:
 
-user_id	api_key		IRC_nick	character_name
+user_id	api_key		IRC_nick	timezone	character_name
 
 Start a line with # for a comment.  Character name is optional, if left
 out then all characters will be monitored.
@@ -413,11 +414,12 @@
 		chomp;
 		next if (/^#/);
 
-		if (/^([0-9]+)\s+([a-z0-9]{64})\s+(\S+)(\s+(.+))?/i) {
+		if (/^([0-9]+)\s+([a-z0-9]{64})\s+(\S+)\s+(\S+)(\s+(.+))?/i) {
 			my $uid = $1;
 			my $key = $2;
 			my $nick = $3;
-			my $c = $5;
+			my $tz = $4;
+			my $c = $6;
 
 			if (! $frienduids{$uid}) {
 				my $api = WebService::EveOnline->new( { user_id => $uid,
@@ -429,7 +431,8 @@
 					push @friends, {
 						char => $character,
 						api => $api,
-						nick => $nick
+						nick => $nick,
+						tz => $tz
 					};
 					$loaded++;
 				}