Mercurial > hg > skillbot

comparison skillbot.pl @ 60:69d7a89d3adc

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Timezone is UTC by default if left out of friends
author Dominic Cleal <dominic@computerkb.co.uk>
date Mon, 29 Dec 2008 14:42:46 +0000
parents 74213ea642da
children 2328f73e25a8
comparison
equal deleted inserted replaced
59:74213ea642da 60:69d7a89d3adc
412 412
413 while (<FF>) { 413 while (<FF>) {
414 chomp; 414 chomp;
415 next if (/^#/); 415 next if (/^#/);
416 416
417 if (/^([0-9]+)\s+([a-z0-9]{64})\s+(\S+)\s+(\S+)(\s+(.+))?/i) { 417 if (/^([0-9]+)\s+([a-z0-9]{64})\s+(\S+)(\s+(\S+))?(\s+(.+))?/i) {
418 my $uid = $1; 418 my $uid = $1;
419 my $key = $2; 419 my $key = $2;
420 my $nick = $3; 420 my $nick = $3;
421 my $tz = $4; 421 my $tz = $5 || 'UTC';
422 my $c = $6; 422 my $c = $7;
423 423
424 if (! $frienduids{$uid}) { 424 if (! $frienduids{$uid}) {
425 unless (DateTime::TimeZone->is_valid_name($tz)) 425 unless (DateTime::TimeZone->is_valid_name($tz))
426 { 426 {
427 irc_debug("Invalid timezone (%s) supplied for friend %s". 427 irc_debug("Invalid timezone (%s) supplied for friend %s".
555 add_one_shot_timer($prefinish, sub { 555 add_one_shot_timer($prefinish, sub {
556 check_friend($self, $f); 556 check_friend($self, $f);
557 }); 557 });
558 } 558 }
559 559
560 $f->{timer} = add_one_shot_timer($skill->finish_time - time(), sub { 560 $f->{timer} = add_one_shot_timer($finish, sub {
561 $self->privmsg('#' . $config{channel}, sprintf( 561 $self->privmsg('#' . $config{channel}, sprintf(
562 "\002%s:\002 %s", $f->{nick}, 562 "\002%s:\002 %s", $f->{nick},
563 encode("utf8", $text))); 563 encode("utf8", $text)));
564 delete $f->{skill}; 564 delete $f->{skill};
565 delete $f->{skill_finish}; 565 delete $f->{skill_finish};