From 20955fef23e80e857d340589ef41e83dccffb6e3 Mon Sep 17 00:00:00 2001
From: ISHIKAWA Mutsumi <ishikawa@hanzubon.jp>
Date: Wed, 24 Oct 2012 12:54:59 +0900
Subject: [PATCH 1/1] fix facebook delete post_id

---
 mubot4fb.pl | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/mubot4fb.pl b/mubot4fb.pl
index a94cdce..87528b2 100755
--- a/mubot4fb.pl
+++ b/mubot4fb.pl
@@ -65,7 +65,7 @@ sub post_uri {
 sub remove {
 	my ($me, $post_id) = @_;
 
-	my $uri = $me->{fbo}->query->find($post_id)->uri_as_string;
+	my $uri = $me->{fbo}->query->find($me->{cfg}->{fb_page_id}.'_'.$post_id)->uri_as_string;
 	my $req = HTTP::Request::Common::DELETE($uri);
 	warn Dumper($req) if ($me->{cfg}->{debug});
 	my $resp;
-- 
2.11.0