Changeset 2226f91 for perl/modules/Facebook/lib/BarnOwl/Module/Facebook.pm
- Timestamp:
- Sep 19, 2011, 1:31:34 PM (14 years ago)
- Children:
- 61d7594
- Parents:
- 9da6022
- git-author:
- Edward Z. Yang <ezyang@mit.edu> (06/20/11 11:43:49)
- git-committer:
- Edward Z. Yang <ezyang@mit.edu> (09/19/11 13:31:34)
- File:
-
- 1 edited
Legend:
- Unmodified
- Added
- Removed
-
perl/modules/Facebook/lib/BarnOwl/Module/Facebook.pm
r9da6022 r2226f91 102 102 BarnOwl::new_command('facebook-comment' => \&cmd_facebook_comment, { 103 103 summary => 'Comment on a wall post.', 104 usage => 'facebook-comment POST ID',104 usage => 'facebook-comment POST_ID', 105 105 description => 'Comment on a friend\'s wall post. Using r is recommended.' 106 106 }); … … 130 130 sub cmd_facebook_comment { 131 131 my $cmd = shift; 132 my $post id = shift;132 my $post_id = shift; 133 133 134 my $topic = $facebook_handle->get_topic($post id);134 my $topic = $facebook_handle->get_topic($post_id); 135 135 136 136 # XXX UI should give some (better) indication /which/ conversation 137 137 # is being commented on 138 138 BarnOwl::start_edit_win("Write a comment on '$topic'...", 139 sub { $facebook_handle->facebook_comment($post id, shift) });139 sub { $facebook_handle->facebook_comment($post_id, shift) }); 140 140 } 141 141
Note: See TracChangeset
for help on using the changeset viewer.