forked from extern/egroupware
306 lines
10 KiB
PHP
306 lines
10 KiB
PHP
<?php
|
|
/**
|
|
* EGgroupware admin - submit EGroupware usage statistic
|
|
*
|
|
* @link http://www.egroupware.org
|
|
* @author Ralf Becker <RalfBecker-AT-outdoor-training.de>
|
|
* @package admin
|
|
* @copyright (c) 2009 by Ralf Becker <RalfBecker-AT-outdoor-training.de>
|
|
* @license http://opensource.org/licenses/gpl-license.php GPL - GNU General Public License
|
|
* @version $Id$
|
|
*/
|
|
|
|
/**
|
|
* Submit statistical data to egroupware.org
|
|
*/
|
|
class admin_statistics
|
|
{
|
|
const CONFIG_APP = 'admin';
|
|
const CONFIG_LAST_SUBMIT = 'last_statistics_submit';
|
|
const CONFIG_POSTPONE_SUBMIT = 'postpone_statistics_submit';
|
|
const CONFIG_SUBMIT_ID = 'statistics_submit_id';
|
|
const CONFIG_COUNTRY = 'country_submit';
|
|
const CONFIG_USAGE_TYPE = 'usage_type_submit';
|
|
const CONFIG_INSTALL_TYPE = 'install_type_submit';
|
|
|
|
const SUBMIT_URL = 'http://www.egroupware-server.org/usage-statistic';
|
|
const STATISTIC_URL = 'http://www.egroupware-server.org/usage-statistic';
|
|
|
|
const SUBMISION_RATE = 2592000; // 30 days
|
|
|
|
/**
|
|
* Which methods of this class can be called as menuation
|
|
*
|
|
* @var array
|
|
*/
|
|
public $public_functions = array(
|
|
'submit' => true,
|
|
);
|
|
|
|
/**
|
|
* Display and allow to submit statistical data
|
|
*
|
|
* @param array $content=null
|
|
*/
|
|
public function submit($content=null)
|
|
{
|
|
if (is_array($content))
|
|
{
|
|
$config = new config(self::CONFIG_APP);
|
|
if ($content['postpone'])
|
|
{
|
|
config::save_value(self::CONFIG_POSTPONE_SUBMIT,time()+$content['postpone'],self::CONFIG_APP);
|
|
$what = 'postpone';
|
|
}
|
|
elseif($content['submit'])
|
|
{
|
|
config::save_value(self::CONFIG_LAST_SUBMIT,time(),self::CONFIG_APP);
|
|
config::save_value(self::CONFIG_SUBMIT_ID,empty($content['submit_id']) ? '***none***' : $content['submit_id'],self::CONFIG_APP);
|
|
config::save_value(self::CONFIG_COUNTRY,empty($content['country']) ? '***multinational***' : $content['country'],self::CONFIG_APP);
|
|
config::save_value(self::CONFIG_USAGE_TYPE,$content['usage_type'],self::CONFIG_APP);
|
|
config::save_value(self::CONFIG_INSTALL_TYPE,$content['install_type'],self::CONFIG_APP);
|
|
config::save_value(self::CONFIG_POSTPONE_SUBMIT,null,self::CONFIG_APP); // remove evtl. postpone time
|
|
$what = 'submited';
|
|
}
|
|
egw::redirect_link('/admin/index.php','statistics='.($what ? $what : 'cancled'));
|
|
}
|
|
$sel_options['usage_type'] = array(
|
|
'commercial' => lang('Commercial: all sorts of companies'),
|
|
'governmental' => lang('Governmental: incl. state or municipal authorities or services'),
|
|
'educational' => lang('Educational: Universities, Schools, ...'),
|
|
'non-profit' => lang('Non profit: Clubs, associations, ...'),
|
|
'personal' => lang('Personal: eg. within a family'),
|
|
'other' => lang('Other'),
|
|
);
|
|
$sel_options['install_type'] = array(
|
|
'archive' => lang('Archive: zip or tar'),
|
|
'package' => lang('RPM or Debian package'),
|
|
'svn' => lang('Subversion checkout'),
|
|
'other' => lang('Other'),
|
|
);
|
|
$sel_options['postpone'] = array(
|
|
//10 => '10 secs',
|
|
3600 => lang('one hour'),
|
|
2*3600 => lang('two hours'),
|
|
24*3600 => lang('one day'),
|
|
2*24*3600 => lang('two days'),
|
|
7*24*3600 => lang('one week'),
|
|
14*24*3600 => lang('two weeks'),
|
|
30*24*3600 => lang('one month'),
|
|
60*24*3600 => lang('two months'),
|
|
);
|
|
$config = config::read(self::CONFIG_APP);
|
|
//_debug_array($config);
|
|
$content = array_merge(self::gather_data(),array(
|
|
'statistic_url' => html::a_href(self::STATISTIC_URL,self::STATISTIC_URL,'',' target="_blank"'),
|
|
'submit_host' => parse_url(self::SUBMIT_URL,PHP_URL_HOST),
|
|
'submit_url' => self::SUBMIT_URL,
|
|
'last_submitted' => $config[self::CONFIG_LAST_SUBMIT],
|
|
));
|
|
//_debug_array($content);
|
|
|
|
// show previous submit ID
|
|
if ($config['statistics_submit_id'])
|
|
{
|
|
$content['submit_id'] = $config['statistics_submit_id'] == '***none***' ? '' : $config['statistics_submit_id'];
|
|
}
|
|
// show previous country
|
|
if ($config[self::CONFIG_COUNTRY])
|
|
{
|
|
$content['country'] = $config[self::CONFIG_COUNTRY] == '***multinational***' ? '' : $config[self::CONFIG_COUNTRY];
|
|
}
|
|
// show previous usage_type
|
|
if ($config[self::CONFIG_USAGE_TYPE])
|
|
{
|
|
$content['usage_type'] = $config[self::CONFIG_USAGE_TYPE];
|
|
}
|
|
// check if we detected svn or rpm/deb packages --> readonly
|
|
if ($content['install_type'] && isset($sel_options['install_type'][$content['install_type']]))
|
|
{
|
|
$sel_options['install_type'] = array($content['install_type'] => $sel_options['install_type'][$content['install_type']]);
|
|
}
|
|
// else default to previous type
|
|
elseif($config[self::CONFIG_INSTALL_TYPE])
|
|
{
|
|
$content['install_type'] = $config[self::CONFIG_INSTALL_TYPE];
|
|
}
|
|
// check if we are due for a new submission
|
|
if (!isset($config[self::CONFIG_LAST_SUBMIT]) || $config[self::CONFIG_LAST_SUBMIT ] <= time()-self::SUBMISION_RATE)
|
|
{
|
|
// clear etemplate_exec_id and replace form.action, before submitting the form
|
|
$content['onclick'] = "
|
|
var action=this.form.action;
|
|
var exec_id=this.form['etemplate_exec_id'].value;
|
|
this.form.action='$content[submit_url]';
|
|
this.form['etemplate_exec_id'].value='';
|
|
this.form.target='_blank';
|
|
if (!confirm('".addslashes(lang('Submit displayed information?'))."')) return false;
|
|
this.form.submit();
|
|
this.form.action = action;
|
|
this.form['etemplate_exec_id'].value = exec_id;
|
|
this.form.target = '';
|
|
return true;";
|
|
}
|
|
else // we are not due --> tell it the user
|
|
{
|
|
$readonlys['submit'] = $readonlys['postpone'] = true;
|
|
$content['msg'] = lang('Your last submission was less then %1 days ago!',
|
|
ceil((time()-$config[self::CONFIG_LAST_SUBMIT])/24/3600));
|
|
}
|
|
$GLOBALS['egw_info']['flags']['app_header'] = lang('Submit statistic information');
|
|
$tmpl = new etemplate('admin.statistics');
|
|
$tmpl->exec('admin.admin_statistics.submit',$content,$sel_options,$readonlys,$preserv);
|
|
}
|
|
|
|
/**
|
|
* Gather statistical data to submit
|
|
*
|
|
* @return array key => value pairs
|
|
*/
|
|
protected static function gather_data()
|
|
{
|
|
// submit id is sha1 hash from install_id
|
|
$data['submit_id'] = sha1($GLOBALS['egw_info']['server']['install_id']);
|
|
|
|
$data['country'] = $GLOBALS['egw_info']['user']['preferences']['common']['country'];
|
|
|
|
// api version
|
|
$data['version'] = $GLOBALS['egw_info']['apps']['phpgwapi']['version'];
|
|
// append EPL version
|
|
if (isset($GLOBALS['egw_info']['apps']['stylite']))
|
|
{
|
|
$data['version'] .= ' '.$GLOBALS['egw_info']['apps']['stylite']['version'].'EPL';
|
|
}
|
|
// sessions in the last 30 days
|
|
$data['sessions'] = $GLOBALS['egw']->db->query('SELECT COUNT(*) FROM egw_access_log WHERE li > '.(time()-30*24*3600))->fetchColumn();
|
|
|
|
// total accounts from accounts table or ldap
|
|
$GLOBALS['egw']->accounts->search(array(
|
|
'type' => 'accounts',
|
|
'start' => 0,
|
|
));
|
|
$data['users'] = $GLOBALS['egw']->accounts->total;
|
|
|
|
$data['php'] = PHP_VERSION.': '.PHP_SAPI;
|
|
$data['os'] = PHP_OS;
|
|
if (file_exists($file = '/etc/SuSE-release') || file_exists($file = '/etc/redhat-release') || file_exists($file = '/etc/debian_version'))
|
|
{
|
|
$data['os'] .= ': '.str_replace(array("\n","\r"),'',implode(',',file($file)));
|
|
}
|
|
if (file_exists('.svn'))
|
|
{
|
|
$data['install_type'] = 'svn';
|
|
}
|
|
elseif(EGW_INCLUDE_ROOT == '/usr/share/egroupware' && PHP_OS == 'Linux' && is_link('/usr/share/egroupware/header.inc.php'))
|
|
{
|
|
$data['install_type'] = 'package';
|
|
}
|
|
foreach($GLOBALS['egw_info']['apps'] as $app => $app_data)
|
|
{
|
|
if (in_array($app,array(
|
|
'admin','phpgwapi','emailadmin','sambaadmin','developer_tools',
|
|
'home','preferences','etemplate','registration','manual','egw-pear',
|
|
)))
|
|
{
|
|
continue; // --> ignore to not submit too much
|
|
}
|
|
if (($users = self::gather_app_users($app))) // ignore apps noone is allowed to run
|
|
{
|
|
$data['apps'][$app] = $app.':'.round(100.0*$users/$data['users']).'%';
|
|
if (($entries = self::gather_app_entries($app)))
|
|
{
|
|
$data['apps'][$app] .= ':'.$entries;
|
|
}
|
|
}
|
|
}
|
|
ksort($data['apps']);
|
|
$data['apps'] = implode("\n",$data['apps']);
|
|
|
|
return $data;
|
|
}
|
|
|
|
/**
|
|
* Get percentage of users allowed to use an application
|
|
*
|
|
* @param string $app
|
|
* @return int number of users allowed to run application
|
|
*/
|
|
static function gather_app_users($app)
|
|
{
|
|
$users = array();
|
|
if (($access = $GLOBALS['egw']->acl->get_ids_for_location('run',1,$app)))
|
|
{
|
|
foreach($access as $uid)
|
|
{
|
|
if ($uid > 0)
|
|
{
|
|
$users[] = $uid;
|
|
}
|
|
elseif (($members = $GLOBALS['egw']->accounts->members($uid,true)))
|
|
{
|
|
$users = array_merge($users,$members);
|
|
}
|
|
}
|
|
$users = array_unique($users);
|
|
}
|
|
return count($users);
|
|
}
|
|
|
|
/**
|
|
* Get percentage of users allowed to use an application
|
|
*
|
|
* @param string $app
|
|
* @return int
|
|
*/
|
|
static function gather_app_entries($app)
|
|
{
|
|
// main table for each application
|
|
static $app2table = array(
|
|
'addressbook' => 'egw_addressbook',
|
|
'bookmarks' => 'egw_bookmarks',
|
|
'calendar' => 'egw_cal_dates',
|
|
'infolog' => 'egw_infolog',
|
|
'filemanager' => 'egw_sqlfs',
|
|
'gallery' => 'g2_Item',
|
|
'news_admin' => 'egw_news WHERE news_submittedby > 0', // exclude imported rss feeds
|
|
'polls' => 'egw_polls',
|
|
'projectmanager' => 'egw_pm_projects',
|
|
'phpbrain' => 'egw_kb_articles',
|
|
'resources' => 'egw_resources',
|
|
'sitemgr' => 'egw_sitemgr_pages',
|
|
'syncml' => 'egw_syncmlsummary',
|
|
'timesheet' => 'egw_timesheet',
|
|
'tracker' => 'egw_tracker',
|
|
'wiki' => 'egw_wiki_pages',
|
|
'mydms' => 'phpgw_mydms_Documents',
|
|
);
|
|
if (($table = $app2table[$app]))
|
|
{
|
|
$entries = (int)$GLOBALS['egw']->db->query('SELECT COUNT(*) FROM '.$table)->fetchColumn();
|
|
//echo "$app ($table): $entries<br />\n";
|
|
}
|
|
return $entries;
|
|
}
|
|
|
|
/**
|
|
* Check if next submission is due, in which case we call submit and NOT return to the admin hook
|
|
*
|
|
*/
|
|
public static function check()
|
|
{
|
|
if (isset($_GET['statistics']))
|
|
{
|
|
return;
|
|
}
|
|
$config = config::read(self::CONFIG_APP);
|
|
|
|
if (isset($config[self::CONFIG_POSTPONE_SUBMIT]) && $config[self::CONFIG_POSTPONE_SUBMIT] > time() ||
|
|
isset($config[self::CONFIG_LAST_SUBMIT ]) && $config[self::CONFIG_LAST_SUBMIT ] > time()-self::SUBMISION_RATE)
|
|
{
|
|
return;
|
|
}
|
|
//die('Due for new statistics submission: last_submit='.$config[self::CONFIG_LAST_SUBMIT ].', postpone='.$config[self::CONFIG_POSTPONE_SUBMIT].', '.function_backtrace());
|
|
egw::redirect_link('/index.php',array('menuaction'=>'admin.admin_statistics.submit'));
|
|
}
|
|
}
|