Mercurial > hg > skillbot

comparison skillbot.pl @ 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 0fa8fe61aca1
comparison
equal deleted inserted replaced
46:bfd2b428d131 47:31a4d4cab76f
238 if (skill_finish_in_downtime($f->{skill})) { 238 if (skill_finish_in_downtime($f->{skill})) {
239 $downtime = ", coincides with downtime"; 239 $downtime = ", coincides with downtime";
240 } 240 }
241 241
242 my $finish = DateTime->from_epoch( 242 my $finish = DateTime->from_epoch(
243 epoch => $f->{skill}->finish_time); 243 epoch => $f->{skill}->finish_time,
244 time_zone => $f->{tz});
244 245
245 $text = sprintf("Currently training %s %s ". 246 $text = sprintf("Currently training %s %s ".
246 "(finish in %s, %s%s)", 247 "(finish in %s, %s%s)",
247 $f->{skill}->name, $f->{skill}->level, 248 $f->{skill}->name, $f->{skill}->level,
248 $f->{skill}->time_remaining, 249 $f->{skill}->time_remaining,
395 396
396 =pod 397 =pod
397 398
398 Read a list of friends from the friends_file. Format is: 399 Read a list of friends from the friends_file. Format is:
399 400
400 user_id api_key IRC_nick character_name 401 user_id api_key IRC_nick timezone character_name
401 402
402 Start a line with # for a comment. Character name is optional, if left 403 Start a line with # for a comment. Character name is optional, if left
403 out then all characters will be monitored. 404 out then all characters will be monitored.
404 405
405 =cut 406 =cut
411 412
412 while (<FF>) { 413 while (<FF>) {
413 chomp; 414 chomp;
414 next if (/^#/); 415 next if (/^#/);
415 416
416 if (/^([0-9]+)\s+([a-z0-9]{64})\s+(\S+)(\s+(.+))?/i) { 417 if (/^([0-9]+)\s+([a-z0-9]{64})\s+(\S+)\s+(\S+)(\s+(.+))?/i) {
417 my $uid = $1; 418 my $uid = $1;
418 my $key = $2; 419 my $key = $2;
419 my $nick = $3; 420 my $nick = $3;
420 my $c = $5; 421 my $tz = $4;
422 my $c = $6;
421 423
422 if (! $frienduids{$uid}) { 424 if (! $frienduids{$uid}) {
423 my $api = WebService::EveOnline->new( { user_id => $uid, 425 my $api = WebService::EveOnline->new( { user_id => $uid,
424 api_key => $key } ); 426 api_key => $key } );
425 427
427 foreach my $character ($api->characters) { 429 foreach my $character ($api->characters) {
428 next if defined $c && $c ne $character->name; 430 next if defined $c && $c ne $character->name;
429 push @friends, { 431 push @friends, {
430 char => $character, 432 char => $character,
431 api => $api, 433 api => $api,
432 nick => $nick 434 nick => $nick,
435 tz => $tz
433 }; 436 };
434 $loaded++; 437 $loaded++;
435 } 438 }
436 439
437 if (defined $c && $loaded eq 0) 440 if (defined $c && $loaded eq 0)