Proyectos de Subversion Moodle

Rev

| Ultima modificación | Ver Log |

Rev Autor Línea Nro. Línea
1 efrain 1
<?php
2
// This file is part of Moodle - http://moodle.org/
3
//
4
// Moodle is free software: you can redistribute it and/or modify
5
// it under the terms of the GNU General Public License as published by
6
// the Free Software Foundation, either version 3 of the License, or
7
// (at your option) any later version.
8
//
9
// Moodle is distributed in the hope that it will be useful,
10
// but WITHOUT ANY WARRANTY; without even the implied warranty of
11
// MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
12
// GNU General Public License for more details.
13
//
14
// You should have received a copy of the GNU General Public License
15
// along with Moodle.  If not, see <http://www.gnu.org/licenses/>.
16
 
17
/**
18
 * Task fail delay check
19
 *
20
 * @package    tool_task
21
 * @copyright  2020 Brendan Heywood (brendan@catalyst-au.net)
22
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
23
 */
24
 
25
namespace tool_task\check;
26
 
27
defined('MOODLE_INTERNAL') || die();
28
 
29
use core\check\check;
30
use core\check\result;
31
 
32
/**
33
 * Task fail delay check
34
 *
35
 * @package    tool_task
36
 * @copyright  2020 Brendan Heywood (brendan@catalyst-au.net)
37
 * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
38
 */
39
class maxfaildelay extends check {
40
 
41
    /**
42
     * Links to the task log report
43
     *
44
     * @return \action_link|null
45
     */
46
    public function get_action_link(): ?\action_link {
47
        $url = new \moodle_url('/admin/tasklogs.php');
48
        return new \action_link($url, get_string('tasklogs', 'tool_task'));
49
    }
50
 
51
    /**
52
     * Return result
53
     * @return result
54
     */
55
    public function get_result(): result {
56
        global $CFG;
57
 
58
        $status = result::OK;
59
        $summary = get_string('tasknofailures', 'tool_task');
60
        $details = '';
61
        $failures = 0;
62
        $maxdelay = 0;
63
 
64
        $tasks = \core\task\manager::get_all_scheduled_tasks();
65
        foreach ($tasks as $task) {
66
            if ($task->get_disabled()) {
67
                continue;
68
            }
69
            $faildelay = $task->get_fail_delay();
70
            if ($faildelay > $maxdelay) {
71
                $maxdelay = $faildelay;
72
            }
73
            if ($faildelay > 0) {
74
                $failures++;
75
                $details .= get_string('faildelay', 'tool_task') . ': ' . format_time($faildelay);
76
                $details .= ' - ' . $task->get_name() . ' (' .get_class($task) . ")<br>";
77
            }
78
        }
79
 
80
        $tasks = \core\task\manager::get_failed_adhoc_tasks();
81
        foreach ($tasks as $task) {
82
            $faildelay = $task->get_fail_delay();
83
            if ($faildelay > $maxdelay) {
84
                $maxdelay = $faildelay;
85
            }
86
            if ($faildelay > 0) {
87
                $failures++;
88
                $details .= get_string('faildelay', 'tool_task') . ': ' . format_time($faildelay);
89
                $details .= ' - ' .get_class($task) . " ID = " . $task->get_id() ."<br>";
90
            }
91
        }
92
 
93
        if ($failures > 0) {
94
            // Intermittent failures are not yet a warning.
95
            $status = result::INFO;
96
            $summary = get_string('taskfailures', 'tool_task', $failures);
97
        }
98
        if ($maxdelay > 5 * MINSECS) {
99
            $status = result::WARNING;
100
        }
101
        if ($maxdelay > 4 * HOURSECS) {
102
            $status = result::ERROR;
103
        }
104
 
105
        return new result($status, $summary, $details);
106
    }
107
}