XML::Atom::Lifeblog - Post lifeblog items using AtomAPI

XML-Atom-Lifeblog documentation Contained in the XML-Atom-Lifeblog distribution.

Index

Code Index:

NAME

Top

XML::Atom::Lifeblog - Post lifeblog items using AtomAPI

SYNOPSIS

Top

  use XML::Atom::Lifeblog;

  my $client = XML::Atom::Lifeblog->new();
  $client->username("Melody");
  $client->password("Nelson");

  my $entry = $client->postLifeblog($PostURI, $title, $body, "foobar.jpg");

  my $media = XML::Atom::Lifeblog::Media->new(content => $data);
  my $entry = $client->postLifeblog($PostURI, $title, $body, $media);

DESCRIPTION

Top

XML::Atom::Lifeblog is a wrapper for XML::Atom::Client that handles Nokia Lifeblog API to post images associated with text messages.

METHODS

Top

XML::Atom::Lifeblog is a subclass of XML::Atom::Client.

postLifeblog
  my $entry = $client->postLifeblog($PostURI, $title, $body, $media);

Creates a new Lifeblog entry and post it to a Lifeblog aware server using <standalone> element. $media is either a XML::Atom::Lifeblog::Media object, or a filepath of media file to be posted.

Returns XML::Atom::Entry object for the posted entry.

There're several ways to create Media object. At least you should specify how to fetch media data. filename, filehandle or content.

  # create Media object
  # Content-Type is auto-guessed and media title is auto-determined
  my $media = XML::Atom::Lifeblog::Media->new(filename => "foo.jpg");
  my $media = XML::Atom::Lifeblog::Media->new(filehandle => $fh);
  my $media = XML::Atom::Lifeblog::Media->new(content  => $data);

If you omit other parameters like type and title, they're automatically guessed and generated using MIME type and file magic. If you want to specify them explicitly, you can do this like:

  my $media = XML::Atom::Lifeblog::Media->new(
      filehandle => $fh, type => "video/3gpp", title => "My dog.3gp",
  );

  # Then post it with $title & $body to $PostURI
  my $entry = $client->postLifeblog($PostURI, $title, $body, $media);

AUTHOR

Top

Tatsuhiko Miyagawa <miyagawa@bulknews.net>

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

SEE ALSO

Top

XML::Atom::Client http://cognections.typepad.com/lifeblog/2004/12/lifeblog_postin.html

XML-Atom-Lifeblog documentation Contained in the XML-Atom-Lifeblog distribution. 
package XML::Atom::Lifeblog;

use strict;
use vars qw($VERSION);
$VERSION = '0.03';

use Encode;
use File::Basename;
use MIME::Types;
use XML::Atom::Client;
use XML::Atom::Entry;
use XML::Atom::Lifeblog::Media;
use base qw(XML::Atom::Client);

sub postLifeblog {
    my($self, $post_uri, $title, $body, $media) = @_;
    if (!UNIVERSAL::isa($media, "XML::Atom::Lifeblog::Media") && !ref($media)) {
        $media = XML::Atom::Lifeblog::Media->new(filename => $media);
    } elsif (ref($media) eq 'HASH') {
        $media = XML::Atom::Lifeblog::Media->new(%$media);
    }

    my $atom_media = $self->_create_media($media);
    my $posted = $self->_post_entry($post_uri, $atom_media)
	or return $self->error("POST ($media) failed: " . $self->errstr);
    my $atom_body = $self->_create_body($title, $body, $posted->id, $media->type);
    return $self->_post_entry($post_uri, $atom_body);
}

sub _guess_mime_type {
    my($self, $media) = @_;
    # MIME::Types doesn't support 3gpp
    if ($media =~ /\.3gpp?$/) {
	# XXX what about audio/3gpp?
	return "video/3gpp";
    } else {
	my $mime = MIME::Types->new->mimeTypeOf($media);
	return $mime ? $mime->type : "application/octet-stream";
    }
}

sub _create_media {
    my($self, $media) = @_;

    my $entry = XML::Atom::Entry->new();
    $entry->title($media->title);
    $entry->content($media->content);
    $entry->content->type($media->type);

    # add <standalone>1</standalone>
    my $tp = XML::Atom::Namespace->new(standalone => "http://sixapart.com/atom/typepad#");
    $entry->set($tp => "standalone" => 1);
    return $entry;
}

sub _create_body {
    my($self, $title, $body, $id, $mime_type) = @_;
    my $entry = XML::Atom::Entry->new();
    $entry->title($title);
    $entry->content($body);

    # add link rel="related" for the uploaded image
    my $link = XML::Atom::Link->new();
    $link->type($mime_type);
    $link->rel('related');
    $link->href($id);
    $entry->add_link($link);
    return $entry;
}

# XXX XML::Atom::Client's createEntry doesn't return response body
sub _post_entry {
    my $client = shift;
    my($uri, $entry) = @_;
    return $client->error("Must pass a PostURI before posting")
	unless $uri;

    my $req = HTTP::Request->new(POST => $uri);
    $req->content_type('application/x.atom+xml');

    my $xml = $entry->as_xml;
    Encode::_utf8_off($xml);
    $req->content_length(length $xml);
    $req->content($xml);

    my $res = $client->make_request($req);
    return $client->error("Error on POST $uri: " . $res->status_line)
	unless $res->code == 201;
    return XML::Atom::Entry->new(Stream => \$res->content);
}

1;
__END__