Mercurial > hg > skillbot

comparison skillbot.pl @ 10:9cc6dbc803f6

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Fixing docs, allowing chankey
author Dominic Cleal <dominic@computerkb.co.uk>
date Sat, 06 Dec 2008 15:47:34 +0000
parents c797330cd371
children 277d818f5496
comparison
equal deleted inserted replaced
9:c797330cd371 10:9cc6dbc803f6
169 } 169 }
170 170
171 sub join_channels 171 sub join_channels
172 { 172 {
173 my $self = shift; 173 my $self = shift;
174 $self->join('#' . $config{channel}); 174 $self->join('#' . $config{channel}, $config{chankey});
175 } 175 }
176 176
177 sub on_join 177 sub on_join
178 { 178 {
179 my ($self, $event) = @_; 179 my ($self, $event) = @_;
326 POSIX::setsid() or die "Can't start a new session: $!"; 326 POSIX::setsid() or die "Can't start a new session: $!";
327 } 327 }
328 328
329 =pod 329 =pod
330 330
331 Read a list of friends from the friends_file. These will be friended in 331 Read a list of friends from the friends_file. Format is:
332 Twitter if they aren't already. Format is: 332
333 333 user_id api_key IRC_nick character_name
334 character_name user_id api_key IRC_nick 334
335 335 Start a line with # for a comment. Character name is optional, if left
336 Start a line with # for a comment. Columns must be tab separated. 336 out then all characters will be monitored.
337 337
338 =cut 338 =cut
339 sub update_friends 339 sub update_friends
340 { 340 {
341 my $self = shift; 341 my $self = shift;
399 399
400 my $skill = $f->{char}->skill->in_training; 400 my $skill = $f->{char}->skill->in_training;
401 # Nothing training 401 # Nothing training
402 next unless $skill; 402 next unless $skill;
403 403
404 irc_debug("Character %s is training %s (%s)", 404 irc_debug("Character %s is training %s %lu (%s == %lu sec)",
405 $f->{char}->name, $skill->name, 405 $f->{char}->name, $skill->name, $skill->level,
406 $skill->time_remaining); 406 $skill->time_remaining, ($skill->finish_time - time()));
407 407
408 $f->{skill} = $skill; 408 $f->{skill} = $skill;
409 409
410 my $text = sprintf("%s has completed training skill %s %s", 410 my $text = sprintf("%s has completed training skill %s %s",
411 $f->{char}->name, $skill->name, $skill->level); 411 $f->{char}->name, $skill->name, $skill->level);