Changeset 4839f5a
- Timestamp:
- Jun 23, 2011, 10:47:15 PM (13 years ago)
- Children:
- e458b63
- Parents:
- 525dd8d
- Location:
- perl/modules/Facebook/lib/BarnOwl
- Files:
-
- 2 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Facebook/lib/BarnOwl/Message/Facebook.pm
r6c3d4ad r4839f5a 16 16 sub subcontext { return shift->{"topic"}; } 17 17 sub service { return "http://www.facebook.com"; } 18 sub long_sender { return shift->{" zsig"}; } # XXX hack, shouldn't be named zsig18 sub long_sender { return shift->{"permalink"}; } 19 19 20 20 sub replycmd { 21 21 my $self = shift; 22 # TODO: Support for direct messages23 # XXX: It seems that Facebook may not support this yet24 22 return BarnOwl::quote('facebook-comment', $self->{post_id}); 25 23 } 26 24 25 # XXX Messaging not supported yet. 27 26 #sub replysendercmd { 28 27 # my $self = shift; -
perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm
r525dd8d r4839f5a 307 307 # serves as a canonical link to the post. The {name} 308 308 # field should equal 'Comment'. 309 zsig=> $post->{actions}[0]{link},309 permalink => $post->{actions}[0]{link}, 310 310 ); 311 311 BarnOwl::queue_message($msg);
Note: See TracChangeset
for help on using the changeset viewer.