- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Twitter/lib/BarnOwl/Module/Twitter/Handle.pm
ra2640485 r5d59c1e 248 248 next; 249 249 } 250 my $orig = $tweet->{retweeted_status}; 251 $orig = $tweet unless defined($orig); 252 250 253 my $msg = BarnOwl::Message->new( 251 254 type => 'Twitter', 252 sender => $ tweet->{user}{screen_name},255 sender => $orig->{user}{screen_name}, 253 256 recipient => $self->{cfg}->{user} || $self->{user}, 254 257 direction => 'in', 255 source => decode_entities($ tweet->{source}),256 location => decode_entities($ tweet->{user}{location}||""),257 body => decode_entities($ tweet->{text}),258 source => decode_entities($orig->{source}), 259 location => decode_entities($orig->{user}{location}||""), 260 body => decode_entities($orig->{text}), 258 261 status_id => $tweet->{id}, 259 262 service => $self->{cfg}->{service}, 260 263 account => $self->{cfg}->{account_nickname}, 264 $tweet->{retweeted_status} ? (retweeted_by => $tweet->{user}{screen_name}) : () 261 265 ); 262 266 BarnOwl::queue_message($msg);
Note: See TracChangeset
for help on using the changeset viewer.