Changeset d387e0d for perl/modules

Timestamp:

Sep 19, 2011, 1:31:35 PM (13 years ago)

Author:

Edward Z. Yang <ezyang@mit.edu>

Children:

e5b119a

Parents:

9776805

git-author:

Edward Z. Yang <ezyang@mit.edu> (06/23/11 22:47:15)

git-committer:

Edward Z. Yang <ezyang@mit.edu> (09/19/11 13:31:35)

Message:

Rename zsig to permalink.

Signed-off-by: Edward Z. Yang <ezyang@mit.edu>

Location:

perl/modules/Facebook/lib/BarnOwl

Files:

• Message/Facebook.pm (modified) (1 diff)
• Module/Facebook/Handle.pm (modified) (1 diff)

perl/modules/Facebook/lib/BarnOwl/Message/Facebook.pm

@@ -16 +16 @@
 sub subcontext { return shift->{"topic"}; }
 sub service { return "http://www.facebook.com"; }
-sub long_sender { return shift->{"zsig"}; } # XXX hack, shouldn't be named zsig
+sub long_sender { return shift->{"permalink"}; }
 
 sub replycmd {
     my $self = shift;
-    # TODO: Support for direct messages
-    # XXX: It seems that Facebook may not support this yet
     return BarnOwl::quote('facebook-comment', $self->{post_id});
 }
 
+# XXX Messaging not supported yet.
 #sub replysendercmd {
 #    my $self = shift;

perl/modules/Facebook/lib/BarnOwl/Module/Facebook/Handle.pm

@@ -307 +307 @@
                 # serves as a canonical link to the post.  The {name}
                 # field should equal 'Comment'.
-                zsig      => $post->{actions}[0]{link},
+                permalink => $post->{actions}[0]{link},
                );
             BarnOwl::queue_message($msg);