function cron__run_webalizer()
{
global $settings, $settings__root_to_server, $settings__root_directory, $settings__server_url, $lang;
// set webalizer vars
$web['log_file'] = $settings['http_log_file_location'];
// $web['output_dir']=$settings__root_to_server.$settings__root_directory."/usage";
$web['output_dir'] = "../usage";
$web['report_title'] = lang('usage_statistics_for');
$web['host_name'] = $settings__server_url;
$web['public_area_url'] = $settings__root_directory . "/public/";
$web['admin_area_url'] = $settings__root_directory . "/admin/";
$web['include_url'] = $settings__root_directory . "/";
// load webalizer template
$filename = $web['output_dir'] . "/webalizer.template";
$handle = fopen($filename, "rb");
$template = fread($handle, filesize($filename));
fclose($handle);
// process webalizer template with vars
$conffile = process_mail_template($template, $web);
// write webalizer.conf
$filename = $web['output_dir'] . "/webalizer.conf";
if (!($handle = fopen($filename, "w+b"))) {
print "Cannot open {$filename}\n";
exit;
}
if (!fwrite($handle, $conffile)) {
print "Cannot write to {$filename}\n";
exit;
}
fclose($handle);
// run webalizer
$exec = exec("cd " . $web['output_dir'] . "; webalizer 2>&1", $output);
$done = implode("\n", $output);
return $done;
}
function experimentmail__send_participant_statistics()
{
global $lang, $settings;
$now = time();
$from = $settings['support_mail'];
$headers = "From: " . $from . "\r\n";
// remember the current language for later reset
$old_lang = lang('lang');
// preload details with current language
$maillang = $old_lang;
$statistics = stats__get_textstats_for_email();
$subject = load_language_symbol('subject_pool_statistics', $maillang) . ' ' . ortime__format($now, 'hide_time:true');
// get experimenters who want to receive the statistics
$query = "SELECT *\n FROM " . table('admin') . "\n WHERE get_statistics_mail='y'\n AND disabled='n'\n ORDER BY language";
$result = or_query($query);
$i = 0;
$rec_count = pdo_num_rows($result);
while ($admin = pdo_fetch_assoc($result)) {
if ($admin['language'] != $maillang) {
$maillang = $admin['language'];
$lang = load_language($maillang);
$statistics = stats__get_textstats_for_email();
$subject = load_language_symbol('subject_pool_statistics', $maillang) . ' ' . ortime__format($now, 'hide_time:true', $maillang);
}
$mailtext = load_mail("admin_participant_statistics_mailtext", $maillang) . "\n\n" . $statistics . "\n" . experimentmail__get_admin_footer($maillang, $admin) . "\n";
$message = process_mail_template($mailtext, $admin);
$done = experimentmail__mail($admin['email'], $subject, $message, $headers);
if ($done) {
$i++;
}
}
// reset language
if ($maillang != $old_lang) {
$lang = load_language($old_lang);
}
return "statistics sent to " . $i . " out of " . $rec_count . " administrators\n";
}
echo '<TR><TD colspan=2><TABLE class="or_panel" style="background: ' . $color['list_shade2'] . '; width: 100%;">
<TR>
<TD>' . load_language_symbol('email_from', $inv_lang) . ':</TD>
<TD>' . $sendermail . '</TD>
</TR>
<TR>
<TD>' . load_language_symbol('email_to', $inv_lang) . ':</TD>
<TD>' . $experimentmail['email'] . '</TD>
</TR>
<TR bgcolor="' . $color['list_shade2'] . '">
<TD>' . load_language_symbol('subject', $inv_lang) . ':</TD>
<TD>' . stripslashes($subject) . '</TD>
</TR>
<TR>
<TD valign=top bgcolor="' . $color['content_background_color'] . '" colspan=2>
' . nl2br(process_mail_template(stripslashes($body), $experimentmail));
if (isset($experimentmail['include_footer']) && $experimentmail['include_footer'] == "y") {
echo nl2br(stripslashes(experimentmail__get_mail_footer(0)));
}
echo ' </TD>
</TR>
</TABLE></TD></TR>';
echo '<TR><TD colspan=2> </TD></TR>';
}
echo '<TR><TD colspan=2>
' . button_link('experiment_customize_reminder.php?experiment_id=' . urlencode($experiment_id), lang('back_to_mail_page'), 'backward', 'font-size: 8pt;') . '
</TD></TR>';
echo '</TABLE>';
echo '<BR><A HREF="experiment_show.php?experiment_id=' . $experiment_id . '">' . lang('mainpage_of_this_experiment') . '</A><BR><BR>
</CENTER>';
$subject = str_replace(strstr($experiment_mail[$inv_lang], "\n"), "", $experiment_mail[$inv_lang]);
$body = substr($experiment_mail[$inv_lang], strpos($experiment_mail[$inv_lang], "\n") + 1, strlen($experiment_mail[$inv_lang]));
if ($experiment['experiment_type'] == "laboratory") {
$sessionlist = experimentmail__get_session_list($experiment_id, $inv_lang);
} else {
$sessionlist = '';
}
$pform_fields = participant__load_participant_email_fields($inv_lang);
$experimentmail = experimentmail__preview_fake_participant_details($pform_fields);
$experimentmail = experimentmail__get_invitation_mail_details($experimentmail, $experiment, $sessionlist);
if ($experiment['sender_mail']) {
$sendermail = $experiment['sender_mail'];
} else {
$sendermail = $settings['support_mail'];
}
$email_text = process_mail_template(stripslashes($body), $experimentmail);
if (count($inv_langs) > 1) {
echo '<TR><TD colspan=2>
<TABLE width="100%" border=0 class="or_panel_title"><TR>
<TD style="background: ' . $color['panel_title_background'] . '; color: ' . $color['panel_title_textcolor'] . '">
' . $inv_lang . ':
</TD>
</TR></TABLE>
</TD></TR>';
}
echo '<TR><TD colspan=2><TABLE class="or_panel" style="background: ' . $color['list_shade2'] . '; width: 100%;">
<TR>
<TD>' . load_language_symbol('email_from', $inv_lang) . ':</TD>
<TD>' . $sendermail . '</TD>
</TR>
<TR>
