package MT::Plugin::GoogleAnalyticsWidget;

use strict;
use warnings;

use base qw( MT::Plugin );
use MT;

use Data::Dumper;

use MT::Util qw( start_end_day epoch2ts ts2epoch format_ts );
use XML::Simple;

use lib 'lib';
use Analytics;

use vars qw( $VERSION $plugin );
$VERSION = '0.1';
$plugin = MT::Plugin::GoogleAnalyticsWidget->new ({
    name        => 'GoogleAnalyticsWidget',
    description => 'Creates a Google Analytics widget in the blog dashboard',
    version     => $VERSION,

    author_name => 'Apperceptive, LLC',
    author_link => 'http://www.apperceptive.com/',

    blog_config_template    => 'blog_config.tmpl',
    settings    => MT::PluginSettings->new ([
        [ 'analytics_username', { Default => undef, Scope => 'blog' } ],
        [ 'analytics_password', { Default => undef, Scope => 'blog' } ],
        [ 'analytics_profile_id', { Default => undef, Scope => 'blog' } ],
        [ 'analytics_VisitorsOverview_Visits', { Default => undef, Scope => 'blog' } ],
        [ 'analytics_VisitorsOverview_Visitors', { Default => undef, Scope => 'blog' } ],
        [ 'analytics_VisitorsOverview_Pageviews', { Default => undef, Scope => 'blog' } ],
        [ 'analytics_VisitorsOverview_AvgPageviews', { Default => undef, Scope => 'blog' } ],
        [ 'analytics_VisitorsOverview_TimeOnSite', { Default => undef, Scope => 'blog' } ],
        [ 'analytics_VisitorsOverview_BounceRate', { Default => undef, Scope => 'blog' } ],
        [ 'analytics_VisitorsOverview_NewVisitors', { Default => undef, Scope => 'blog' } ],
        [ 'analytics_TrafficSources_Direct', { Default => undef, Scope => 'blog' } ],
        [ 'analytics_TrafficSources_Referral', { Default => undef, Scope => 'blog' } ],
        [ 'analytics_TrafficSources_Search', { Default => undef, Scope => 'blog' } ],
        [ 'analytics_Content_Pageview', { Default => undef, Scope => 'blog' } ],
        [ 'analytics_Content_Unique', { Default => undef, Scope => 'blog' } ],
        [ 'analytics_Content_Bounce', { Default => undef, Scope => 'blog' } ],
    ]),

    init_app    => {
        'MT::App::CMS'  => \&init_cms,
    },
    
    callbacks   => {
        'MT::App::CMS::template_source.blog_stats'  => \&blog_stats_source,
    }
});
MT->add_plugin ($plugin);

sub instance { $plugin }

sub init_cms {
    my $app = shift;
    
    {
        local $SIG{__WARN__} = sub {};
        my $orig_method = \&MT::App::CMS::generate_dashboard_stats;
        *MT::App::CMS::generate_dashboard_stats = sub {
            if (!$orig_method->(@_)) {
                return;
            }
            generate_analytics_stats (@_);
        }
    }
}

sub generate_analytics_stats {
	my $app = shift;
	my ($param) = @_;

	return 1 if (!$app->blog || !$plugin->get_config_value ('analytics_profile_id', 'blog:' . $app->blog->id));

	return 1 if (! ( $plugin->get_config_value ('analytics_username', 'blog:' . $app->blog->id) && $plugin->get_config_value ('analytics_password', 'blog:' . $app->blog->id) ) );
	my $cache_time = 60 * 60 * 24; # cache for one day

	my $stat_url = $param->{comment_stat_url};
	$stat_url =~ s{comment\.xml$}{};

	my @items1 = getItems1($app);
	my %items2 = getItems2($app);

	my %analytics_file = ();
	my %analytics_path = ();
	foreach my $item (@items1) {
		$analytics_file{$item} = 'google_analytics_'.$item.'.xml';
		$param->{'analytics_'.$item.'_stat_url'} = $stat_url . $analytics_file{$item};
		$analytics_path{$item} = File::Spec->catfile ($param->{support_path}, $analytics_file{$item});
	}

	my @dl_reports = ();
	foreach my $report (keys(%items2)) {
		foreach my $item (@{$items2{$report}}) {
			my $analytics_time = ( stat($analytics_path{$item}) )[9] if -f $analytics_path{$item};
			if (!$analytics_time || ( time - $analytics_time > $cache_time )) {
				push(@dl_reports, $report);
			}
		}
	}
	my %tmp;
	@dl_reports = grep {!$tmp{$_}++} @dl_reports;

	foreach my $dl_report (@dl_reports) {
		my $now = time;
		my $today = start_end_day ( epoch2ts ($app->blog, $now ) );
		my $thirty_days_ago = start_end_day ( epoch2ts ($app->blog, $now - (60 * 60 * 24 * 120)) );

		my $a = Analytics->new;
		$a->login ($plugin->get_config_value ('analytics_username', 'blog:' . $app->blog->id), $plugin->get_config_value ('analytics_password', 'blog:' . $app->blog->id));
		my $xml_ref = $a->getReport ($plugin->get_config_value ('analytics_profile_id', 'blog:' . $app->blog->id), format_ts ('%Y%m%d', $thirty_days_ago, $app->blog), format_ts ('%Y%m%d', $today, $app->blog), $dl_report.'Report');

		foreach my $item (@{$items2{$dl_report}}) {
			my @data = @{$xml_ref->{Report}->{Sparkline}->{$item.'Sparkline'}->{PrimaryValue}};
			my $this_day = $thirty_days_ago;
			my %counts = ();
			foreach my $count (@data) {
				$counts{substr ($this_day, 0, 8) . 'T00:00:00'} = $count;
				$this_day = epoch2ts ( $app->blog, ts2epoch ($app->blog, $this_day) + (60 * 60 * 24));
			}

			unless ($app->create_dashboard_stats_file ($analytics_path{$item}, \%counts)) {
				delete $param->{$analytics_path{$item}};
			}
		}
	}

	1;
}

