add app secrect get utility

diff --git a/get_facebook_accesscode.pl b/get_facebook_accesscode.pl
new file mode 100755 (executable)
index 0000000..c787be0
--- /dev/null
+++ b/get_facebook_accesscode.pl
@@ -0,0 +1,37 @@
+#!/usr/bin/perl
+
+use strict;
+use Facebook::Graph;
+use Config::Simple;
+use Data::Dumper;
+
+my %cfg;
+
+my $config_name = $ARGV[0] || 'not_found';
+
+my @config_path = ('/etc/mubot4fb/', $ENV{HOME} . '/.mubot4fb/', $ENV{PWD} . '/mubot4fb_');
+
+foreach my $c (@config_path) {
+        my $config = $c . $config_name . '.conf';
+       print $config . "\n";
+        Config::Simple->import_from($config, \%cfg) if (-e $config);
+}
+
+die 'missing some config parameters should be defined (fb_app_id, fb_app_secret, fb_access_code, fb_page_id fb_postback_url)'
+    if (!defined $cfg{'fb_app_id'});
+#      || !defined $cfg{'fb_app_secret'}
+#      || !defined $cfg{'fb_postback_url'}
+#    );
+
+my $fb = Facebook::Graph->new(app_id   => $cfg{'fb_app_id'},
+                             secret   => $cfg{'fb_app_secret'},
+                             postback => $cfg{'fb_postback_url'});
+my $page_id = $cfg{'page_id'};
+
+my $uri_t = $fb->authorize->extend_permissions(qw(offline_access publish_stream manage_pages))->uri_as_string;
+print $uri_t . "\n";
+
+print "\n\n↑この表示されてる uri をブラウザにつっこむと access_code が得られる redirect さきの url に code パラメタとしてくっついてくるので それを設定ファイルの access_code パラメータにコピペ...\n";
+print "ただし そのブラウザで facebook にログインしている必要あり\n";
+
+exit;