# HG changeset patch
# User Dominic Cleal <dominic@computerkb.co.uk>
# Date 1230808810 0
# Node ID f620582dee335a15739e36b5fe008745fcdc785d
# Parent  2328f73e25a83205d47a0cf48392543d948a25cc
Reverting changeset c5ce2fff9b85, buggy

diff -r 2328f73e25a8 -r f620582dee33 skillbot.pl
--- a/skillbot.pl	Wed Dec 31 12:12:24 2008 +0000
+++ b/skillbot.pl	Thu Jan 01 11:20:10 2009 +0000
@@ -62,7 +62,7 @@
 
 my $irc = new Net::IRC;
 
-update_friends($irc);
+update_friends(undef);
 
 my $conn = $irc->newconn(Server => $config{'target_server'},
 			 Port   => $config{'target_port'},
@@ -180,8 +180,15 @@
     my ($self, $event) = @_;
 
 #    print Dumper($event);
-# if ($event->nick eq $config{nick}) {
-# }
+    if ($event->nick eq $config{nick}) {
+=pod
+		$twit->update("In channel, checking for tweets");
+		$twit->http_code == 200 or print sprintf("%s| *** %s\n", scalar gmtime(), $twit->http_message);
+=cut
+
+		# Now we're in, check for tweets as a one-off
+		add_one_shot_timer(10, sub { my ($timer, $self) = @_; check_training($self); });
+    }
 }
 
 sub on_ping
@@ -435,15 +442,13 @@
 				my $loaded = 0;
 				foreach my $character ($api->characters) {
 					next if defined $c && $c ne $character->name;
-					my $f = {
+					push @friends, {
 						char_api => $character,
 						char => $character->name,
 						api => $api,
 						nick => $nick,
 						tz => $tz
 					};
-					push @friends, $f;
-					check_friend($self, $f);
 					$loaded++;
 				}