sub blog_stats_source {
	my ($cb, $app, $tmpl) = @_;
	return if (!$app->blog || !$plugin->get_config_value ('analytics_profile_id', 'blog:' . $app->blog->id));

	my @items = getItems1($app);
	my $new = '';

	# generate panel codes
	$new = '';
	foreach my $item (@items) {
		$new .= q{
        <div id="analytics-$item-panel" class="<mt:unless name="tab" eq="analytics-$item">hidden</mt:unless>" mt:tab-content="analytics-$item">
            <mt:if name="analytics_$item_stat_url">
            <script type="text/javascript">
            <!--
            var analyicsSlider = new FlashTag("<mt:var name="static_uri">flash/date_slider_open.swf?date_range="+date_range+"&file_name=<mt:var name="analytics_$item_stat_url">&box_color="+box_color+"&bar_color="+bar_color+"&line_color="+line_color+"&slider_variable=$item&slider_variable_singular=Visit&lang=<mt:var name="language_tag">&static_path="+escape(StaticURI+"flash"), 540, 122);
            analyicsSlider.setFlashvars("lcId=" + lcId);
            analyicsSlider.setFlashvars("flashSource=http://www.measuremap.com/developer/slider/&contentLicense=http://creativecommons.org/licenses/by/2.0/");
            analyicsSlider.write (document);
            // -->
            </script>

            <div class="stats-summary" id="stats-summary-analytics-$item">&nbsp;</div>
            </mt:if>

        </div>};
		$new =~ s/\$item/$item/g;
	}
	# append panel codes
	$$tmpl =~ s{(\Q<mt:if name="tag_cloud">
    <div id="tag-panel" class="<mt:unless name="tab" eq="tag">hidden</mt:unless>" mt:tab-content="tag">
    \E)}{$new
$1}m;

	# generate tab codes
	$new = '';
	foreach my $item (@items) {
#		$new .= q{<li id="analytics-$item-tab" class="tab <mt:if name="tab" eq="analytics-$item">selected-tab</mt:if>" mt:tab="analytics-$item" mt:command="select-tab" onclick="return blogStatsTabSelect('analytics-$item');"><a href="javascript:void(0)" ><span><__trans phrase="$item"></span></a></li>};
		$new .= q{<li id="analytics-$item-tab" class="tab <mt:if name="tab" eq="analytics-$item">selected-tab</mt:if>" mt:tab="analytics-$item" mt:command="select-tab" onclick="return blogStatsTabSelect('analytics-$item');"><a href="javascript:void(0)" ><span>$item</span></a></li>};
		$new =~ s/\$item/$item/g;
	}
	# append tab codes
	$$tmpl =~ s{(\Q<mt:if name="tag_cloud">
        <li id="tag-tab"\E)}{$new
$1}m;

	# generate summary codes
	$new = '';
	foreach my $item (@items) {
		$new .= q(
            } else if (activeStatsPanel == 'analytics-$item') {
                str = "You have " + total_count + " $item on " + clean_range + ".";
);
		$new =~ s/\$item/$item/g;
	}
	# append summary codes
	$$tmpl =~ s{(\Qstr = trans("You have <a href='[_3]'>[quant,_1,entry,entries] from [_2]</a>", total_count, clean_range, search_url);\E)}{$1
$new}m;

}

