changeset 8:cb6e21f2d514

Fixing re-check after skill completion
author Dominic Cleal <dominic@computerkb.co.uk>
date Sat, 06 Dec 2008 15:13:07 +0000
parents 6b73a2781c15
children c797330cd371
files skillbot.pl
diffstat 1 files changed, 3 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/skillbot.pl	Sat Dec 06 15:09:54 2008 +0000
+++ b/skillbot.pl	Sat Dec 06 15:13:07 2008 +0000
@@ -135,8 +135,8 @@
 	# API sessions for them all
 	add_repeat_timer(360, sub { my ($timer, $self) = @_; update_friends($self); });
 
-	# Check for new skills every 5 minutes.
-	add_repeat_timer(300, sub { my ($timer, $self) = @_; check_training($self); });
+	# Check for new skills every 30 minutes.
+	add_repeat_timer(1800, sub { my ($timer, $self) = @_; check_training($self); });
 }
 
 sub nickserv_id_now
@@ -412,10 +412,10 @@
 			$text =~ s/[\n\r]/ /g;
 		}
 
-		irc_debug("In %lu seconds, announcing: %s", $skill->finish_time - time(), $text);
 		add_one_shot_timer($skill->finish_time - time(), sub {
 			$self->notice('#' . $config{channel}, sprintf("[%s] %s",
 					$friends{$f}->{nick}, encode("utf8", $text)));
+			delete $friends{$f}->{skill};
 		});
 	}
 }