package MT::Plugin::JSONAccessRanking;<\/div>
use strict;<\/div>
use base qw(MT::Plugin);<\/div>
use MT;<\/div>
use MT::Util qw( start_end_day epoch2ts format_ts );<\/div>
use XML::Simple;<\/div>
use JSON;<\/div>
<\/div>
our $VERSION = \'1.0\';<\/div>
<\/div>
my $plugin; $plugin = new MT::Plugin::JSONAccessRanking({<\/div>
id => \'JSONAccessRanking\',<\/div>
key => \'jsonaccessranking\',<\/div>
name => \'JSONAccessRanking\',<\/div>
version => $VERSION,<\/div>
description => \'<MT_TRANS phrase="as_DESCRIPTION">\',<\/div>
doc_link => \'http://weblibrary.s224.xrea.com/mt4plugins/jsonaccessranking/\',<\/div>
author_name => \'<MT_TRANS phrase="as_AUTHOR_NAME">\',<\/div>
author_link => \'http://weblibrary.s224.xrea.com/\',<\/div>
l10n_class => \'JSONAccessRanking::L10N\',<\/div>
blog_config_template => \'analytics_config.tmpl\',<\/div>
settings => new MT::PluginSettings([<\/div>
[ \'analytics_username\', { Default => undef, Scope => \'blog\' } ],<\/div>
[ \'analytics_password\', { Default => undef, Scope => \'blog\' } ],<\/div>
[ \'analytics_profile_id\', { Default => undef, Scope => \'blog\' } ],<\/div>
[ \'analytics_maxresult\', { Default => undef, Scope => \'blog\' } ],<\/div>
]),<\/div>
registry => {<\/div>
tags => {<\/div>
function => {<\/div>
JSONAccessRanking => \\&_hdlr_analyticjson,<\/div>
},<\/div>
},<\/div>
},<\/div>
});<\/div>
MT->add_plugin($plugin);<\/div>
<\/div>
sub doLog {<\/div>
my ($msg) = @_; <\/div>
return unless defined($msg);<\/div>
<\/div>
use MT::Log;<\/div>
my $log = MT::Log->new;<\/div>
$log->message($msg) ;<\/div>
$log->save or die $log->errstr;<\/div>
}<\/div>
<\/div>
sub _hdlr_analyticjson {<\/div>
my ($ctx, $args) = @_;<\/div>
my $blog = $ctx->stash(\'blog\');<\/div>
my $blog_id = $ctx->stash(\'blog_id\');<\/div>
my $span = $args->{span};<\/div>
my $user = $plugin->get_config_value(\'analytics_username\', "blog:" . $blog_id);<\/div>
my $pass = $plugin->get_config_value(\'analytics_password\', "blog:" . $blog_id);<\/div>
my $profileid = $plugin->get_config_value(\'analytics_profile_id\', "blog:" . $blog_id);<\/div>
my $maxresult = $plugin->get_config_value(\'analytics_maxresult\', "blog:" . $blog_id);<\/div>
my $token = &get_token($user, $pass);<\/div>
<\/div>
my $now = time;<\/div>
my $today = start_end_day( epoch2ts( $blog, $now ) );<\/div>
$today = format_ts( \'%Y-%m-%d\', $today, $blog );<\/div>
my $week_ago = start_end_day( epoch2ts( $blog, $now - ( 60 * 60 * 24 * 7 ) ) );<\/div>
$week_ago = format_ts( \'%Y-%m-%d\', $week_ago, $blog );<\/div>
my $month_ago = start_end_day( epoch2ts( $blog, $now - ( 60 * 60 * 24 * 30 ) ) );<\/div>
$month_ago = format_ts( \'%Y-%m-%d\', $month_ago, $blog );<\/div>
my $data; <\/div>
if ( $span eq \'month\' ){<\/div>
$data = &get_data($token, $profileid, $month_ago, $today, $maxresult);<\/div>
} else { <\/div>
$data = &get_data($token, $profileid, $week_ago, $today, $maxresult);<\/div>
}<\/div>
my $parser = XML::Simple->new(Forcearray => 1);<\/div>
my $xml = $parser->XMLin($data);<\/div>
my $json = to_json($xml->{entry});<\/div>
return $json;<\/div>
}<\/div>
<\/div>
sub get_token{<\/div>
my ($user, $pass) = @_;<\/div>
my $ua = MT->new_ua({ agent => join("/", $plugin->name, $plugin->version) });<\/div>
my $token_url = \'https://www.google.com/accounts/ClientLogin\';<\/div>
my $tk_con = {<\/div>
accountType => \'GOOGLE\',<\/div>
Email => $user,<\/div>
Passwd => $pass,<\/div>
service => \'analytics\',<\/div>
source => \'companyName-applicationName-versionID\',<\/div>
};<\/div>
my $res = $ua->post($token_url, Content => $tk_con);<\/div>
if ($res->is_success) {<\/div>
if ( $res->content =~ /Auth\\=(.+)/i ){<\/div>
return $1;<\/div>
}<\/div>
} else {<\/div>
MT->log({<\/div>
message => $plugin->translate(\'Cannot get token, please confirm your settigs of Google Analytics login (as of login account or password).\'). $res->status_line,<\/div>
class => \'system\',<\/div>
level => MT::Log::ERROR(), <\/div>
});<\/div>
die $plugin->translate(\'Cannot get token, please confirm your settigs of Google Analytics login (as of login account or password).\'). $res->status_line;<\/div>
}<\/div>
}<\/div>
<\/div>
sub get_data{<\/div>
my ($token, $profileid, $start, $end, $maxresult) = @_;<\/div>
my $ua = MT->new_ua({ agent => join("/", $plugin->name, $plugin->version) });<\/div>
my $url = "https://www.google.com/analytics/feeds/data?"<\/div>
."ids=ga%3A$profileid&"<\/div>
."dimensions=ga%3ApagePath%2Cga%3ApageTitle&"<\/div>
."metrics=ga%3AuniquePageviews&"<\/div>
."sort=-ga%3AuniquePageviews&"<\/div>
."start-date=$start&"<\/div>
."end-date=$end&"<\/div>
."max-results=$maxresult";<\/div>
my @headers = (Authorization => "GoogleLogin Auth=$token");<\/div>
my $res = $ua->get($url, @headers);<\/div>
if ($res->is_success) {<\/div>
return $res->content;<\/div>
} else {<\/div>
MT->log({<\/div>
message => $plugin->translate(\'Cannot get contents, please confirm your settigs of Google Analytics login (as of profileID).\'). $res->status_line,<\/div>
class => \'system\',<\/div>
level => MT::Log::ERROR(),<\/div>
});<\/div>
die $plugin->translate(\'Cannot get contents, please confirm your settigs of Google Analytics login (as of profileID).\'). $res->status_line;<\/div>
}<\/div>
}<\/div>
<\/div>
1;<\/div>
<\/div>
<\/div><\/pre><\/div>\n \n <\/div>\n\n