Mercurial > hg > skillbot
comparison skillbot.pl @ 55:c5ce2fff9b85
Update friends as they're added, not on channel join
author | Dominic Cleal <dominic@computerkb.co.uk> |
---|---|
date | Sun, 28 Dec 2008 12:11:28 +0000 |
parents | 9ed1e53a8d3e |
children | c604d8d6ccc5 |
comparison
equal
deleted
inserted
replaced
54:9ed1e53a8d3e | 55:c5ce2fff9b85 |
---|---|
178 sub on_join | 178 sub on_join |
179 { | 179 { |
180 my ($self, $event) = @_; | 180 my ($self, $event) = @_; |
181 | 181 |
182 # print Dumper($event); | 182 # print Dumper($event); |
183 if ($event->nick eq $config{nick}) { | 183 # if ($event->nick eq $config{nick}) { |
184 =pod | 184 # } |
185 $twit->update("In channel, checking for tweets"); | |
186 $twit->http_code == 200 or print sprintf("%s| *** %s\n", scalar gmtime(), $twit->http_message); | |
187 =cut | |
188 | |
189 # Now we're in, check for tweets as a one-off | |
190 add_one_shot_timer(10, sub { my ($timer, $self) = @_; check_training($self); }); | |
191 } | |
192 } | 185 } |
193 | 186 |
194 sub on_ping | 187 sub on_ping |
195 { | 188 { |
196 my ($self, $event) = @_; | 189 my ($self, $event) = @_; |
440 api_key => $key } ); | 433 api_key => $key } ); |
441 | 434 |
442 my $loaded = 0; | 435 my $loaded = 0; |
443 foreach my $character ($api->characters) { | 436 foreach my $character ($api->characters) { |
444 next if defined $c && $c ne $character->name; | 437 next if defined $c && $c ne $character->name; |
445 push @friends, { | 438 my $f = { |
446 char => $character, | 439 char => $character, |
447 api => $api, | 440 api => $api, |
448 nick => $nick, | 441 nick => $nick, |
449 tz => $tz | 442 tz => $tz |
450 }; | 443 }; |
444 push @friends, $f; | |
445 check_friend($self, $f); | |
451 $loaded++; | 446 $loaded++; |
452 } | 447 } |
453 | 448 |
454 if (defined $c && $loaded eq 0) | 449 if (defined $c && $loaded eq 0) |
455 { | 450 { |