<?php
// $Id: ad_report.module,v 1.1.2.3.2.7.2.6 2009/02/16 23:12:29 jeremy Exp $

/**
 * @file
 * Provides comprehensive charts and reports about advertising statistics.
 *
 * Copyright (c) 2005-2009.
 *   Jeremy Andrews <jeremy@tag1consulting.com>.
 */

/**
 * Implementation of hook_menu().
 */
function ad_report_menu() {
  $items = array();

  $items['node/%node/report'] = array(
    'title' => 'Reports',
    'page callback' => 'ad_report_bargraph',
    'page arguments' => array(1),
    'type' => MENU_LOCAL_TASK,
    'access callback' => 'ad_report_access',
    'access arguments' => array(1),
  );
  $items['node/%node/report/monthly'] = array(
    'title' => 'Monthly Reports',
    'page callback' => 'ad_report_bargraph',
    'page arguments' => array(1,3),
    'type' => MENU_LOCAL_TASK,
    'access callback' => 'ad_report_access',
    'access arguments' => array(1),
  );
  $items['node/%node/report/weekly'] = array(
    'title' => 'Weekly Reports',
    'page callback' => 'ad_report_bargraph',
    'page arguments' => array(1,3),
    'type' => MENU_LOCAL_TASK,
    'access callback' => 'ad_report_access',
    'access arguments' => array(1),
  );
  $items['node/%node/report/daily'] = array(
    'title' => 'Daily Reports',
    'page callback' => 'ad_report_bargraph',
    'page arguments' => array(1,3),
    'type' => MENU_DEFAULT_LOCAL_TASK,
    'access callback' => 'ad_report_access',
    'access arguments' => array(1),
  ); 
  $items['node/%node/report/hourly'] = array(
    'title' => 'Hourly Reports',
    'page callback' => 'ad_report_bargraph',
    'page arguments' => array(1,3),
    'type' => MENU_LOCAL_TASK,
    'access callback' => 'ad_report_access',
    'access arguments' => array(1),
  );
  $items['ad_report/%node/bargraph'] = array(
    'title' => 'Bar graph',
    'page callback' => 'ad_report_generate_bargraph',
    'page arguments' => array(1),
    'type' => MENU_CALLBACK,
    'access callback' => 'ad_report_access',
    'access arguments' => array(1),
  );

  return $items;
}
/**
* Implementation of access callback.
* 
* @param mixed $node
*  Ad object.
*/
function ad_report_access($node){
    return ($node->type == 'ad') && ad_adaccess($node, 'access statistics');
}
/**
 * Page to display ad with bargraph.
 */
function ad_report_bargraph($node, $granularity = 'daily', $type = 'node') {
  switch ($granularity) {
    case 'hourly':
      drupal_set_title(t('Past twelve hours'));
      break;
    case 'daily':
      drupal_set_title(t('Past twelve days'));
      break;
    case 'weekly':
      drupal_set_title(t('Past twelve weeks'));
      break;
    case 'monthly':
      drupal_set_title(t('Past twelve months'));
      break;
  }

  switch ($type) {
    case 'node':
      if ($node->aid) {
        $output = '<img src="'. url("ad_report/$node->nid/bargraph/$granularity/node") .'" />';
        $ad_link = module_invoke('ad_' . $node->adtype, 'display_ad', $node); 
        $output .= theme('box', $node->title, $ad_link);
      }
      break;
    default:
      $output = '<img src="'. url("ad_report/$node->uid/bargraph/$granularity/$type") .'" />';
      break;
  }
  return $output;
}

/**
 * Page that utilizes gd to generate a bargraph.
 *
 * TODO: Make this more dynamic, allowing to move through time, etc.
 */
