projects
/
twirssi-net-twitter-lite.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
af54a1d
)
r487 - Remove since_id from friend_timeline call; extend the duplicate cache an hour...
author
Dan Boger
<zigdon@irc.peeron.com>
Tue, 24 Feb 2009 19:29:02 +0000
(11:29 -0800)
committer
Dan Boger
<zigdon@irc.peeron.com>
Tue, 24 Feb 2009 19:29:02 +0000
(11:29 -0800)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index bd11993e3368798f470168d68fbf55dab3b026fa..738e9290b2ee5ebb26df6618aaf1dd33cb10baee 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-12,7
+12,7
@@
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
$VERSION = "2.0.6";
use vars qw($VERSION %IRSSI);
$VERSION = "2.0.6";
-my ($REV) = '$Rev: 48
5
$' =~ /(\d+)/;
+my ($REV) = '$Rev: 48
7
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-21,7
+21,7
@@
my ($REV) = '$Rev: 485 $' =~ /(\d+)/;
. 'Can optionally set your bitlbee /away message to same',
license => 'GNU GPL v2',
url => 'http://twirssi.com',
. 'Can optionally set your bitlbee /away message to same',
license => 'GNU GPL v2',
url => 'http://twirssi.com',
- changed => '$Date: 2009-02-2
3 14:17:26 -0800 (Mon, 23
Feb 2009) $',
+ changed => '$Date: 2009-02-2
4 11:27:26 -0800 (Tue, 24
Feb 2009) $',
);
my $window;
);
my $window;
@@
-34,7
+34,7
@@
my %nicks;
my %friends;
my %tweet_cache;
my %id_map;
my %friends;
my %tweet_cache;
my %id_map;
-my $failwhale = 0;
+my $failwhale
= 0;
my %irssi_to_mirc_colors = (
'%k' => '01',
'%r' => '05',
my %irssi_to_mirc_colors = (
'%k' => '01',
'%r' => '05',
@@
-635,7
+635,7
@@
sub get_updates {
return unless &logged_in($twit);
my ( $fh, $filename ) = File::Temp::tempfile();
return unless &logged_in($twit);
my ( $fh, $filename ) = File::Temp::tempfile();
- binmode(
$fh, ":utf8"
);
+ binmode(
$fh, ":utf8"
);
my $pid = fork();
if ($pid) { # parent
my $pid = fork();
if ($pid) { # parent
@@
-691,10
+691,7
@@
sub do_updates {
print scalar localtime, " - Polling for updates for $username" if &debug;
my $tweets;
print scalar localtime, " - Polling for updates for $username" if &debug;
my $tweets;
- eval {
- $tweets = $obj->friends_timeline(
- { since => HTTP::Date::time2str($last_poll) } );
- };
+ eval { $tweets = $obj->friends_timeline(); };
if ($@) {
print $fh
if ($@) {
print $fh
@@
-962,7
+959,7
@@
sub monitor_child {
# keep enough cached tweets, to make sure we don't show duplicates.
foreach ( keys %tweet_cache ) {
# keep enough cached tweets, to make sure we don't show duplicates.
foreach ( keys %tweet_cache ) {
- next if $tweet_cache{$_} >= $last_poll;
+ next if $tweet_cache{$_} >= $last_poll
- 3600
;
delete $tweet_cache{$_};
}
$last_poll = $new_last_poll;
delete $tweet_cache{$_};
}
$last_poll = $new_last_poll;
@@
-1003,7
+1000,7
@@
sub monitor_child {
$since = scalar localtime($last_poll);
}
$since = scalar localtime($last_poll);
}
- if (
not $failwhale and time - $last_poll > 60*60
) {
+ if (
not $failwhale and time - $last_poll > 60 * 60
) {
foreach my $whale (
q{ v v v},
q{ | | v | v},
foreach my $whale (
q{ v v v},
q{ | | v | v},
@@
-1012,7
+1009,9
@@
sub monitor_child {
q{ '-. (__..-" \\},
q{ \\ a |},
q{ ',.__. ,__.-'/},
q{ '-. (__..-" \\},
q{ \\ a |},
q{ ',.__. ,__.-'/},
- q{ '--/_.'----'`}) {
+ q{ '--/_.'----'`}
+ )
+ {
¬ice($whale);
}
$failwhale = 1;
¬ice($whale);
}
$failwhale = 1;