From: Dan Boger Date: Tue, 22 Sep 2009 22:27:06 +0000 (-0700) Subject: 2.2.7 - Updated to continue working correctly on 32bit machines, past the twitpocolypse2 X-Git-Url: https://git.sommitrealweird.co.uk/twirssi-net-twitter-lite.git/commitdiff_plain/2a5ac9f4effdcff62292f87997d261a0a9f6a61f?ds=sidebyside 2.2.7 - Updated to continue working correctly on 32bit machines, past the twitpocolypse2 --- diff --git a/twirssi.pl b/twirssi.pl index 1d24b86..ac20157 100644 --- a/twirssi.pl +++ b/twirssi.pl @@ -11,7 +11,7 @@ $Data::Dumper::Indent = 1; use vars qw($VERSION %IRSSI); -$VERSION = "2.2.6beta"; +$VERSION = "2.2.7"; 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}"; } - 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"; } } @@ -918,12 +917,12 @@ sub do_updates { $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}; } - 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} @@ -955,11 +954,11 @@ sub do_updates { $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}; } - 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; @@ -982,11 +981,11 @@ sub do_updates { 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}; } - 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} ) { @@ -1016,14 +1015,14 @@ sub do_updates { } $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; - 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; @@ -1453,7 +1452,7 @@ sub shorten { "Set short_url_args to username,API_key or change your", "short_url_provider." ); - return $data; + return decode "utf8", $data; } }