projects
/
twirssi-net-twitter-lite.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
r643 - v2.3.3 - don't link retweets to their original tweet, because twitter is being...
[twirssi-net-twitter-lite.git]
/
twirssi.pl
diff --git
a/twirssi.pl
b/twirssi.pl
index 4ba6417450d25ba46f4de1ef035e09e0f9f4a093..8d478f44c72db5bf1bbbbf6fba99e643d266c1eb 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-10,8
+10,8
@@
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
use vars qw($VERSION %IRSSI);
-$VERSION = "2.2.3
beta
";
-my ($REV) = '$Rev: 6
36
$' =~ /(\d+)/;
+$VERSION = "2.2.3";
+my ($REV) = '$Rev: 6
43
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-20,7
+20,7
@@
my ($REV) = '$Rev: 636 $' =~ /(\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-05-
13 15:34:34 -0700 (Wed, 13
May 2009) $',
+ changed => '$Date: 2009-05-
21 14:13:27 -0700 (Thu, 21
May 2009) $',
);
my $window;
);
my $window;
@@
-183,7
+183,7
@@
sub cmd_retweet_as {
$twits{$username}->update(
{
status => $data,
$twits{$username}->update(
{
status => $data,
- in_reply_to_status_id => $id_map{ lc $nick }[$id]
+
#
in_reply_to_status_id => $id_map{ lc $nick }[$id]
}
)
)
}
)
)
@@
-1241,7
+1241,10
@@
sub monitor_child {
}
$failwhale = 1;
}
}
$failwhale = 1;
}
- &ccrap("Haven't been able to get updated tweets since $since");
+
+ if ( time - $last_poll < 600 ) {
+ &ccrap("Haven't been able to get updated tweets since $since");
+ }
}
}
}
}