Beefy Boxes and Bandwidth Generously Provided by pair Networks
Syntactic Confectionery Delight
 
PerlMonks  

Re^2: Can't get API::Instagram to work

by igoryonya (Monk)
on Feb 13, 2018 at 10:46 UTC ( #1209054=note: print w/replies, xml ) Need Help??


in reply to Re: Can't get API::Instagram to work
in thread Can't get API::Instagram to work

because "didn't" I fixed it.
I was here:
https://www.instagram.com/developer/authentication/
and hree:
http://instagr.am/developer/register/
before I've posted my question and I've mentioned about it in my question.
with /register/, I've got 'client_id and client_secret and set it up in object creation, as I mentioned in code sample
/authentication/, I've read, but it doesn't explain the API::Instagram perl library. 'code' explanation is very vague in both places.
I didn't find how to get 'code', by using library. I did flollow an $instagram->get_auth_url (with the browser), just to find out, if there will be the 'code', and had to click the 'authenticate' button, then it opened a page with JSON code, where it, had 'code' value. I assumed, that that 'code' was the one, that I needed to use in $instagram->code(), so, I've tried to insert the code, copied from that JSON page here: $instagram->code('copied_code'), but it didn't do anything to solve my issue. Also, even if if would, wouldn't if defy th e porpuse of library. I figure, this is module's job to gather that 'code'.

Replies are listed 'Best First'.
Re^3: Can't get API::Instagram to work
by marto (Archbishop) on Feb 13, 2018 at 11:04 UTC

    The code you have posted seems to be a mish mash of the code from the modules synopsis, and different parts of the documentation.

    my $code = "I didn't find in documentation, what is this code, and how + do I get it"; $instagram->code($code);

    Both the instagram docs and the example code for the new constructor show how to specify the response type, which I suggest you try:

    use API::Instagram; my $instagram = API::Instagram->new({ client_id => 'xxxxxxxxxx', client_secret => 'xxxxxxxxxx', redirect_uri => 'http://localhost', scope => 'basic', response_type => 'code' granty_type => 'authorization_code', }); print $instagram->get_auth_url;

    In fact the lines following your attempt match those that follow this type of usage.

      I already got this part, i.e.: logged in and got auth url. What's next?
      As I said, I can't figure out how to authenticate and ultimately, list posts.
      I would really appreciate a working code example.
      Thank You.

        "I already got this part, i.e.: logged in and got auth url"

        This isn't in the code you've posted, it doesn't match the example from the docs.

        "I can't figure out how to authenticate and ultimately, list posts. I would really appreciate a working code example."

        With the exception of the Instagram documentation that I looked at out of curiosity, I know nothing about their system, what it does or why anyone would use it. That said the API::Instagram documentation has examples of how to get a users 'feed' (if this is what you mean by posts?):

        my $feed = $my_user->feed( count => 5 ); for my $media ( @$feed ) { printf "Caption: %s\n", $media->caption; printf "Posted by %s at %s (%d likes)\n\n", $media->user->user +name, $media->created_time, $media->likes; }

        "I would really appreciate a working code example."

        I don't have any use case for this, and am not going to jump through the hoops to get an account/API keys etc.. My suggestion would be to Use the source Luke. You have the API documentation from Instagram, you have the Perl source code for this module. Work the problem. Perhaps some of the tests can point you in the right direction. Once you work out what you want, consider suggesting improvements to the module documentation if you feel this would be of benefit.

Log In?
Username:
Password:

What's my password?
Create A New User
Node Status?
node history
Node Type: note [id://1209054]
help
Chatterbox?
and all is quiet...

How do I use this? | Other CB clients
Other Users?
Others contemplating the Monastery: (7)
As of 2018-06-22 21:52 GMT
Sections?
Information?
Find Nodes?
Leftovers?
    Voting Booth?
    Should cpanminus be part of the standard Perl release?



    Results (124 votes). Check out past polls.

    Notices?