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:
20f3d44
)
r663 - Don't store the irssi colors in the JSON file, so that we don't include those...
author
Dan Boger
<zigdon@irc.peeron.com>
Wed, 8 Jul 2009 23:25:40 +0000
(16:25 -0700)
committer
Dan Boger
<zigdon@irc.peeron.com>
Wed, 8 Jul 2009 23:25:40 +0000
(16:25 -0700)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index 6a19972755a3c099b29d22ec094ce5544bd09399..281c124a417de12f6bdaa2d828a4fae6019ab277 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-11,7
+11,7
@@
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
$VERSION = "2.2.5beta";
use vars qw($VERSION %IRSSI);
$VERSION = "2.2.5beta";
-my ($REV) = '$Rev: 6
59
$' =~ /(\d+)/;
+my ($REV) = '$Rev: 6
63
$' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
%IRSSI = (
authors => 'Dan Boger',
contact => 'zigdon@gmail.com',
@@
-20,7
+20,7
@@
my ($REV) = '$Rev: 659 $' =~ /(\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-07-0
2 12:48:40 -0700 (Thu, 02
Jul 2009) $',
+ changed => '$Date: 2009-07-0
8 16:25:21 -0700 (Wed, 08
Jul 2009) $',
);
my $window;
);
my $window;
@@
-852,7
+852,7
@@
sub do_updates {
foreach my $t ( reverse @$tweets ) {
my $text = decode_entities( $t->{text} );
foreach my $t ( reverse @$tweets ) {
my $text = decode_entities( $t->{text} );
- $text =
&hilight($text)
;
+ $text =
~ s/[\n\r]/ /g
;
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
@@
-872,7
+872,7
@@
sub do_updates {
if ($context) {
my $ctext = decode_entities( $context->{text} );
if ($context) {
my $ctext = decode_entities( $context->{text} );
- $ctext =
&hilight($ctext)
;
+ $ctext =
~ s/[\n\r]/ /g
;
if ( $context->{truncated} and ref($obj) ne 'Net::Identica' ) {
$ctext .=
" -- http://twitter.com/$context->{user}{screen_name}"
if ( $context->{truncated} and ref($obj) ne 'Net::Identica' ) {
$ctext .=
" -- http://twitter.com/$context->{user}{screen_name}"
@@
-921,7
+921,7
@@
sub do_updates {
if exists $friends{ $t->{user}{screen_name} };
my $text = decode_entities( $t->{text} );
if exists $friends{ $t->{user}{screen_name} };
my $text = decode_entities( $t->{text} );
- $text =
&hilight($text)
;
+ $text =
~ s/[\n\r]/ /g
;
if ( $t->{truncated} ) {
$text .= " -- http://twitter.com/$t->{user}{screen_name}"
. "/status/$t->{id}";
if ( $t->{truncated} ) {
$text .= " -- http://twitter.com/$t->{user}{screen_name}"
. "/status/$t->{id}";
@@
-952,7
+952,7
@@
sub do_updates {
foreach my $t ( reverse @$tweets ) {
my $text = decode_entities( $t->{text} );
foreach my $t ( reverse @$tweets ) {
my $text = decode_entities( $t->{text} );
- $text =
&hilight($text)
;
+ $text =
~ s/[\n\r]/ /g
;
printf $fh "id:%u account:%s nick:%s type:dm %s\n",
$t->{id}, $username, $t->{sender_screen_name}, $text;
$new_poll_id = $t->{id} if $new_poll_id < $t->{id};
printf $fh "id:%u account:%s nick:%s type:dm %s\n",
$t->{id}, $username, $t->{sender_screen_name}, $text;
$new_poll_id = $t->{id} if $new_poll_id < $t->{id};
@@
-992,7
+992,7
@@
sub do_updates {
foreach my $t ( reverse @{ $search->{results} } ) {
my $text = decode_entities( $t->{text} );
foreach my $t ( reverse @{ $search->{results} } ) {
my $text = decode_entities( $t->{text} );
- $text =
&hilight($text)
;
+ $text =
~ s/[\n\r]/ /g
;
printf $fh "id:%u account:%s nick:%s type:search topic:%s %s\n",
$t->{id}, $username, $t->{from_user}, $topic, $text;
$new_poll_id = $t->{id}
printf $fh "id:%u account:%s nick:%s type:search topic:%s %s\n",
$t->{id}, $username, $t->{from_user}, $topic, $text;
$new_poll_id = $t->{id}
@@
-1167,7
+1167,8
@@
sub monitor_child {
$window->printformat(
$line->[0],
"twirssi_" . $line->[1],
$window->printformat(
$line->[0],
"twirssi_" . $line->[1],
- @$line[ 2 .. $#$line ]
+ @$line[ 2 .. $#$line-1 ],
+ &hilight($line->[-1])
);
}
}
);
}
}