lib/Blog/Helper/Gravatar.pm

   1 package Blog::Helper::Gravatar;
   2
   3 use strict;
   4
   5 use Digest::MD5 ();
   6 use URI::Escape ();
   7
   8 use base 'Blog::Helper';
   9
  10 my $gravatar_base = "http://www.gravatar.com/avatar.php";
  11
  12 sub new {
  13     my $self = shift;
  14
  15     $self = $self->next::method( @_ );
  16
  17     my $conf = $self->{ c }->config->{ gravatar };
  18
  19     $self->{ base } = $conf->{ base } || $gravatar_base;
  20
  21     my $default = $conf->{ default };
  22     if ( $default !~ m/^http/x ) {
  23         $default =~ s/^\///;
  24         $default = $self->{ c }->req->base . $default;
  25     }
  26     $self->{ default } = $default;
  27     $self->{ default_escaped } = URI::Escape::uri_escape( $default );
  28
  29     $self->{ rating }  = $conf->{ rating } || 'G';
  30     $self->{ size }    = $conf->{ size } || 80;
  31     $self->{ border }  = $conf->{ border } || undef;
  32
  33     return $self;
  34 }
  35
  36 sub url {
  37     my ( $self, $email ) = @_;
  38
  39     return $self->{ default } unless $email;
  40
  41     my $args = {
  42         gravatar_id => Digest::MD5::md5_hex( $email ),
  43         default     => $self->{ default_escaped },
  44         rating      => $self->{ rating },
  45         size        => $self->{ size },
  46         border      => $self->{ border }
  47     };
  48
  49     my @pairs;
  50     for my $key ( keys %$args ) {
  51         next unless $args->{ $key };
  52         push @pairs, join( '=', $key, $args->{ $key } );
  53     }
  54
  55     return join( '?', $self->{ base }, join( '&', @pairs ) );
  56 }
  57
  58 =head1 AUTHOR
  59
  60 vti
  61
  62 =head1 LICENSE
  63
  64 This library is free software, you can redistribute it and/or modify
  65 it under the same terms as Perl itself.
  66
  67 =cut
  68
  69 1;