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 cpan.org> Based on the code in Flickr::API.

LICENSE AND COPYRIGHT

Copyright 2014, Louis B. Moore

This program is released under the Artistic License 2.0 by The Perl Foundation.