Flickr::License::Helper - Helper class to grab details of the currently supported licenses on Flickr

       my $helper = Flickr::License::Helper->get_instance($APIKEY);

       my $license_name = $helper->licenses->{$license_id}{name};
       my $license_url = $helper->licenses->{}$license_id}{url};

    {
        '6' => {
                'url' => 'http://creativecommons.org/licenses/by-nd/2.0/',
                'name' => 'Attribution-NoDerivs License'
               },
        '1' => {
                'url' => 'http://creativecommons.org/licenses/by-nc-sa/2.0/',
                'name' => 'Attribution-NonCommercial-ShareAlike License'
               },
        '4' => {
                'url' => 'http://creativecommons.org/licenses/by/2.0/',
                'name' => 'Attribution License'
               },
        '3' => {
                'url' => 'http://creativecommons.org/licenses/by-nc-nd/2.0/',
                'name' => 'Attribution-NonCommercial-NoDerivs License'
               },
        '0' => {
                'url' => '',
                'name' => 'All Rights Reserved'
               },
        '2' => {
                'url' => 'http://creativecommons.org/licenses/by-nc/2.0/',
                'name' => 'Attribution-NonCommercial License'
               },
        '5' => {
                'url' => 'http://creativecommons.org/licenses/by-sa/2.0/',
                'name' => 'Attribution-ShareAlike License'
                }
    }

package Flickr::License::Helper;
use Class::Singleton;
use Flickr::API;
use Flickr::API::Utils;
use Carp;
use strict;

use vars qw(@ISA);
@ISA = qw(Class::Singleton);

our $VERSION = '0.02';

#_new_instance
#Returns a new instance of the Helper.
#It is called by the Class::Singleton method ->instance() if the class is not initialised.

sub _new_instance {
    my $class = shift;
    my $api_key = shift;

    my $me = { utils => Flickr::API::Utils->new() };    
    
    my $self  = bless $me, $class;

    if (defined $api_key) {
        $self->api_key($api_key);
    }

    return $self;
}

sub api_key {
    my $self=shift;
    my $key=shift;

    
    if (defined $key &&
        (!exists $self->{api_key} || !defined $self->{api_key} || $self->{api_key} ne $key))
    {
        $self->{api_key}=$key;
        $self->refresh();
    }
    
    return $self->{api_key};
}

sub refresh {

    my $self=shift;

    # no license key means no hash
    if ($self->{api_key} eq '') {
        croak "No flickr API key defined, can't get license info";
    }

    my $api=new Flickr::API({key => $self->{api_key}});
    my $response=$api->execute_method('flickr.photos.licenses.getInfo');

# License info as of 20070711
#    my $xml=<<END
#<licenses>
#	<license id="4" name="Attribution License"
#		url="http://creativecommons.org/licenses/by/2.0/" /> 
#	<license id="6" name="Attribution-NoDerivs License"
#		url="http://creativecommons.org/licenses/by-nd/2.0/" /> 
#	<license id="3" name="Attribution-NonCommercial-NoDerivs License"
#		url="http://creativecommons.org/licenses/by-nc-nd/2.0/" /> 
#	<license id="2" name="Attribution-NonCommercial License"
#		url="http://creativecommons.org/licenses/by-nc/2.0/" /> 
#	<license id="1" name="Attribution-NonCommercial-ShareAlike License"
#		url="http://creativecommons.org/licenses/by-nc-sa/2.0/" /> 
#	<license id="5" name="Attribution-ShareAlike License"
#		url="http://creativecommons.org/licenses/by-sa/2.0/" /> 
#</licenses>
#END
#    ;

    my $result={};
    $self->{utils}->test_return($response,$result);
    if ($result->{success}) {
        my $xml=$response;#->{_content};
        $self->{licenses} = $self->_parse_licenses($xml);
    } else {
        croak "Failed to get license data: $result->{error_message} ($result->{error_code})";
    }
}

# _parse_licenses
# parses the license data returned by flickr into the internal cache

sub _parse_licenses {

    my $self=shift;
    my $xml=shift;

    my $ret = {};

    foreach my $node (@{$xml->{tree}{children}}) {
        if ($node->{type} eq 'tag' and $node->{name} eq 'licenses') {
            foreach my $license (@{$node->{children}}) {
                if ($license->{type} eq 'tag' and $license->{name} eq 'license') {
                    $ret->{$license->{attributes}{id}}{name}=$license->{attributes}{name};
                    $ret->{$license->{attributes}{id}}{url}=$license->{attributes}{url};
                }
            }
        }
    }

    return $ret;

}

sub licenses {
    my $self=shift;
    return $self->{licenses};
}

1;