MojoMojo::Formatter::Amazon - Include Amazon objects on your page.

MojoMojo documentation Contained in the MojoMojo distribution.

Index

Code Index:

module_loaded

Return true if the module is loaded.

NAME

Top

MojoMojo::Formatter::Amazon - Include Amazon objects on your page.

DESCRIPTION

Top

This is an url formatter. it takes urls containing amazon and /-/ or /ASIN/ and make a pretty formatted link to that object in the amazon web store.

It automatically handles books/movies/dvds and formats them as apropriate. You can also pass 'small' as a parameter after the url, and it will make a thumb link instead of a blurb.

METHODS

Top

format_content_order

Format order can be 1-99. The Amazon formatter runs on 5.

format_content

calls the formatter. Takes a ref to the content as well as the context object.

get <asin>

Connects to amazon and retrieves a Net::Amazon object based on the supplied ASIN number.

small <property>

Renders a small version of the formatter.

blurb <property>

renders a full width blurb of the product, suitable for reviews and such.

DVD <property>

Product information suitable for DVD movies.

Book <property>

Product information suitable for books.

Music <property>

Product information suitable for music CDs.

SEE ALSO

Top

MojoMojo, Module::Pluggable::Ordered, Net::Amazon.

AUTHORS

Top

Marcus Ramberg <mramberg@cpan.org

LICENSE

Top

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

MojoMojo documentation Contained in the MojoMojo distribution. 
package MojoMojo::Formatter::Amazon;

eval "use Net::Amazon";
my $eval_res=$@;


sub module_loaded { $eval_res ? 0 : 1 }


our $VERSION='0.01';


sub format_content_order { 5 }


sub format_content {
    my ($class,$content,$c)=@_;
    return unless $class->module_loaded;
    my @lines=split /\n/,$$content;
    my $pod;$$content="";
    foreach my $line (@lines) {
      if ($line =~ m/(\{\{?:http:\/\/(?:www\.){0,1}amazon\.com(?:\/.*){0,1}(?:\/dp\/|\/gp\/product\/))(.*?)(?:\/.*|$)\}\}/) {
          my $item=$class->get($1,$c->config->{amazon_id});
          unless (ref($item)) {
              $$content.=$line."\n";
              next;
          }
          if ($2) {
            next unless $class->can($2);
            $$content.=$class->$2($item);
          } else {
            $$content.=$class->blurb($item);
          }
      } else {
        $$content .=$line."\n";
      }
    }

}


sub get {
  my ($class,$id,$amazon_id,$secret_key)=@_;
  #FIXME: devel token should be set in formatter config.
  my $amazon=Net::Amazon->new(token=>$amazon_id,secret_key=>$secret_key);
  my $response=$amazon->search(asin=>$id);
  return "Unable to connect to amazon." unless $response->is_success;
  ($property)=$response->properties;
  return "No property object" unless $property;
  return $property;
}


sub small {
  my ($class,$property)=@_;
  return "!".$property->ImageUrlMedium.
  '!:http://www.amazon.com/exec/obidos/ASIN/'.$property->Asin."/feed-20\n";
}


sub blurb {
  my ($class,$property)=@_;
  my $method=ref $property;
  $method =~ s/.*:://;
  return "<div class=\"amazon\">!<".$property->ImageUrlSmall.
  '!:http://www.amazon.com/exec/obidos/ASIN/'.$property->Asin."/feed-20\n\n".
  "h1. ".$property->ProductName."\n\n".
  '"buy at amazon for '.$property->OurPrice.'":'.
  'http://www.amazon.com/exec/obidos/ASIN/'.$property->Asin."/feed-20\n\n".
  ($method && ($class->can($method) ? $class->$method($property) :"<br/>\n\n")).
  "</div>";
}


sub DVD {
  my ($class,$property) = @_;
  return " -- ??".join(',',$property->directors).'?? ('.$property->year .")\n\n";
}


sub Book {
  my ($class,$property) = @_;
  return " -- ??".join(',',$property->authors).'?? ('.$property->year .")\n\n";
}


sub Music {
  my ($class,$property) = @_;
  return " -- ??".join(',',$property->artists).'?? ('.$property->year .")\n\n";
}


1;