From: Dan Boger Date: Thu, 8 Jan 2009 20:43:53 +0000 (-0800) Subject: $VERSION = "1.1"; - r303 - Make sure we keep the cache of nicks up to date X-Git-Url: https://git.sommitrealweird.co.uk/twirssi-net-twitter-lite.git/commitdiff_plain/c8395e2cae3541eae8f929046c2244a3c365d976?ds=inline;hp=-c $VERSION = "1.1"; - r303 - Make sure we keep the cache of nicks up to date --- c8395e2cae3541eae8f929046c2244a3c365d976 diff --git a/twirssi.pl b/twirssi.pl index ccba425..76892c3 100644 --- a/twirssi.pl +++ b/twirssi.pl @@ -10,7 +10,7 @@ use vars qw($VERSION %IRSSI); use constant { DEBUG => 0 }; $VERSION = "1.1"; -my ($REV) = '$Rev: 302 $' =~ /(\d+)/; +my ($REV) = '$Rev: 303 $' =~ /(\d+)/; %IRSSI = ( authors => 'Dan Boger', contact => 'zigdon@gmail.com', @@ -150,6 +150,7 @@ sub cmd_login { ¬ice("Logged in as $user, loading friends list..."); &load_friends; ¬ice( "loaded friends: ", scalar keys %nicks ); + %nicks = %friends; $nicks{$user} = 0; &get_updates; } else { @@ -163,7 +164,7 @@ sub load_friends { while (1) { my $friends = $twit->friends( { page => $page } ); last unless $friends; - $new_friends{ $_->{screen_name} } = $nicks{ $_->{screen_name} } = time + $new_friends{ $_->{screen_name} } = time foreach @$friends; $page++; last if @$friends == 0 or $page == 10; @@ -295,7 +296,7 @@ sub monitor_child { last; } my ($f, $t) = split ' ', $_; - $friends{$f} = $t; + $nicks{$f} = $friends{$f} = $t; } print "new last_poll = $last_poll" if DEBUG;