Proyectos de Subversion Moodle

<?php

// This file is part of Moodle - http://moodle.org/

//

// Moodle is free software: you can redistribute it and/or modify

// it under the terms of the GNU General Public License as published by

// the Free Software Foundation, either version 3 of the License, or

// (at your option) any later version.

//

// Moodle 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 General Public License for more details.

//

// You should have received a copy of the GNU General Public License

// along with Moodle.  If not, see <http://www.gnu.org/licenses/>.

/**

 * Profiling tool.

 *

 * @package    tool_profiling

 * @copyright  2010 onwards Eloy Lafuente (stronk7) {@link http://stronk7.com}

 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later

 */

// TODO: Move all the DB stuff to profiling_db_xxxx() function in xhprof_moodle.php

// TODO: it is wrong when core lib references ANY plugin lang strings, maybe more login could be moved here (skodak)

require_once(__DIR__ . '/../../../config.php');

require_once($CFG->libdir.'/adminlib.php');

require_once($CFG->libdir . '/xhprof/xhprof_moodle.php');

define('PROFILING_RUNSPERPAGE', 50);

// page parameters

$script   = optional_param('script', null, PARAM_PATH);

$runid    = optional_param('runid', null, PARAM_ALPHANUM);

$runid2   = optional_param('runid2', null, PARAM_ALPHANUM);

$listurl  = optional_param('listurl', null, PARAM_PATH);

$runreference= optional_param('runreference', 0, PARAM_INT);

$runcomment  = optional_param('runcomment', null, PARAM_TEXT);

$dbfields = 'runid, url, totalexecutiontime, totalcputime, ' .

            'totalcalls, totalmemory, runreference, runcomment, timecreated';

admin_externalpage_setup('toolprofiling');

// Always add listurl if available

if ($listurl) {

    $listurlnav = new moodle_url('/admin/tool/profiling/index.php', array('listurl' => $listurl));

    $PAGE->navbar->add($listurl, $listurlnav);

}

// Add a new nav item to make $listurl clickable for the Boost theme.

if (isset($script)) {

    $lastrunnav = get_string('lastrun', 'tool_profiling');

    $PAGE->navbar->add($lastrunnav);

}

// Header

echo $OUTPUT->header();

// We have requested the last available run for one script

