WWW::SmugMug::API - Perl wrapper

flowerysong

WWW::SmugMug::API - Perl wrapper for the SmugMug API

Currently supports API version 1.2.0

Available from ftp://jill.marwnad.com/SmugMug/WWW-SmugMug-API/ for now (hopefully I can get it added to CPAN eventually).

Installation is the same as any module (run Makefile.PL, make, and make install).

Dependencies: LWP::UserAgent and JSON

A quick example of use:

use WWW::SmugMug::API;
use File::Slurp;

    my $sm_api = WWW::SmugMug::API->new(
        {
            sm_api_key => 'changeme',
            secure     => 1,
        }
    );

    $sm_api->login_withPassword(
        {
            EmailAddress => 'me@privacy.net',
            Password     => 'password',
        }
    );
    
    my $result = $sm_api->albums_get;
    my $image_data = read_file( 'test.jpg' );

    $sm_api->images_upload(
        {
            ImageData => $image_data,
            FileName  => 'test.jpg',
            AlbumID   => $result->{Albums}[0]->{id},
        }
    );

    $sm_api->logout;

flowerysong

With the release of version 1.02, the module has been updated to use the 1.2.1 API.

Available from the FTP site as before, or from http://jill.marwnad.com/SmugMug/WWW-SmugMug-API/WWW-SmugMug-API-1.02.tar.gz

Online documentation is at http://jill.marwnad.com/SmugMug/WWW-SmugMug-API/WWW-SmugMug-API.html