File Coverage

lib/Mojolicious/Plugin/ShareHelpers.pm

Criterion	Covered	Total	%
statement	108	110	98.1
branch	56	62	90.3
condition	8	12	66.6
subroutine	15	15	100.0
pod	1	5	20.0
total	188	204	92.1

package Mojolicious::Plugin::ShareHelpers;

use strict;
use warnings;

use Mojo::ByteStream 'b';
use Mojo::Base 'Mojolicious::Plugin';

our $VERSION = '0.6';

our $APP; # for app instance

has url => sub { +{
	'twitter'   => 'http://twitter.com/share',
	'facebook'  => 'http://facebook.com/sharer.php',
	'vkontakte' => 'http://vk.com/share.php',
	'mymailru'  => 'http://connect.mail.ru/share',
 	'google+'   => 'http://plus.google.com',
} };

sub register {
	my($self, $app) = @_;

	$APP = $app;

	$app->helper( share_url      => sub { $self->share_url     ( @_ ) } );
	$app->helper( share_button   => sub { $self->share_button  ( @_ ) } );
	$app->helper( share_meta     => sub { $self->share_meta    ( @_ ) } );
	$app->helper( is_share_agent => sub { $self->is_share_agent( @_ ) } );
}

sub share_url {
	my($self, $c) = (shift, shift);

	my $type = shift;
	return '' unless $self->_check_type( $type );

	my %args = @_;

	my $param;
	if ($type eq 'twitter') {
		$param->{$_} = $args{$_} for qw(url via text related count lang counturl);
	}
	elsif ($type eq 'facebook') {
		$param->{u} = $args{url };
		$param->{t} = $args{text};
	}
	elsif ($type eq 'vkontakte') {
		$param->{url} = $args{url};
	}
	elsif ($type eq 'mymailru') {
		$param->{share_url} = $args{url};
	}
	elsif ($type eq 'google+') {
		$APP->log->error("Google Plus doen't have share URL, use share_button");
		return '';
	}

	my @p = grep { $param->{$_} } sort keys %$param;
	return join '?', $self->url->{ $type },
		@p ? join '&', map { $_ . '=' . b( $param->{$_} )->url_escape } @p : ()
	;
}

sub share_button {
	my($self, $c) = (shift, shift);

	my $type = shift;
	return '' unless $self->_check_type( $type );

	my %args = @_;

	my $button;
	if ($type eq 'twitter') {
		if ($args{iframe}) {
			my $url    = $c->share_url( $type, @_ );
			my($param) = $url =~ /.*\?(.*)/;

			$button =
				qq(
</tr>

<tr>
<td  class="h" >
<a name="81">81</a>
</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td >

&nbsp;

</td>

<td class="s"> 				qq(src="http://platform.twitter.com/widgets/tweet_button.html?$param">)
			;
		}
		else {
			my $attr; push @$attr, qq(data-$_="$args{$_}")
				for grep { $args{$_} } qw(url via text related count lang counturl);
			my $param = join ' ', @$attr;

			$button =
				qq(Tweet) .
				qq()
			;
		}
	}
	elsif ($type eq 'facebook') {
		if ($args{fb}) {
			my $attr  = { type => $args{type}, href => $args{url}, class => $args{class} };
			my $param = join ' ', map { qq($_="$attr->{$_}") } grep { $attr->{$_} } keys %$attr;

			$button =
				qq()
			;
		}
		else {
			my $attr  = { type => $args{type}, share_url => $args{url} };
			my $param = join ' ', map { qq($_="$attr->{$_}") } grep { $attr->{$_} } keys %$attr;

			$button =
				qq($args{title}) .
				qq()
			;
		}
	}
	elsif ($type eq 'vkontakte') {
		my $url   = $args{url} ? qq({url: "$args{url}"}) : 'false';
		my $attr  = { type => $args{type}, text => $args{title} };
		my $param = join ', ', map { qq($_: "$attr->{$_}") } grep { $attr->{$_} } keys %$attr;

		$button =
			qq() .
			qq(document.write(VK.Share.button($url, {$param}));)
		;
	}
	elsif ($type eq 'mymailru') {
		use utf8;
		my $url = $c->share_url( $type, @_ );

		$args{type } ||= '';
		$args{title} ||= 'В Мой Мир';

		$button =
			qq() .
			qq($args{title})
		;
	}
	elsif ($type eq 'google+') {
		my $attr  = { size => $args{size}, href => $args{url}, count => $args{count}, callback => $args{callback} };
		my $param = join ' ', 'class="g-plusone"', map { qq(data-$_="$attr->{$_}") } grep { $attr->{$_} } keys %$attr;

		my $script = join ', ', map { qq($_: "$args{$_}") } grep { $args{$_} } qw(lang parsetags);

		$button =
			(
				$args{noscript}
					? ''
					: qq() . ( $script ? "{$script}" : '' ) . qq(\n)
			) .
			qq()
		;
	}

	return $button;
}

sub share_meta {
	my($self, $c) = (shift, shift);
	my %args = @_;

	$_ = b($_)->xml_escape->to_string for grep {$_} @args{qw(title description)};

	return join "\n",
		@_ ? qq() : '',

		$args{og} ? (
			$args{fb_app_id} ? qq() : (),
			qq(),
			qq(),
			map { $args{$_} ? qq() : () }
			qw(image title description)
		) : (),

		$args{title} ? qq() : (),
		$args{description} ? qq() : (),
		$args{image} ? qq() : (),
		$args{url} ? (
			qq(),
			qq(),
		) : (),
	;
}

sub is_share_agent {
	my($self, $c) = (shift, shift);

	my $ua    = $c->req->headers->user_agent;
	my $range = $c->req->headers->header('Range');
	my $enc   = $c->req->headers->header('Accept-Encoding');

	my $agent =
		$ua =~ /facebookexternalhit/ &&  $range &&  $enc eq 'gzip' ? 'facebook'  :
		$ua =~ /Mozilla/             &&  $range &&  $enc =~ /gzip/ ? 'vkontakte' : # XXX: add cp1251
		''
	;

	$APP->log->debug(qq(Found the share agent "$agent")) if $agent;

	return $agent;
}

sub _check_type {
	my $self  = shift;
	my $type  = shift || '';

	if (!$type) {
		$APP->log->debug('Missed the share type');
		return;
	}
	elsif (! exists $self->url->{ $type }) {
		my $types = join ', ', sort keys %{$self->url};
		$APP->log->debug(qq(Bad share type "$type", support types of share: $types));
		return;
	}
	else {
		return $type;
	}
}

1;

__END__