sub getItems1 {
	my $app = shift;
	my @items = ();
	push(@items, 'Visits')       if defined ($plugin->get_config_value('analytics_VisitorsOverview_Visits',       'blog:' . $app->blog->id));
	push(@items, 'Visitors')     if defined ($plugin->get_config_value('analytics_VisitorsOverview_Visitors',     'blog:' . $app->blog->id));
	push(@items, 'Pageviews')    if defined ($plugin->get_config_value('analytics_VisitorsOverview_Pageviews',    'blog:' . $app->blog->id));
	push(@items, 'AvgPageviews') if defined ($plugin->get_config_value('analytics_VisitorsOverview_AvgPageviews', 'blog:' . $app->blog->id));
	push(@items, 'TimeOnSite')   if defined ($plugin->get_config_value('analytics_VisitorsOverview_TimeOnSite',   'blog:' . $app->blog->id));
	push(@items, 'BounceRate')   if defined ($plugin->get_config_value('analytics_VisitorsOverview_BounceRate',   'blog:' . $app->blog->id));
	push(@items, 'NewVisitors')  if defined ($plugin->get_config_value('analytics_VisitorsOverview_NewVisitors',  'blog:' . $app->blog->id));
	push(@items, 'Direct')       if defined ($plugin->get_config_value('analytics_TrafficSources_Direct',         'blog:' . $app->blog->id));
	push(@items, 'Referral')     if defined ($plugin->get_config_value('analytics_TrafficSources_Referral',       'blog:' . $app->blog->id));
	push(@items, 'Search')       if defined ($plugin->get_config_value('analytics_TrafficSources_Search',         'blog:' . $app->blog->id));
	push(@items, 'Pageview')     if defined ($plugin->get_config_value('analytics_Content_Pageview',              'blog:' . $app->blog->id));
	push(@items, 'Unique')       if defined ($plugin->get_config_value('analytics_Content_Unique',                'blog:' . $app->blog->id));
	push(@items, 'Bounce')       if defined ($plugin->get_config_value('analytics_Content_Bounce',                'blog:' . $app->blog->id));
	return @items;
}

sub getItems2 {
	my $app = shift;
	my %items = ();
	@{$items{'VisitorsOverview'}} = ();
	push(@{$items{'VisitorsOverview'}}, 'Visits')       if defined ($plugin->get_config_value('analytics_VisitorsOverview_Visits',       'blog:' . $app->blog->id));
	push(@{$items{'VisitorsOverview'}}, 'Visitors')     if defined ($plugin->get_config_value('analytics_VisitorsOverview_Visitors',     'blog:' . $app->blog->id));
	push(@{$items{'VisitorsOverview'}}, 'Pageviews')    if defined ($plugin->get_config_value('analytics_VisitorsOverview_Pageviews',    'blog:' . $app->blog->id));
	push(@{$items{'VisitorsOverview'}}, 'AvgPageviews') if defined ($plugin->get_config_value('analytics_VisitorsOverview_AvgPageviews', 'blog:' . $app->blog->id));
	push(@{$items{'VisitorsOverview'}}, 'TimeOnSite')   if defined ($plugin->get_config_value('analytics_VisitorsOverview_TimeOnSite',   'blog:' . $app->blog->id));
	push(@{$items{'VisitorsOverview'}}, 'BounceRate')   if defined ($plugin->get_config_value('analytics_VisitorsOverview_BounceRate',   'blog:' . $app->blog->id));
	push(@{$items{'VisitorsOverview'}}, 'NewVisitors')  if defined ($plugin->get_config_value('analytics_VisitorsOverview_NewVisitors',  'blog:' . $app->blog->id));
	push(@{$items{'TrafficSources'}}, 'Direct')         if defined ($plugin->get_config_value('analytics_TrafficSources_Direct',         'blog:' . $app->blog->id));
	push(@{$items{'TrafficSources'}}, 'Referral')       if defined ($plugin->get_config_value('analytics_TrafficSources_Referral',       'blog:' . $app->blog->id));
	push(@{$items{'TrafficSources'}}, 'Search')         if defined ($plugin->get_config_value('analytics_TrafficSources_Search',         'blog:' . $app->blog->id));
	push(@{$items{'Content'}}, 'Pageview')              if defined ($plugin->get_config_value('analytics_Content_Pageview',              'blog:' . $app->blog->id));
	push(@{$items{'Content'}}, 'Unique')                if defined ($plugin->get_config_value('analytics_Content_Unique',                'blog:' . $app->blog->id));
	push(@{$items{'Content'}}, 'Bounce')                if defined ($plugin->get_config_value('analytics_Content_Bounce',                'blog:' . $app->blog->id));
	return %items;
}

1;