Mercurial > hg > skillbot

comparison skillbot.pl @ 45:1d349044c860

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add finish day and time to !eta
author Dominic Cleal <dominic@computerkb.co.uk>
date Fri, 19 Dec 2008 12:46:10 +0000
parents f7abbe853f5d
children bfd2b428d131
comparison
equal deleted inserted replaced
44:f7abbe853f5d 45:1d349044c860
21 use warnings; 21 use warnings;
22 22
23 use WebService::EveOnline; 23 use WebService::EveOnline;
24 use Data::Dumper; 24 use Data::Dumper;
25 use Net::IRC; 25 use Net::IRC;
26 use HTML::Entities;
27 use POSIX; 26 use POSIX;
28 use Encode; 27 use Encode;
28 use DateTime;
29 29
30 require 'timers.pl'; 30 require 'timers.pl';
31 31
32 # Config variables 32 # Config variables
33 my %config; 33 my %config;
236 my $downtime = ''; 236 my $downtime = '';
237 if (skill_finish_in_downtime($f->{skill})) { 237 if (skill_finish_in_downtime($f->{skill})) {
238 $downtime = ", coincides with downtime"; 238 $downtime = ", coincides with downtime";
239 } 239 }
240 240
241 $text = sprintf("Currently training %s %s (finish in %s%s)", 241 my $finish = DateTime->from_epoch(
242 epoch => $f->{skill}->finish_time);
243
244 $text = sprintf("Currently training %s %s ".
245 "(finish in %s, %s%s)",
242 $f->{skill}->name, $f->{skill}->level, 246 $f->{skill}->name, $f->{skill}->level,
243 $f->{skill}->time_remaining, $downtime) 247 $f->{skill}->time_remaining,
248 $finish->strftime("%A %R"), $downtime)
244 } else { 249 } else {
245 $text = "No skill currently training"; 250 $text = "No skill currently training";
246 } 251 }
247 252
248 $self->privmsg('#' . $config{channel}, sprintf( 253 $self->privmsg('#' . $config{channel}, sprintf(