---

stats.php

Go to the documentation of this file.

<?php
// $Header: /cvsroot/modphpcms/modphpcms/modules/stats.php,v 1.3 2004/05/18 10:07:02 fred87 Exp $

include 'includes/stats.inc.php';

function stats_install()
//{{{
{
        $info['name'] = 'stats';
        $info['title'] = 'Statistics';
        $info['description'] = 'Detailed statistics and counters.';
        $info['has_admin'] = 1;
        $info['enabled'] = 1;
        set_module_info($info);

        create_entry_table('stats_osHits');
        create_entry_table('stats_browserHits');
        create_entry_table('stats_config');
        add_field('pages', 'hits', 'BIGINT');

        $toclean = get_entry('config', 'cleaning_tables');
        ListAdd('stats_osHits', $toclean);
        ListAdd('stats_browserHits', $toclean);
        ListAdd('stats_config', $toclean);
        set_entry('config', 'cleaning_tables', $hooks);

        $hooks = get_entry('hooks', 'on_request');
        ListAdd('stats', $hooks);
        set_entry('hooks', 'on_request', $hooks);

        //TODO - this should be configurable from admin panel
        // by default, add a total hit count at top right
        $config = serialize(array(
                'mode'          => 'total',
                'style'         => 'text',
                'pretext'       => 'Total hits: ',
                'showpre'       => 'y'));
        set_entry('stats_config', 'tr', $config);
        $hooks = get_entry('hooks', 'tr_cell');
        ListAdd('stats', $hooks);
        set_entry('hooks', 'tr_cell', $hooks);

        module_installed();
}
//}}}
function stats_uninstall($preserve_data)
//{{{
{
        delete_module('stats');

        if (!$preserve_data)
        {
                drop_table('stats_osHits');
                drop_table('stats_browserHits');
                drop_table('stats_config');
                drop_field('pages', 'hits');
                $toclean = get_entry('config', 'cleaning_tables');
                ListDel('stats_osHits', $toclean);
                ListDel('stats_browserHits', $toclean);
                ListDel('stats_config', $toclean);
                set_entry('config', 'cleaning_tables');
        }

        $hooks = get_entry('hooks', 'on_request');
        ListDel('stats', $hooks);
        set_entry('hooks', 'on_request', $hooks);

        Istats_URIH('tl');
        Istats_URIH('tc');
        Istats_URIH('tr');
        Istats_URIH('ml');
        Istats_URIH('mr');
        Istats_URIH('bl');
        Istats_URIH('bc');
        Istats_URIH('br');
}
//}}}
function stats_on_request()
//{{{
{
        $info = get_module_info('stats');
        if (!$info['enabled'])
                return;

//{{{Browser detection
        $browser = 'Unknown';
        if (stristr($_SERVER['HTTP_USER_AGENT'], 'Konqueror'))
                $browser = 'Konqueror';
        if (stristr($_SERVER['HTTP_USER_AGENT'], 'Opera'))
                $browser = 'Opera';
        if (stristr($_SERVER['HTTP_USER_AGENT'], 'Galeon'))
                $browser = 'Galeon';
        if (stristr($_SERVER['HTTP_USER_AGENT'], 'Epiphany'))
                $browser = 'Epiphany';
        if (stristr($_SERVER['HTTP_USER_AGENT'], 'Lynx'))
                $browser = 'Lynx/Links';
        if (stristr($_SERVER['HTTP_USER_AGENT'], 'Links'))
                $browser = 'Lynx/Links';
        if (stristr($_SERVER['HTTP_USER_AGENT'], 'Phoenix'))
                $browser = 'Firefox';
        if (stristr($_SERVER['HTTP_USER_AGENT'], 'Firebird'))
                $browser = 'Firefox';
        if (stristr($_SERVER['HTTP_USER_AGENT'], 'Firefox'))
                $browser = 'Firefox';
        if (stristr($_SERVER['HTTP_USER_AGENT'], 'MSIE'))
        {
                if (Istats_reallyIE())
                        $browser = 'Internet Explorer';
                else
                        $browser = 'Fake MSIE';
        }
        if (stristr($_SERVER['HTTP_USER_AGENT'], 'Mozilla 1.')) // not just "Mozilla" - most browsers browsers = mozilla compat.
                $browser = 'Mozilla';
//}}}
//{{{OS detection
        $client_os = 'Unknown';
        if (stristr($_SERVER['HTTP_USER_AGENT'], 'Windows') AND $browser != 'Fake MSIE')
                $client_os = 'Windows';
        if (stristr($_SERVER['HTTP_USER_AGENT'], 'Linux'))
                $client_os = 'Linux';
        // FIXME: i need a packet log of Mac OSX.
//}}}
//{{{Which page
        if ($_REQUEST['pid'] == '')
                $pid = 0;
        else
                $pid = $_REQUEST['pid'];
//}}}
        $browserhits = get_entry('stats_browserHits', $browser);
        set_entry('stats_browserHits', $browser, ++$browserhits);
        $oshits = get_entry('stats_osHits', $client_os);
        set_entry('stats_osHits', $client_os, ++$oshits);
        $pagehits = get_field('pages', 'id', $pid, 'hits');
        set_field('pages', 'id', $pid, 'hits', ++$pagehits);
}
//}}}
function stats_tr_cell()
//{{{
{
        CallHooks('DoStats', 'tr');
}
//}}}
?>

---