fix facebook delete post_id

diff --git a/mubot4fb.pl b/mubot4fb.pl
index a94cdce..87528b2 100755 (executable)
--- 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;