DragonFly On-Line Manual Pages

Search: Section:  

FLICKR_METHOD_TEST_LOGIN(1)                User Contributed Perl Documentation


NAME

       flickr_method_test_echo.pl

       a login example for using either OAuth or Old School Flickr


DESCRIPTION

       This script uses either the Flickr or OAuth parameters to call the
       flickr.test.login method.


USAGE

         flickr_method_test_login.pl --use_api=[oauth, flickr] \
           --key="24680beef13579feed987654321ddcc6" \
           --secret="de0cafe4feed0242" \
           --token="72157beefcafe3582-1ad0feedface0e60" \
          [--token_secret="33beef1face212d"]

       Depending on what you specify with --use_api the flickr.test.login call
       will use the appropriate parameter set. The --token_secret is used by
       OAuth, but not by the original Flickr.


CALL DIFFERENCES

        if ($config->{use_api} =~ m/flickr/i) {

               $api = Flickr::API->new({
                                                                'key'        => $config->{key},
                                                                'secret'     => $config->{secret},
                                                                'auth_token' => $config->{token},
                                                               });

               $args{'api_key'}    = $config->{key};
               $args{'auth_token'} = $config->{token};

        }
        elsif ($config->{use_api} =~ m/oauth/i) {

               $api = Flickr::API->new({
                                                                'consumer_key'    => $config->{key},
                                                                'consumer_secret' => $config->{secret},
                                                                'token'           => $config->{token},
                                                                'token_secret'    => $config->{token_secret},
                                                               });

               $args{'consumer_key'} = $config->{key};
               $args{'token'} = $config->{token};

        }
        else {

               die "\n --use_api must be either 'flickr' or 'oauth' \n";

        }


AUTHOR

       Louis B. Moore <lbmoore at hethcote.com>  Based on the code in
       Flickr::API.


LICENSE AND COPYRIGHT

       Copyright 2014, Louis B. Moore

       This program is free software; you may redistribute it and/or modify it
       under the same terms as Perl itself.

perl v5.20.2                      2015-06-09       FLICKR_METHOD_TEST_LOGIN(1)

Search: Section: