Net::DPAP::Client (3pm)

  use Net::DPAP::Client;
  my $client = Net::DPAP::Client->new;
  $client->hostname($hostname);
  my @albums = $client->connect;

  foreach my $album (@albums) {
    print $album->name, "\n";
    foreach my $image (@{$album->images}) {
      print "  ", $image->name, "\n";
      my $thumbnail = $image->thumbnail;
      my $hires = $image->hires;
    }
  }

This module provides a \s-1DPAP\s0 client. \s-1DPAP\s0 is the Digital Photo Access Protocol and is the protocol that Apple iPhoto uses to share photos. This allows you to browse shared albums, and download thumbnail and hires versions of shared photos.

It currently doesn't support password-protected shares.

new

The constructor:

my $client = Net::DPAP::Client->new; $client->hostname($hostname);

connect

Connect to the hostname:

my @albums = $client->connect;

Net::DPAP::Client::Album, Net::DPAP::Client::Image.

Leon Brocard <[email protected]>

Copyright (C) 2004-6, Leon Brocard

This module is free software; you can redistribute it or modify it under the same terms as Perl itself.