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 (from parent 1:
c69f1ce
)
Tidy
author
Dan Boger
<zigdon@irc.peeron.com>
Wed, 2 Dec 2009 21:46:25 +0000
(13:46 -0800)
committer
Dan Boger
<zigdon@irc.peeron.com>
Wed, 2 Dec 2009 21:46:25 +0000
(13:46 -0800)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index 3d292f42f4b1cbba0b77c62ec542af6b730ff762..221e086162972b15a0bd4a4cf19a1c5d5a7be20e 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-968,7
+968,7
@@
sub do_updates {
}
foreach my $t ( reverse @$tweets ) {
}
foreach my $t ( reverse @$tweets ) {
- my $text = &get_text(
$t, $obj
);
+ my $text = &get_text(
$t, $obj
);
my $reply = "tweet";
if ( Irssi::settings_get_bool("show_reply_context")
and $t->{in_reply_to_screen_name} ne $username
my $reply = "tweet";
if ( Irssi::settings_get_bool("show_reply_context")
and $t->{in_reply_to_screen_name} ne $username
@@
-1659,16
+1659,15
@@
sub normalize_username {
}
sub get_text {
}
sub get_text {
- my $tweet = shift;
+ my $tweet
= shift;
my $object = shift;
my $object = shift;
- my $text = decode_entities( $tweet->{text} );
- if (
$tweet->{truncated}
) {
- if (
exists $tweet->{retweeted_status}
) {
- $text = "RT $tweet->{retweeted_status}{user}{screen_name}: "
.
-
"$tweet->{retweeted_status}{text}";
+ my $text
= decode_entities( $tweet->{text} );
+ if (
$tweet->{truncated}
) {
+ if (
exists $tweet->{retweeted_status}
) {
+ $text = "RT $tweet->{retweeted_status}{user}{screen_name}: "
+
.
"$tweet->{retweeted_status}{text}";
} elsif ( $object->isa('Net::Twitter') ) {
} elsif ( $object->isa('Net::Twitter') ) {
- $text .=
- " -- http://twitter.com/$tweet->{user}{screen_name}"
+ $text .= " -- http://twitter.com/$tweet->{user}{screen_name}"
. "/status/$tweet->{id}";
}
}
. "/status/$tweet->{id}";
}
}