if (isset($script)) {

    // Get the last available run for the given script

    $run = $DB->get_record_sql("SELECT $dbfields

                                 FROM {profiling}

                                WHERE url = ?

                                  AND id = (SELECT MAX(id)

                                              FROM {profiling}

                                             WHERE url = ?)",

                              array($script, $script), IGNORE_MISSING);

    // No run found for script, warn and exit

    if (!$run) {

        notice(get_string('cannotfindanyrunforurl', 'tool_profiling', $script), 'index.php');

    }

    // Check if there is any previous run marked as reference one

    $prevreferences = $DB->get_records_select('profiling',

                                              'url = ? AND runreference = 1 AND timecreated < ?',

                                              array($run->url, $run->timecreated),

                                              'timecreated DESC', 'runid, runcomment, timecreated', 0, 10);

    echo $OUTPUT->box_start('generalbox boxwidthwide boxaligncenter');

    $header = get_string('lastrunof', 'tool_profiling', $script);

    echo $OUTPUT->heading($header);

    $table = profiling_print_run($run, $prevreferences);

    echo $table;

    echo $OUTPUT->box_end();

// We have requested the diff between 2 runs

} else if (isset($runid) && isset($runid2)) {

    $run1 = $DB->get_record('profiling', array('runid'=>$runid), $dbfields, MUST_EXIST);

    $run2 = $DB->get_record('profiling', array('runid'=>$runid2), $dbfields, MUST_EXIST);

    if ($run1->url == $run2->url && $run1->runid != $run2->runid) {

        if ($run2->timecreated < $run1->timecreated) {

            $runtemp = $run1;

            $run1 = $run2;

            $run2 = $runtemp;

        }

        echo $OUTPUT->box_start('generalbox boxwidthwide boxaligncenter');

        $header = get_string('differencesbetween2runsof', 'tool_profiling', $run1->url);

        echo $OUTPUT->heading($header);

        $table = profiling_print_rundiff($run1, $run2);

        echo $table;

        echo $OUTPUT->box_end();

    }

// We have requested one run, invoke it

} else if (isset($runid)) {

    // Check if we are trying to update the runreference/runcomment for the run

    if (isset($runcomment) && confirm_sesskey()) {

        $id = $DB->get_field('profiling', 'id', array('runid' => $runid), MUST_EXIST);

        $rec = new stdClass();

        $rec->id = $id;

        $rec->runreference = (bool)$runreference;

        $rec->runcomment   = $runcomment;

        $DB->update_record('profiling', $rec);

    }

    // Get the requested runid

    $run = $DB->get_record('profiling', array('runid'=>$runid), $dbfields, IGNORE_MISSING);

    // No run found for runid, warn and exit

    if (!$run) {

        notice(get_string('cannotfindanyrunforrunid', 'tool_profiling', $runid), 'index.php');

    }

    // Check if there is any previous run marked as reference one

    $prevreferences = $DB->get_records_select('profiling',

                                              'url = ? AND runreference = 1 AND timecreated < ?',

                                              array($run->url, $run->timecreated),

                                              'timecreated DESC', 'runid, runcomment, timecreated', 0, 10);

    echo $OUTPUT->box_start('generalbox boxwidthwide boxaligncenter');

    $header = get_string('summaryof', 'tool_profiling', $run->url);

    echo $OUTPUT->heading($header);

    $table = profiling_print_run($run, $prevreferences);

    echo $table;

    echo $OUTPUT->box_end();

// Default: List one page of runs

} else {

    // The flexitable that will root listings

    $table = new xhprof_table_sql('profiling-list-table');

    $baseurl = $CFG->wwwroot . '/'.$CFG->admin.'/tool/profiling/index.php';

    // Check if we are listing all or some URL ones

    $sqlconditions = '';

    $sqlparams = array();

    if (!isset($listurl)) {

        $header = get_string('pluginname', 'tool_profiling');

        $sqlconditions = '1 = 1';

        $table->set_listurlmode(false);

    } else {

        $header =  get_string('profilingrunsfor', 'tool_profiling', $listurl);

        $sqlconditions = 'url = :url';

        $sqlparams['url'] = $listurl;

        $table->set_listurlmode(true);

        $baseurl .= '?listurl=' . urlencode($listurl);

    }

    echo $OUTPUT->heading($header);

    // Print the controller block with different options.

    echo profiling_list_controls($listurl);

    // TODO: Fix flexitable to validate tsort/thide/tshow/tifirs/tilast/page

    // TODO: Fix table_sql to allow it to work without WHERE clause

    // add silly condition (1 = 1) because of table_sql bug

    $table->set_sql($dbfields, '{profiling}', $sqlconditions, $sqlparams);

    $table->set_count_sql("SELECT COUNT(*) FROM {profiling} WHERE $sqlconditions", $sqlparams);

    $columns = array(

        'url', 'timecreated', 'totalexecutiontime', 'totalcputime',

        'totalcalls', 'totalmemory', 'runcomment');

    $headers = array(

        get_string('url'), get_string('date'), get_string('executiontime', 'tool_profiling'),

        get_string('cputime', 'tool_profiling'), get_string('calls', 'tool_profiling'),

        get_string('memory', 'tool_profiling'), get_string('comment', 'tool_profiling'));

    $table->define_columns($columns);

    $table->define_headers($headers);

    $table->sortable(true, 'timecreated', SORT_DESC);

    $table->define_baseurl($baseurl);

    $table->column_suppress('url');

    $table->out(PROFILING_RUNSPERPAGE, true);

}

// Footer.

echo $OUTPUT->footer();