function ad_report_generate_bargraph($node, $granularity = 'daily', $type = 'node') {
    $id = $node->nid;
  header("Content-type: image/png");

  // Preperation.
  $views = array();
  $max_views = 0;
  $statistics = array();
  $clicks = array();
  $max_clicks = 0;
  $time = time();

  $increments = 12;
  $end_add = 0;
  switch ($granularity) {
    case 'hourly':
      $start_time = (60 * 60 * 11);
      // Increment hourly.
      $increment_time = (60 * 60);

      $format_start = 'YmdH';
      $format_end = 'YmdH';
      $format_end_append = '';
      $format_upper = 'M d';
      $format_lower = 'ga';
      $graph_height = 250;
      break;
    case 'daily':
    default:
      $start_time = (60 * 60 * 24 * 11);
      // Increment daily.
      $increment_time = (60 * 60 * 24);

      $format_start = 'Ymd00';
      $format_end = 'Ymd';
      $format_end_append = '24';
      $format_upper = 'D';
      $format_lower = 'M d';
      break;
    case 'weekly':
      $start_time = (60 * 60 * 24 * 7 * 11);
      // Increment weekly.
      $increment_time = (60 * 60 * 24 * 7);

      $format_start = 'Ymd00';
      $format_end = 'Ymd';
      $format_end_append = '24';
      $end_add = (60 * 60 * 24 * 6);
      //$end_add = 600;
      $format_upper = 'M d -';
      $format_lower = '';
      break;
    case 'monthly':
      $start_time = ((60 * 60 * 24 * 2) + (60 * 60 * 24 * 7 * 4)) * 11;
      // Increment monthly (every 30 days).
      $increment_time = (60 * 60 * 24 * 2) + (60 * 60 * 24 * 7 * 4);

      $format_start = 'Ymd00';
      $format_end = 'Ymd';
      $format_end_append = '24';
      $end_add = (60 * 60 * 24 * 29);
      $format_upper = 'M d -';
      $format_lower = '';
      break;
  }

  // Retrive data from database.
  for ($i = $time - $start_time; $i <= $time; $i = $i + $increment_time) {
    $day_start = date($format_start, $i);
    $day_end = date($format_end, $i + $end_add). $format_end_append;
    if ($type == 'node') {
      $view = (int)db_result(db_query("SELECT SUM(count) FROM {ad_statistics} WHERE aid = %d AND action = 'view' AND date >= %d AND date <= %d", $id, $day_start, $day_end));
      $click = (int)db_result(db_query("SELECT SUM(count) FROM {ad_statistics} WHERE aid = %d AND action = 'click' AND date >= %d AND date <= %d", $id, $day_start, $day_end));
    }
    else if ($type == 'user') {
      $view = (int)db_result(db_query("SELECT SUM(a.count) FROM {ad_statistics} a LEFT JOIN {node} n ON a.aid = n.nid WHERE uid = %d AND type = 'ad' AND (action = 'view' OR action = 'count') AND date >= %d AND date <= %d", $id, $day_start, $day_end));
      $click = (int)db_result(db_query("SELECT SUM(a.count) FROM {ad_statistics} a LEFT JOIN {node} n ON a.aid = n.nid WHERE uid = %d AND type = 'ad' AND action = 'click' AND date >= %d AND date <= %d", $id, $day_start, $day_end));
    }
    else { 
      $function = "ad_report_views_$type";
      if (function_exists("$function")) {
        $view = $function($id, $day_start, $day_end);
      }
      $function = "ad_report_clicks_$type";
      if (function_exists("$function")) {
        $click = $function($id, $day_start, $day_end);
      }
    }
    if ($view > $max_views) {
      $max_views = $view;
    }
    $statistics[] = array(
      'upper' => date($format_upper, $i),
      'lower' => date($format_lower, $i),
      'views' => $view,
      'clicks' => $click
    );
  }

  // Build graph image.
  $image_width = 50 * $increments + 1;
  $image_height = 300;
  $graph_width = 50 * $increments;
  $graph_height = 250;

  $graph = imagecreate($image_width, $image_height);

  // Configure colors to use in chart.
  $color = array(
    'white' => imagecolorallocate($graph, 255, 255, 255),
    'black' => imagecolorallocate($graph, 0, 0, 0),
    'grey' => imagecolorallocate($graph, 192, 192, 192),
    'blue' => imagecolorallocate($graph, 0, 0, 255),
    'orange' => imagecolorallocate($graph, 220, 210, 60),
  );

  // Draw the outside edges of the graph.
  imageline($graph, 0, 0, 0, $graph_height, $color['grey']);
  imageline($graph, 0, 0, $graph_width, 0, $color['grey']);
  imageline($graph, $graph_width - 1, 0, $graph_width - 1, $graph_height, $color['grey']);
  imageline($graph, 0, $graph_height - 1, $graph_width - 1, $graph_height - 1, $color['grey']);

  // Draw a grid.
  for ($i = 0; $i < ($increments + 1); $i++) {
    imageline($graph, $i*50, 0, $i*50, $graph_height, $color['grey']);
  }
  for ($i = 0; $i < 11; $i++) {
    imageline($graph, 0, $i*25, $graph_width, $i*25, $color['grey']);
  }

  $multiply = 0;
  if ($max_views > $graph_height) {
    if (!$multiply) {
      $multiply = .9;
    }
    while (($max_views * $multiply) >= $graph_height) {
      $multiply *= .9;
    }
  }
  else if ($max_views) {
    while (($max_views * ($multiply + 1)) <= $graph_height) {
      $multiply++;
    }
  }

  // Display impressions.
  for ($i = 0; $i < $increments ; $i++) {
    $view = $multiply ? $statistics[$i]['views'] * $multiply : $statistics[$i]['views'];
    if ($view) {
      imagefilledrectangle($graph, $i*50 + 4, $graph_height-$view, ($i+1)*50, $graph_height, $color['grey']);
      $string_height = $view < 10 ? $graph_height - 10 : $graph_height - $view;
      imagestring($graph, 2, $i*50 + 15, $string_height, $statistics[$i]['views'], $color['black']);
    }
    // Display timestamp
    imagestring($graph, 2, $i*50 + 2, 255, $statistics[$i]['upper'], $color['black']);
    imagestring($graph, 2, $i*50 + 3, 265, $statistics[$i]['lower'], $color['black']);
  }

  // Display clicks.
  for ($i = 0; $i < $increments; $i++) {
    $click = $multiply ? $statistics[$i]['clicks'] * $multiply : $statistics[$i]['clicks'];
    if ($click) {
      imagefilledrectangle($graph, $i*50 + 10, $graph_height-$click, ($i+1)*50, $graph_height, $color['blue']);
      $string_height = $click < 10 ? $graph_height - 10 : $graph_height - $click;
      imagestring($graph, 2, $i*50 + 20, $string_height, $statistics[$i]['clicks'], $color['white']);
    }
  }

  imagepng($graph);
  imagedestroy($graph);
  
}