adhoc uri fix

diff --git a/lib/Mubot4FB.pm b/lib/Mubot4FB.pm
index 0b3cf67..84ed871 100644 (file)
--- a/lib/Mubot4FB.pm
+++ b/lib/Mubot4FB.pm
@@ -66,9 +66,11 @@ sub _add {
                        my $post_ok = 1;
                        eval{$resp = $me->{fb}->publish($text, $uri)};
                        if ($@) {
+                               warn Dumper($resp) if ($me->{cfg}->{debug});
                                $me->{fb}->init();
                                eval{$resp = $me->{fb}->publish($text, $uri)};
                                $post_ok = 0 if ($@);
+                               warn Dumper($resp) if ($me->{cfg}->{debug});
                        }
 
                        if ($post_ok) {

diff --git a/lib/Mubot4FB/FB.pm b/lib/Mubot4FB/FB.pm
index cc6e097..bb99490 100644 (file)
--- a/lib/Mubot4FB/FB.pm
+++ b/lib/Mubot4FB/FB.pm
@@ -10,6 +10,7 @@ use utf8;
 use Facebook::Graph;
 use LWP::UserAgent;
 use HTTP::Request::Common;
+use URI::Split qw(uri_split uri_join);
 
 use Data::Dumper;
 
@@ -66,9 +67,10 @@ sub uri_fixer {
 sub publish {
        my ($me, $text, $uri) = @_;
 
+       $uri = $me->uri_fixer($uri);
        return $me->{fbo}->add_post($me->{cfg}->{fb_page_id})
            ->set_message($text)
-           ->set_link_uri($me->uri_fixer($uri))
+           ->set_link_uri($uri)
            ->publish()
            ->as_hashref();
 }