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:
8e5b157
)
Notice when a retweet command failed. Hack around longer retweets.
author
Dan Boger
<zigdon@irc.peeron.com>
Wed, 2 Dec 2009 21:32:28 +0000
(13:32 -0800)
committer
Dan Boger
<zigdon@irc.peeron.com>
Wed, 2 Dec 2009 21:32:28 +0000
(13:32 -0800)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index 3ee8a0690c024c5b3425c500b0f3d2c06eda0a7e..ee06ff6d7fe2c5f57a610b4d9d103323a42d7e12 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-182,20
+182,19
@@
sub cmd_retweet_as {
my $success = 1;
eval {
my $success = 1;
eval {
- if ($modified) {
+ if ($modified)
+ {
$success = $twits{$username}->update(
{
status => $data,
# in_reply_to_status_id => $id_map{ lc $nick }[$id]
}
$success = $twits{$username}->update(
{
status => $data,
# in_reply_to_status_id => $id_map{ lc $nick }[$id]
}
- )
+ )
;
} else {
} else {
- $success = $twits{$username}->retweet(
- {
- id => $id_map{ lc $nick }[$id]
- }
- )
+ $success =
+ $twits{$username}->retweet( { id => $id_map{ lc $nick }[$id] } );
+ $success = $success->{id} if ref $success;
}
¬ice("Update failed") unless $success;
};
}
¬ice("Update failed") unless $success;
};
@@
-969,7
+968,8
@@
sub do_updates {
}
foreach my $t ( reverse @$tweets ) {
}
foreach my $t ( reverse @$tweets ) {
- my $text = decode_entities( $t->{text} );
+ my $text =
+ decode_entities( $t->{retweeted_status}{text} || $t->{text} );
$text =~ s/[\n\r]/ /g;
my $reply = "tweet";
if ( Irssi::settings_get_bool("show_reply_context")
$text =~ s/[\n\r]/ /g;
my $reply = "tweet";
if ( Irssi::settings_get_bool("show_reply_context")
@@
-989,7
+989,9
@@
sub do_updates {
$context = $cache->{ $t->{in_reply_to_status_id} };
if ($context) {
$context = $cache->{ $t->{in_reply_to_status_id} };
if ($context) {
- my $ctext = decode_entities( $context->{text} );
+ my $ctext =
+ decode_entities( $context->{retweeted_status}{text}
+ || $context->{text} );
$ctext =~ s/[\n\r]/ /g;
if ( $context->{truncated} and ref($obj) ne 'Net::Identica' ) {
$ctext .=
$ctext =~ s/[\n\r]/ /g;
if ( $context->{truncated} and ref($obj) ne 'Net::Identica' ) {
$ctext .=
@@
-1040,7
+1042,8
@@
sub do_updates {
next
if exists $friends{ $t->{user}{screen_name} };
next
if exists $friends{ $t->{user}{screen_name} };
- my $text = decode_entities( $t->{text} );
+ my $text =
+ decode_entities( $t->{retweeted_status}{text} || $t->{text} );
$text =~ s/[\n\r]/ /g;
if ( $t->{truncated} ) {
$text .= " -- http://twitter.com/$t->{user}{screen_name}"
$text =~ s/[\n\r]/ /g;
if ( $t->{truncated} ) {
$text .= " -- http://twitter.com/$t->{user}{screen_name}"
@@
-1111,7
+1114,8
@@
sub do_updates {
$search->{max_id}, $username, $topic;
foreach my $t ( reverse @{ $search->{results} } ) {
$search->{max_id}, $username, $topic;
foreach my $t ( reverse @{ $search->{results} } ) {
- my $text = decode_entities( $t->{text} );
+ my $text =
+ decode_entities( $t->{retweeted_status}{text} || $t->{text} );
$text =~ s/[\n\r]/ /g;
printf $fh "id:%s account:%s nick:%s type:search topic:%s %s\n",
$t->{id}, $username, $t->{from_user}, $topic, $text;
$text =~ s/[\n\r]/ /g;
printf $fh "id:%s account:%s nick:%s type:search topic:%s %s\n",
$t->{id}, $username, $t->{from_user}, $topic, $text;
@@
-1158,7
+1162,8
@@
sub get_timeline {
}
foreach my $t ( reverse @$tweets ) {
}
foreach my $t ( reverse @$tweets ) {
- my $text = decode_entities( $t->{text} );
+ my $text =
+ decode_entities( $t->{retweeted_status}{text} || $t->{text} );
$text =~ s/[\n\r]/ /g;
my $reply = "tweet";
if ( Irssi::settings_get_bool("show_reply_context")
$text =~ s/[\n\r]/ /g;
my $reply = "tweet";
if ( Irssi::settings_get_bool("show_reply_context")
@@
-1178,7
+1183,9
@@
sub get_timeline {
$context = $cache->{ $t->{in_reply_to_status_id} };
if ($context) {
$context = $cache->{ $t->{in_reply_to_status_id} };
if ($context) {
- my $ctext = decode_entities( $context->{text} );
+ my $ctext =
+ decode_entities( $context->{retweeted_status}{text}
+ || $context->{text} );
$ctext =~ s/[\n\r]/ /g;
if ( $context->{truncated} and ref($obj) ne 'Net::Identica' ) {
$ctext .=
$ctext =~ s/[\n\r]/ /g;
if ( $context->{truncated} and ref($obj) ne 'Net::Identica' ) {
$ctext .=