Mercurial > hg > skillbot

comparison skillbot.pl @ 55:c5ce2fff9b85

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
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 {