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:
d1284e4
)
2.2.7 - Updated to continue working correctly on 32bit machines, past the twitpocolypse2
author
Dan Boger
<zigdon@irc.peeron.com>
Tue, 22 Sep 2009 22:27:06 +0000
(15:27 -0700)
committer
Dan Boger
<zigdon@irc.peeron.com>
Tue, 22 Sep 2009 22:27:06 +0000
(15:27 -0700)
twirssi.pl
patch
|
blob
|
history
diff --git
a/twirssi.pl
b/twirssi.pl
index 1d24b863350ac32edd0a05da7ca982f3fa937444..ac201572944291a1d2d18596a7fcac0b14f45488 100644
(file)
--- a/
twirssi.pl
+++ b/
twirssi.pl
@@
-11,7
+11,7
@@
$Data::Dumper::Indent = 1;
use vars qw($VERSION %IRSSI);
use vars qw($VERSION %IRSSI);
-$VERSION = "2.2.
6beta
";
+$VERSION = "2.2.
7
";
my ($REV) = '$Rev: 687 $' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
my ($REV) = '$Rev: 687 $' =~ /(\d+)/;
%IRSSI = (
authors => 'Dan Boger',
@@
-905,9
+905,8
@@
sub do_updates {
" -- http://twitter.com/$context->{user}{screen_name}"
. "/status/$context->{id}";
}
" -- http://twitter.com/$context->{user}{screen_name}"
. "/status/$context->{id}";
}
- printf $fh "id:%u account:%s nick:%s type:tweet %s\n",
- $context->{id}, $username,
- $context->{user}{screen_name}, $ctext;
+ printf $fh "id:$context->{id} account:%s nick:%s type:tweet %s\n",
+ $username, $context->{user}{screen_name}, $ctext;
$reply = "reply";
}
}
$reply = "reply";
}
}
@@
-918,12
+917,12
@@
sub do_updates {
$text .= " -- http://twitter.com/$t->{user}{screen_name}"
. "/status/$t->{id}";
}
$text .= " -- http://twitter.com/$t->{user}{screen_name}"
. "/status/$t->{id}";
}
- printf $fh "id:
%u
account:%s nick:%s type:%s %s\n",
- $
t->{id}, $
username, $t->{user}{screen_name}, $reply, $text;
+ printf $fh "id:
$t->{id}
account:%s nick:%s type:%s %s\n",
+ $username, $t->{user}{screen_name}, $reply, $text;
$new_poll_id = $t->{id} if $new_poll_id < $t->{id};
}
$new_poll_id = $t->{id} if $new_poll_id < $t->{id};
}
- printf $fh "id:
%u
account:%s type:last_id timeline\n",
-
$new_poll_id,
$username;
+ printf $fh "id:
$new_poll_id
account:%s type:last_id timeline\n",
+ $username;
print scalar localtime, " - Polling for replies since ",
$id_map{__last_id}{$username}{reply}
print scalar localtime, " - Polling for replies since ",
$id_map{__last_id}{$username}{reply}
@@
-955,11
+954,11
@@
sub do_updates {
$text .= " -- http://twitter.com/$t->{user}{screen_name}"
. "/status/$t->{id}";
}
$text .= " -- http://twitter.com/$t->{user}{screen_name}"
. "/status/$t->{id}";
}
- printf $fh "id:
%u
account:%s nick:%s type:tweet %s\n",
-
$t->{id},
$username, $t->{user}{screen_name}, $text;
+ printf $fh "id:
$t->{id}
account:%s nick:%s type:tweet %s\n",
+ $username, $t->{user}{screen_name}, $text;
$new_poll_id = $t->{id} if $new_poll_id < $t->{id};
}
$new_poll_id = $t->{id} if $new_poll_id < $t->{id};
}
- printf $fh "id:
%u account:%s type:last_id reply\n", $new_poll_id
, $username;
+ printf $fh "id:
$new_poll_id account:%s type:last_id reply\n"
, $username;
print scalar localtime, " - Polling for DMs" if &debug;
$new_poll_id = 0;
print scalar localtime, " - Polling for DMs" if &debug;
$new_poll_id = 0;
@@
-982,11
+981,11
@@
sub do_updates {
foreach my $t ( reverse @$tweets ) {
my $text = decode_entities( $t->{text} );
$text =~ s/[\n\r]/ /g;
foreach my $t ( reverse @$tweets ) {
my $text = decode_entities( $t->{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;
+ printf $fh "id:
$t->{id}
account:%s nick:%s type:dm %s\n",
+ $username, $t->{sender_screen_name}, $text;
$new_poll_id = $t->{id} if $new_poll_id < $t->{id};
}
$new_poll_id = $t->{id} if $new_poll_id < $t->{id};
}
- printf $fh "id:
%u account:%s type:last_id dm\n", $new_poll_id
, $username;
+ printf $fh "id:
$new_poll_id account:%s type:last_id dm\n"
, $username;
print scalar localtime, " - Polling for subscriptions" if &debug;
if ( $obj->can('search') and $id_map{__searches}{$username} ) {
print scalar localtime, " - Polling for subscriptions" if &debug;
if ( $obj->can('search') and $id_map{__searches}{$username} ) {
@@
-1016,14
+1015,14
@@
sub do_updates {
}
$id_map{__searches}{$username}{$topic} = $search->{max_id};
}
$id_map{__searches}{$username}{$topic} = $search->{max_id};
- printf $fh "id:
%u
account:%s type:searchid topic:%s\n",
- $
search->{max_id}, $
username, $topic;
+ printf $fh "id:
$search->{max_id}
account:%s type:searchid topic:%s\n",
+ $username, $topic;
foreach my $t ( reverse @{ $search->{results} } ) {
my $text = decode_entities( $t->{text} );
$text =~ s/[\n\r]/ /g;
foreach my $t ( reverse @{ $search->{results} } ) {
my $text = decode_entities( $t->{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;
+ printf $fh "id:
$t->{id}
account:%s nick:%s type:search topic:%s %s\n",
+ $username, $t->{from_user}, $topic, $text;
$new_poll_id = $t->{id}
if not $new_poll_id
or $t->{id} < $new_poll_id;
$new_poll_id = $t->{id}
if not $new_poll_id
or $t->{id} < $new_poll_id;
@@
-1453,7
+1452,7
@@
sub shorten {
"Set short_url_args to username,API_key or change your",
"short_url_provider."
);
"Set short_url_args to username,API_key or change your",
"short_url_provider."
);
- return $data;
+ return
decode "utf8",
$data;
}
}
}
}