<?php
/* -*- tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
# ***** BEGIN LICENSE BLOCK *****
# This file is part of Plume Framework, a simple PHP Application Framework.
# Copyright (C) 2001-2010 Loic d'Anterroches and contributors.
#
# Plume Framework is free software; you can redistribute it and/or modify
# it under the terms of the GNU Lesser General Public License as published by
# the Free Software Foundation; either version 2.1 of the License, or
# (at your option) any later version.
#
# Plume Framework is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU Lesser General Public License for more details.
#
# You should have received a copy of the GNU Lesser General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
#
# ***** END LICENSE BLOCK ***** */
/**
* Funnel statistics.
*
* Funnels are easy to track but not that easy to generate statistics
* out of them.
*
* Stats are compiled "by GMT day", so you can track your funnel per
* day, week or more. Stats are put in cache in the "funnels" collection.
*
*/
class Pluf_AB_Funnel
{
/**
* Returns the list of funnels.
*
* @return array Funnels
*/
public static function getFunnels()
{
$db = Pluf_AB::getDb();
foreach (array('f', 't') as $k) {
// Once created, it will return immediately in the future
// calls so the overhead is negligeable.
$db->funnellogs->ensureIndex(array($k => 1),
array('background' => true));
}
$nf = $db->command(array('distinct' => 'funnellogs', 'key' => 'f'));
if ((int) $nf['ok'] == 1) {
sort($nf['values']);
return $nf['values'];
}
return array();
}
/**
* Get all the properties for a given period.
*/
public static function getFunnelProps($funnel, $period='today')
{
$db = Pluf_AB::getDb();
switch ($period) {
case 'yesterday':
$q = array('t' => (int) gmdate('Ymd', time()-86400));
break;
case 'today':
$q = array('t' => (int) gmdate('Ymd'));
break;
case '7days':
$q = array('t' => array('$gte' => (int) gmdate('Ymd', time()-604800)));
break;
case 'all':
default:
$q = array();
break;
}
$q['f'] = $funnel;
$props = array();
foreach ($db->funnellogs->find($q) as $log) {
foreach ($log['p'] as $prop => $v) {
if (isset($props[$prop]) and !in_array($v, $props[$prop])) {
$props[$prop][] = $v;
} else {
$props[$prop] = array($v);
}
}
}
return $props;
}
/**
* Get stats for a given funnel.
*
* @param $funnel string Funnel
* @param $period string Time period 'yesterday', ('today'), '7days', 'all'
* @param $prop string Property to filter (null)
*/
public static function getStats($funnel, $period='today', $prop=null)
{
$db = Pluf_AB::getDb();
$steps = array();
for ($i=1;$i<=20;$i++) {
$steps[$i] = array();
}
switch ($period) {
case 'yesterday':
$q = array('t' => (int) gmdate('Ymd', time()-86400));
break;
case 'today':
$q = array('t' => (int) gmdate('Ymd'));
break;
case '7days':
$q = array('t' => array('$gte' => (int) gmdate('Ymd', time()-604800)));
break;
case 'all':
default:
$q = array();
break;
}
$q['f'] = $funnel;
if ($prop) {
$q['p.'.$prop] = array('$exists' => true);
}
$uids = array();
// With very big logs, we will need to find by schunks, this
// will be very easy to adapt.
foreach ($db->funnellogs->find($q) as $log) {
if (!isset($uids[$log['u'].'##'.$log['s']])) {
if ($prop and !isset($log['p'][$prop])) {
continue;
}
$uids[$log['u'].'##'.$log['s']] = true;
$step = $log['s'];
$steps[$step]['name'] = $log['sn'];
$steps[$step]['id'] = $log['s'];
if ($prop and !isset($steps[$step]['props'])) {
$steps[$step]['props'] = array();
}
$steps[$step]['total'] = (isset($steps[$step]['total'])) ?
$steps[$step]['total'] + 1 : 1;
if ($prop) {
$steps[$step]['props'][$log['p'][$prop]] = (isset($steps[$step]['props'][$log['p'][$prop]])) ?
$steps[$step]['props'][$log['p'][$prop]] + 1 : 1;
}
}
}
// Now, compile the stats for steps 2 to n
// First, we find the "max" for the reference number of
// visitors along this funnel. This is $t1 and $tprops[prop]
$t1 = 0;
foreach ($steps as $step) {
if (isset($step['total']) and $step['total'] > $t1) {
$t1 = $step['total'];
}
if ($prop and isset($step['props'])) {
foreach ($step['props'] as $v => $t) {
if (!isset($tprops[$v])) {
$tprops[$v] = $t;
continue;
}
if ($tprops[$v] < $t) {
$tprops[$v] = $t;
}
}
}
}
if ($t1 == 0) {
return array();
}
$prev_step = null;
for ($i=1;$i<=20;$i++) {
if ($prev_step == null) {
}
if ($steps[$i]) {
$tp = $prev_step['total'];
$tn = $steps[$i]['total'];
if ($tp) {
$steps[$i]['conv'] = sprintf('%01.2f%%', 100.0 - (float)($tp-$tn)/$tp*100.0);
} else {
$steps[$i]['conv'] = 'N/A';
}
if ($t1) {
$steps[$i]['conv1'] = sprintf('%01.2f%%', 100.0 - (float)($t1-$tn)/$t1*100.0);
} else {
$steps[$i]['conv1'] = 'N/A';
}
if ($prop) {
$steps[$i]['sprops'] = array();
$steps[$i]['sprops1'] = array();
foreach ($steps[$i]['props'] as $v => $t) {
if (!isset($tprops[$v])) {
$tprops[$v] = $t;
}
$pv = isset($prev_step['props'][$v]) ? $prev_step['props'][$v] : 0;
$steps[$i]['sprops'][$v] = array($t, $pv);
$steps[$i]['sprops1'][$v] = array($t, $tprops[$v]);
if ($pv) {
$steps[$i]['sprops'][$v][] = round(100*(float)$t/(float)$pv,2).'%';
} else {
$steps[$i]['sprops'][$v][] = 0;
}
$steps[$i]['sprops1'][$v][] = round(100*(float)$t/(float)$tprops[$v],2).'%';
}
}
$steps[$i]['bigtotal'] = $t1;
$prev_step = $steps[$i];
}
}
for ($i=20;$i>=1;$i--) {
if (!$steps[$i]) {
unset($steps[$i]); // We remove the inexisting steps
}
}
return $steps;
}
}
accountmanagementengine