/ 
WWW-Ofoto-1.09
/ WWW::Ofoto

NAME

WWW::Ofoto - A module to interact with the Ofoto (now Kodakgallery) website

SYNOPSIS

  use WWW::Ofoto;
  my $ofoto = WWW::Ofoto->new( { 
		  email => 'me@home.com',
		  passwd => 'mypasswd',
		 } );
  
  # login to your account
  $ofoto->login() or die "couldn't login";

  # get a hash of your current photo albums
  use DateTime;
  my $albums = $ofoto->list_albums;
  for my $album (keys %$albums){
	my $album = $albums->{$name};
	printf "Album %s has %d photos and was created on %s\n",
		   $name, $album->{count}, $album->{date}->mdy;
  }

  # upload photos to a new album
  $count = $ofoto->upload_new_album( {
			title => 'Nov 2005 Beach',
			desc  => 'Pictures from my beach vacation',
			date  => DateTime->now,
			pics  => [ 'pic1.jpg', 'pic2.jpg' ],
		} );

  # upload photos to an existing album
  $result = $ofoto->upload_to_album( {
			title => 'Nov 2005 Beach',
			pics  => [ 'pic3.jpg', 'pic4.jpg'],
		} );

DESCRIPTION

This module provides a basic interface to the Ofoto (now KodakGallery) website (http://www.ofoto.com/ or http://wwww.kodakgallery.com/). It is based on the excellent WWW::Mechanize module by Andy Lester. I also requires the DateTime module to handle dates.

CLASS METHODS

new()

  my $ofoto = WWW::Ofoto->new( { 
		  email => 'me@home.com',
		  passwd => 'mypasswd',
	 } );

Constructor - Creates and returns a new WWW::Ofoto object. Typically you will want to pass in your email and password for the Ofoto site, but they can be set later via accessors. Returns the created object or croaks if there is error.

OBJECT METHODS

$ofoto->login()

$ofoto->login() or die "couldn't login";

Logs into the Ofoto website using the email and password supplied in the constructor or through the email and passwd accessors. Returns true if the login was successful.

$ofoto->list_albums()

my $albums = $ofoto->list_albums;

Retrieves a summary the user's photo albums from the Ofoto website. Which is returned as a reference to a hash of hashes. Croaks or returns an empty hash if there is an error.

The photo album titles are the keys to the hash, and count, date, and link are the keys to the value hash:

  for my $album (keys %$albums){
	my $album = $albums->{$name};
	printf "Album %s has %d photos and was created on %s\n",
		   $name, $album->{count}, $album->{date}->mdy;
  }

$ofoto->upload_new_album()

  $count = $ofoto->upload_new_album( {
			title => 'Nov 2005 Beach',
			desc  => 'Pictures from my beach vacation',
			date  => DateTime->now,
			pics  => [ 'pic1.jpg', 'pic2.jpg' ],
		} );

Takes a the relevant data, creates a new album and uploads the pictures to the Ofoto site. A large number of photos may be sent with each call to upload_new_album. The method will break the photos into smaller groups and upload each.

Will most likely croak if there is any error. The number of photos uploaded is returned.

$ofoto->upload_to_album()

  $result = $ofoto->upload_to_album( {
			title => 'Nov 2005 Beach',
			pics  => [ 'pic3.jpg', 'pic4.jpg'],
		} );

Uploads pictures to an existing photo album based on the c<title>. Otherwise functions identically to upload_new_album.

Will most likely croak if there is any error. The number of photos uploaded is returned.

$ofoto->email()

$ofoto->passwd()

$ofoto->debug()

Accessors to retrieve or set their internal values.

$ofoto->dump2file()

Utility function to print the last webpage loaded by WWW::Ofoto as is stored via content() in the WWW::Mechanize agent. See the WWW::Mechanize documentation for more information.

If an arguement is supplied, it is used as the filename to write to with .html added as an an extention. If not arguement is provied, it will write to t.html. Any existing file will be overwritten.

SEE ALSO

The WWW::Mechanize module. WWW::KodakGallery module, which is just a wrapper around this module.

AUTHOR

Mark V. Grimes, <mgrimes@cpan.org>

COPYRIGHT AND LICENSE

Copyright (C) 2005 by mgrimes

This library is free software; you can redistribute it and/or modify it under the same terms as Perl itself, either Perl version 5.8.2 or, at your option, any later version of Perl 5 you may have available.