ILIAS  release_5-0 Revision 5.0.0-1144-gc4397b1f870
class.ilSessionStatisticsGUI.php
Go to the documentation of this file.
1<?php
2
3/* Copyright (c) 1998-2010 ILIAS open source, Extended GPL, see docs/LICENSE */
4
5include_once "Services/Authentication/classes/class.ilSessionStatistics.php";
6
15class ilSessionStatisticsGUI
16{
17 const MODE_TODAY = 1;
18 const MODE_LAST_DAY = 2;
19 const MODE_LAST_WEEK = 3;
20 const MODE_LAST_MONTH = 4;
21 const MODE_DAY = 5;
22 const MODE_WEEK = 6;
23 const MODE_MONTH = 7;
24 const MODE_YEAR = 8;
25
26 const SCALE_DAY = 1;
27 const SCALE_WEEK = 2;
28 const SCALE_MONTH = 3;
29 const SCALE_YEAR = 4;
30 const SCALE_PERIODIC_WEEK = 5;
31
32 function executeCommand()
33 {
34 global $ilCtrl;
35
36 $this->setSubTabs();
37
38 switch($ilCtrl->getNextClass())
39 {
40 default:
41 $cmd = $ilCtrl->getCmd("current");
42 $this->$cmd();
43 }
44
45 return true;
46 }
47
48 protected function setSubTabs()
49 {
50 global $ilTabs, $ilCtrl, $lng;
51
52 $ilTabs->addSubTab("current", $lng->txt("trac_current_system_load"),
53 $ilCtrl->getLinkTarget($this, "current"));
54 $ilTabs->addSubTab("short", $lng->txt("trac_short_system_load"),
55 $ilCtrl->getLinkTarget($this, "short"));
56 $ilTabs->addSubTab("long", $lng->txt("trac_long_system_load"),
57 $ilCtrl->getLinkTarget($this, "long"));
58 $ilTabs->addSubTab("periodic", $lng->txt("trac_periodic_system_load"),
59 $ilCtrl->getLinkTarget($this, "periodic"));
60 }
61
62 protected function current($a_export = false)
63 {
64 global $tpl, $ilToolbar, $ilCtrl, $ilTabs, $lng;
65
66 $ilTabs->activateSubTab("current");
67
68 // current mode
69 if(!$_REQUEST["smd"])
70 {
71 $_REQUEST["smd"] = self::MODE_TODAY;
72 }
73 $mode = (int)$_REQUEST["smd"];
74
75 // current measure
76 if(!$_REQUEST["smm"])
77 {
78 $_REQUEST["smm"] = "avg";
79 }
80 $measure = (string)$_REQUEST["smm"];
81
82
83 switch($mode)
84 {
85 case self::MODE_TODAY:
86 $time_from = strtotime("today");
87 $time_to = strtotime("tomorrow")-1;
88 $scale = self::SCALE_DAY;
89 break;
90
91 case self::MODE_LAST_DAY:
92 $time_to = time();
93 $time_from = $time_to-60*60*24;
94 $scale = self::SCALE_DAY;
95 break;
96
97 case self::MODE_LAST_WEEK:
98 $time_to = time();
99 $time_from = $time_to-60*60*24*7;
100 $scale = self::SCALE_WEEK;
101 break;
102
103 case self::MODE_LAST_MONTH:
104 $time_to = time();
105 $time_from = $time_to-60*60*24*30;
106 $scale = self::SCALE_MONTH;
107 break;
108 }
109
110 $mode_options = array(
111 self::MODE_TODAY => $lng->txt("trac_session_statistics_mode_today"),
112 self::MODE_LAST_DAY => $lng->txt("trac_session_statistics_mode_last_day"),
113 self::MODE_LAST_WEEK => $lng->txt("trac_session_statistics_mode_last_week"),
114 self::MODE_LAST_MONTH => $lng->txt("trac_session_statistics_mode_last_month"));
115
116 $title = $lng->txt("trac_current_system_load")." - ".$mode_options[$mode];
117 $data = $this->buildData($time_from, $time_to, $title);
118
119 if(!$a_export)
120 {
121 // toolbar
122 include_once "Services/Form/classes/class.ilPropertyFormGUI.php";
123 $ilToolbar->setFormAction($ilCtrl->getFormAction($this, "current"));
124
125 $mode_selector = new ilSelectInputGUI("&nbsp;".$lng->txt("trac_scale"), "smd");
126 $mode_selector->setOptions($mode_options);
127 $mode_selector->setValue($mode);
128 $ilToolbar->addInputItem($mode_selector, true);
129
130 $measure_options = array(
131 "avg" => $lng->txt("trac_session_active_avg"),
132 "min" => $lng->txt("trac_session_active_min"),
133 "max" => $lng->txt("trac_session_active_max"));
134
135 $measure_selector = new ilSelectInputGUI("&nbsp;".$lng->txt("trac_measure"), "smm");
136 $measure_selector->setOptions($measure_options);
137 $measure_selector->setValue($measure);
138 $ilToolbar->addInputItem($measure_selector, true);
139
140 $ilToolbar->addFormButton($lng->txt("ok"), "current");
141
142 if(sizeof($data["active"]))
143 {
144 $ilToolbar->addSeparator();
145 $ilToolbar->addFormButton($lng->txt("export"), "currentExport");
146 }
147
148 $tpl->setContent($this->render($data, $scale, $measure));
149
150 $tpl->setLeftContent($this->renderCurrentBasics());
151 }
152 else
153 {
154 $this->exportCSV($data, $scale);
155 }
156 }
157
158 protected function currentExport()
159 {
160 $this->current(true);
161 }
162
163 protected function short($a_export = false)
164 {
165 global $tpl, $ilToolbar, $ilCtrl, $ilTabs, $lng;
166
167 $ilTabs->activateSubTab("short");
168
169 // current start
170 if(!$_REQUEST["sst"])
171 {
172 $_REQUEST["sst"] = date("Ymd");
173 }
174 else
175 {
176 $org = $_REQUEST["sst"]["date"];
177 $_REQUEST["sst"] = $org["y"].
178 str_pad($org["m"], 2, "0", STR_PAD_LEFT).
179 str_pad($org["d"], 2, "0", STR_PAD_LEFT);
180 }
181 $start = (int)$_REQUEST["sst"];
182
183 // current mode
184 if(!$_REQUEST["smd"])
185 {
186 $_REQUEST["smd"] = self::MODE_DAY;
187 }
188 $mode = (int)$_REQUEST["smd"];
189
190 // current measure
191 if(!$_REQUEST["smm"])
192 {
193 $_REQUEST["smm"] = "avg";
194 }
195 $measure = (string)$_REQUEST["smm"];
196
197
198 $time_to = mktime(23, 59, 59, substr($start, 4, 2), substr($start, 6, 2),
199 substr($start, 0, 4));
200 switch($mode)
201 {
202 case self::MODE_DAY:
203 $time_from = $time_to-60*60*24;
204 $scale = self::SCALE_DAY;
205 break;
206
207 case self::MODE_WEEK:
208 $time_from = $time_to-60*60*24*7;
209 $scale = self::SCALE_WEEK;
210 break;
211 }
212
213 $mode_options = array(
214 self::MODE_DAY => $lng->txt("trac_session_statistics_mode_day"),
215 self::MODE_WEEK => $lng->txt("trac_session_statistics_mode_week")
216 );
217
218 $title = $lng->txt("trac_short_system_load")." - ".$mode_options[$mode];
219 $data = $this->buildData($time_from, $time_to, $title);
220
221 if(!$a_export)
222 {
223 // toolbar
224 include_once "Services/Form/classes/class.ilPropertyFormGUI.php";
225 $ilToolbar->setFormAction($ilCtrl->getFormAction($this, "short"));
226
227 $start_selector = new ilDateTimeInputGUI($lng->txt("trac_end_at"), "sst");
228 $start_selector->setDate(new ilDate($time_to, IL_CAL_UNIX));
229 $ilToolbar->addInputItem($start_selector, true);
230
231 $mode_selector = new ilSelectInputGUI("&nbsp;".$lng->txt("trac_scale"), "smd");
232 $mode_selector->setOptions($mode_options);
233 $mode_selector->setValue($mode);
234 $ilToolbar->addInputItem($mode_selector, true);
235
236 $measure_options = array(
237 "avg" => $lng->txt("trac_session_active_avg"),
238 "min" => $lng->txt("trac_session_active_min"),
239 "max" => $lng->txt("trac_session_active_max"));
240
241 $measure_selector = new ilSelectInputGUI("&nbsp;".$lng->txt("trac_measure"), "smm");
242 $measure_selector->setOptions($measure_options);
243 $measure_selector->setValue($measure);
244 $ilToolbar->addInputItem($measure_selector, true);
245
246 $ilToolbar->addFormButton($lng->txt("ok"), "short");
247
248 if(sizeof($data["active"]))
249 {
250 $ilToolbar->addSeparator();
251 $ilToolbar->addFormButton($lng->txt("export"), "shortExport");
252 }
253
254 $tpl->setContent($this->render($data, $scale, $measure));
255 }
256 else
257 {
258 $this->exportCSV($data, $scale);
259 }
260 }
261
262 protected function shortExport()
263 {
264 $this->short(true);
265 }
266
267 protected function long($a_export = false)
268 {
269 global $tpl, $ilToolbar, $ilCtrl, $ilTabs, $lng;
270
271 $ilTabs->activateSubTab("long");
272
273 // current start
274 if(!$_REQUEST["sst"])
275 {
276 $_REQUEST["sst"] = date("Ymd");
277 }
278 else
279 {
280 $org = $_REQUEST["sst"]["date"];
281 $_REQUEST["sst"] = $org["y"].
282 str_pad($org["m"], 2, "0", STR_PAD_LEFT).
283 str_pad($org["d"], 2, "0", STR_PAD_LEFT);
284 }
285 $start = (int)$_REQUEST["sst"];
286
287 // current mode
288 if(!$_REQUEST["smd"])
289 {
290 $_REQUEST["smd"] = self::MODE_WEEK;
291 }
292 $mode = (int)$_REQUEST["smd"];
293
294
295 $time_to = mktime(23, 59, 59, substr($start, 4, 2), substr($start, 6, 2),
296 substr($start, 0, 4));
297 switch($mode)
298 {
299 case self::MODE_WEEK:
300 $time_from = $time_to-60*60*24*7;
301 $scale = self::SCALE_WEEK;
302 break;
303
304 case self::MODE_MONTH:
305 $time_from = $time_to-60*60*24*30;
306 $scale = self::SCALE_MONTH;
307 break;
308
309 case self::MODE_YEAR:
310 $time_from = $time_to-60*60*24*365;
311 $scale = self::SCALE_YEAR;
312 break;
313 }
314
315 $mode_options = array(
316 self::MODE_WEEK => $lng->txt("trac_session_statistics_mode_week"),
317 self::MODE_MONTH => $lng->txt("trac_session_statistics_mode_month"),
318 self::MODE_YEAR => $lng->txt("trac_session_statistics_mode_year")
319 );
320
321 $title = $lng->txt("trac_long_system_load")." - ".$mode_options[$mode];
322 $data = $this->buildData($time_from, $time_to, $title);
323
324 if(!$a_export)
325 {
326 // toolbar
327 include_once "Services/Form/classes/class.ilPropertyFormGUI.php";
328 $ilToolbar->setFormAction($ilCtrl->getFormAction($this, "long"));
329
330 $start_selector = new ilDateTimeInputGUI($lng->txt("trac_end_at"), "sst");
331 $start_selector->setDate(new ilDate($time_to, IL_CAL_UNIX));
332 $ilToolbar->addInputItem($start_selector, true);
333
334 $mode_selector = new ilSelectInputGUI("&nbsp;".$lng->txt("trac_scale"), "smd");
335 $mode_selector->setOptions($mode_options);
336 $mode_selector->setValue($mode);
337 $ilToolbar->addInputItem($mode_selector, true);
338
339 $ilToolbar->addFormButton($lng->txt("ok"), "long");
340
341 if(sizeof($data["active"]))
342 {
343 $ilToolbar->addSeparator();
344 $ilToolbar->addFormButton($lng->txt("export"), "longExport");
345 }
346
347 $tpl->setContent($this->render($data, $scale));
348 }
349 else
350 {
351 $this->exportCSV($data, $scale);
352 }
353 }
354
355 protected function longExport()
356 {
357 $this->long(true);
358 }
359
360 protected function periodic($a_export = false)
361 {
362 global $tpl, $ilToolbar, $ilCtrl, $ilTabs, $lng;
363
364 $ilTabs->activateSubTab("periodic");
365
366 // current start
367 if(!$_REQUEST["sst"])
368 {
369 $_REQUEST["sst"] = date("Y-m-d");
370 }
371 else
372 {
373 $org = $_REQUEST["sst"]["date"];
374 $_REQUEST["sst"] = $org["y"].
375 "-".str_pad($org["m"], 2, "0", STR_PAD_LEFT).
376 "-".str_pad($org["d"], 2, "0", STR_PAD_LEFT);
377 }
378 $start = $_REQUEST["sst"];
379
380 // current end
381 if(!$_REQUEST["sto"])
382 {
383 $_REQUEST["sto"] = date("Y-m-d", strtotime("-7 days"));
384 }
385 else
386 {
387 $org = $_REQUEST["sto"]["date"];
388 $_REQUEST["sto"] = $org["y"].
389 "-".str_pad($org["m"], 2, "0", STR_PAD_LEFT).
390 "-".str_pad($org["d"], 2, "0", STR_PAD_LEFT);
391 }
392 $end = $_REQUEST["sto"];
393
394
395 $time_to = mktime(23, 59, 59, substr($start, 5, 2), substr($start, 8, 2),
396 substr($start, 0, 4));
397 $time_from = mktime(0, 0, 1, substr($end, 5, 2), substr($end, 8, 2),
398 substr($end, 0, 4));
399
400 // mixed up dates?
401 if($time_to < $time_from)
402 {
403 $tmp = $time_to;
404 $time_to = $time_from;
405 $time_from = $tmp;
406 }
407
408 $title = $lng->txt("trac_periodic_system_load");
409 $data = $this->buildData($time_from, $time_to, $title);
410
411 if(!$a_export)
412 {
413 // toolbar
414 include_once "Services/Form/classes/class.ilPropertyFormGUI.php";
415 $ilToolbar->setFormAction($ilCtrl->getFormAction($this, "periodic"));
416
417 $end_selector = new ilDateTimeInputGUI($lng->txt("trac_begin_at"), "sto");
418 $end_selector->setDate(new ilDate($end, IL_CAL_DATE));
419 $ilToolbar->addInputItem($end_selector, true);
420
421 $start_selector = new ilDateTimeInputGUI($lng->txt("trac_end_at"), "sst");
422 $start_selector->setDate(new ilDate($start, IL_CAL_DATE));
423 $ilToolbar->addInputItem($start_selector, true);
424
425 $ilToolbar->addFormButton($lng->txt("ok"), "periodic");
426
427 if(sizeof($data["active"]))
428 {
429 $ilToolbar->addSeparator();
430 $ilToolbar->addFormButton($lng->txt("export"), "periodicExport");
431 }
432
433 $tpl->setContent($this->render($data, self::SCALE_PERIODIC_WEEK));
434 }
435 else
436 {
437 $this->exportCSV($data, self::SCALE_PERIODIC_WEEK);
438 }
439 }
440
441 protected function periodicExport()
442 {
443 $this->periodic(true);
444 }
445
446 protected function renderCurrentBasics()
447 {
448 global $ilSetting, $lng, $ilCtrl, $ilAccess;
449
450 // basic data - not time related
451
452 include_once "Services/Authentication/classes/class.ilSessionControl.php";
453 $active = (int)ilSessionControl::getExistingSessionCount(ilSessionControl::$session_types_controlled);
454
455 $control_active = ($ilSetting->get('session_handling_type', 0) == 1);
456 if($control_active)
457 {
458 $control_max_sessions = (int)$ilSetting->get('session_max_count', ilSessionControl::DEFAULT_MAX_COUNT);
459 $control_min_idle = (int)$ilSetting->get('session_min_idle', ilSessionControl::DEFAULT_MIN_IDLE);
460 $control_max_idle = (int)$ilSetting->get('session_max_idle', ilSessionControl::DEFAULT_MAX_IDLE);
461 $control_max_idle_first = (int)$ilSetting->get('session_max_idle_after_first_request', ilSessionControl::DEFAULT_MAX_IDLE_AFTER_FIRST_REQUEST);
462 }
463
464 $last_maxed_out = new ilDateTime(ilSessionStatistics::getLastMaxedOut(), IL_CAL_UNIX);
465 $last_aggr = new ilDateTime(ilSessionStatistics::getLastAggregation(), IL_CAL_UNIX);
466
467
468 // build left column
469
470 $left = new ilTemplate("tpl.session_statistics_left.html", true, true, "Services/Authentication");
471
472 $left->setVariable("CAPTION_CURRENT", $lng->txt("users_online"));
473 $left->setVariable("VALUE_CURRENT", $active);
474
475 $left->setVariable("CAPTION_LAST_AGGR", $lng->txt("trac_last_aggregation"));
476 $left->setVariable("VALUE_LAST_AGGR", ilDatePresentation::formatDate($last_aggr));
477
478 $left->setVariable("CAPTION_LAST_MAX", $lng->txt("trac_last_maxed_out_sessions"));
479 $left->setVariable("VALUE_LAST_MAX", ilDatePresentation::formatDate($last_maxed_out));
480
481 $left->setVariable("CAPTION_SESSION_CONTROL", $lng->txt("sess_load_dependent_session_handling"));
482 if(!$control_active)
483 {
484 $left->setVariable("VALUE_SESSION_CONTROL", $lng->txt("no"));
485 }
486 else
487 {
488 $left->setVariable("VALUE_SESSION_CONTROL", $lng->txt("yes"));
489
490 $left->setCurrentBlock("control_details");
491
492 $left->setVariable("CAPTION_SESSION_CONTROL_LIMIT", $lng->txt("session_max_count"));
493 $left->setVariable("VALUE_SESSION_CONTROL_LIMIT", $control_max_sessions);
494
495 $left->setVariable("CAPTION_SESSION_CONTROL_IDLE_MIN", $lng->txt("session_min_idle"));
496 $left->setVariable("VALUE_SESSION_CONTROL_IDLE_MIN", $control_min_idle);
497
498 $left->setVariable("CAPTION_SESSION_CONTROL_IDLE_MAX", $lng->txt("session_max_idle"));
499 $left->setVariable("VALUE_SESSION_CONTROL_IDLE_MAX", $control_max_idle);
500
501 $left->setVariable("CAPTION_SESSION_CONTROL_IDLE_FIRST", $lng->txt("session_max_idle_after_first_request"));
502 $left->setVariable("VALUE_SESSION_CONTROL_IDLE_FIRST", $control_max_idle_first);
503
504 $left->parseCurrentBlock();
505 }
506
507 // sync button
508 if($ilAccess->checkAccess("write", "", (int)$_REQUEST["ref_id"]))
509 {
510 $left->setVariable("URL_SYNC", $ilCtrl->getFormAction($this, "adminSync"));
511 $left->setVariable("CMD_SYNC", "adminSync");
512 $left->setVariable("TXT_SYNC", $lng->txt("trac_sync_session_stats"));
513 }
514
515 return $left->get();
516 }
517
518 protected function buildData($a_time_from, $a_time_to, $a_title)
519 {
520 global $lng;
521
522 // basic data - time related
523
524 $maxed_out_duration = round(ilSessionStatistics::getMaxedOutDuration($a_time_from, $a_time_to)/60);
525 $counters = ilSessionStatistics::getNumberOfSessionsByType($a_time_from, $a_time_to);
526 $opened = (int)$counters["opened"];
527 $closed_limit = (int)$counters["closed_limit"];
528 unset($counters["opened"]);
529 unset($counters["closed_limit"]);
530
531
532 // build center column
533
534 $data = array();
535
536 ilDatePresentation::setUseRelativeDates(false);
537 $data["title"] = $a_title." (".
538 ilDatePresentation::formatPeriod(new ilDateTime($a_time_from, IL_CAL_UNIX),
539 new ilDateTime($a_time_to, IL_CAL_UNIX)).")";
540
541 $data["maxed_out_time"] = array($lng->txt("trac_maxed_out_time"), $maxed_out_duration);
542 $data["maxed_out_counter"] = array($lng->txt("trac_maxed_out_counter"), $closed_limit);
543 $data["opened"] = array($lng->txt("trac_sessions_opened"), $opened);
544 $data["closed"] = array($lng->txt("trac_sessions_closed"), array_sum($counters));
545 foreach($counters as $type => $counter)
546 {
547 $data["closed_details"][] = array($lng->txt("trac_".$type), (int)$counter);
548 }
549
550 $data["active"] = ilSessionStatistics::getActiveSessions($a_time_from, $a_time_to);
551
552 return $data;
553 }
554
555 protected function render($a_data, $a_scale, $a_measure = null)
556 {
557 global $lng;
558
559 $center = new ilTemplate("tpl.session_statistics_center.html", true, true, "Services/Authentication");
560
561 foreach($a_data as $idx => $item)
562 {
563 switch($idx)
564 {
565 case "active":
566 case "title":
567 // nothing to do
568 break;
569
570 case "closed_details":
571 $center->setCurrentBlock("closed_details");
572 foreach($item as $detail)
573 {
574 $center->setVariable("CAPTION_CLOSED_DETAILS", $detail[0]);
575 $center->setVariable("VALUE_CLOSED_DETAILS", $detail[1]);
576 $center->parseCurrentBlock();
577 }
578 break;
579
580 default:
581 $tpl_var = strtoupper($idx);
582 $center->setVariable("CAPTION_".$tpl_var, $item[0]);
583 $center->setVariable("VALUE_".$tpl_var, $item[1]);
584 break;
585 }
586 }
587
588 if($a_data["active"])
589 {
590 $center->setVariable("CHART", $this->getChart($a_data["active"], $a_data["title"], $a_scale, $a_measure));
591 }
592 else
593 {
594 ilUtil::sendInfo($lng->txt("trac_session_statistics_no_data"));
595 }
596
597 return $center->get();
598 }
599
609 protected function getChart($a_data, $a_title, $a_scale = self::SCALE_DAY, $a_measure = null)
610 {
611 global $lng;
612
613 include_once "Services/Chart/classes/class.ilChart.php";
614 $chart = ilChart::getInstanceByType(ilChart::TYPE_GRID, "objstacc");
615 $chart->setsize(700, 500);
616 $chart->setYAxisToInteger(true);
617
618 $legend = new ilChartLegend();
619 $chart->setLegend($legend);
620
621 if(!$a_measure)
622 {
623 $a_measure = array("min", "avg", "max");
624 }
625 else if(!is_array($a_measure))
626 {
627 $a_measure = array($a_measure);
628 }
629
630 $colors_map = array("min" => "#00cc00",
631 "avg" => "#0000cc",
632 "max" => "#cc00cc");
633
634 $colors = $act_line = array();
635 foreach($a_measure as $measure)
636 {
637 $act_line[$measure] = $chart->getDataInstance(ilChartGrid::DATA_LINES);
638 $act_line[$measure]->setLineSteps(true);
639 $act_line[$measure]->setLabel($lng->txt("trac_session_active_".$measure));
640 $colors[] = $colors_map[$measure];
641 }
642
643 if($a_scale != self::SCALE_PERIODIC_WEEK)
644 {
645 $max_line = $chart->getDataInstance(ilChartGrid::DATA_LINES);
646 $max_line->setLabel($lng->txt("session_max_count"));
647 $colors[] = "#cc0000";
648 }
649
650 $chart->setColors($colors);
651
652 $chart_data = $this->adaptDataToScale($a_scale, $a_data, 700);
653 unset($a_data);
654
655 $scale = ceil(sizeof($chart_data)/5);
656 $labels = array();
657 foreach($chart_data as $idx => $item)
658 {
659 $date = $item["slot_begin"];
660
661 if($a_scale == self::SCALE_PERIODIC_WEEK || !($idx % ceil($scale)))
662 {
663 switch($a_scale)
664 {
665 case self::SCALE_DAY:
666 $labels[$date] = date("H:i", $date);
667 break;
668
669 case self::SCALE_WEEK:
670 $labels[$date] = date("d.m. H", $date)."h";
671 break;
672
673 case self::SCALE_MONTH:
674 $labels[$date] = date("d.m.", $date);
675 break;
676
677 case self::SCALE_YEAR:
678 $labels[$date] = date("Y-m", $date);
679 break;
680
681 case self::SCALE_PERIODIC_WEEK:
682 $day = substr($date, 0, 1);
683 $hour = substr($date, 1, 2);
684 $min = substr($date, 3, 2);
685
686 // build ascending scale from day values
687 $day_value = ($day-1)*60*60*24;
688 $date = $day_value+$hour*60*60+$min*60;
689
690 // 6-hour interval labels
691 if($hour != $old_hour && $hour && $hour%6 == 0)
692 {
693 $labels[$date] = $hour;
694 $old_hour = $hour;
695 }
696 // day label
697 if($day != $old_day)
698 {
699 $labels[$date] = ilCalendarUtil::_numericDayToString($day, false);
700 $old_day = $day;
701 }
702 break;
703 }
704 }
705
706 foreach($a_measure as $measure)
707 {
708 $value = (int)$item["active_".$measure];
709 $act_line[$measure]->addPoint($date, $value);
710 }
711
712 if($a_scale != self::SCALE_PERIODIC_WEEK)
713 {
714 $max_line->addPoint($date, (int)$item["max_sessions"]);
715 }
716 }
717
718 foreach($act_line as $line)
719 {
720 $chart->addData($line);
721 }
722 if($a_scale != self::SCALE_PERIODIC_WEEK)
723 {
724 $chart->addData($max_line);
725 }
726
727 $chart->setTicks($labels, null, true);
728
729 return $chart->getHTML();
730 }
731
732 protected function adaptDataToScale($a_scale, array $a_data)
733 {
734 // can we use original data?
735 switch($a_scale)
736 {
737 case self::SCALE_DAY:
738 // 96 values => ok
739 // fallthrough
740
741 case self::SCALE_WEEK:
742 // 672 values => ok
743 return $a_data;
744 }
745
746 $tmp = array();
747 foreach($a_data as $item)
748 {
749 $date_parts = getdate($item["slot_begin"]);
750
751 // aggregate slots for scale
752 switch($a_scale)
753 {
754 case self::SCALE_MONTH:
755 // aggregate to hours => 720 values
756 $slot = mktime($date_parts["hours"], 0, 0, $date_parts["mon"], $date_parts["mday"], $date_parts["year"]);
757 break;
758
759 case self::SCALE_YEAR:
760 // aggregate to days => 365 values
761 $slot = mktime(0, 0, 1, $date_parts["mon"], $date_parts["mday"], $date_parts["year"]);
762 break;
763
764 case self::SCALE_PERIODIC_WEEK:
765 // aggregate to weekdays => 672 values
766 $day = $date_parts["wday"];
767 if(!$day)
768 {
769 $day = 7;
770 }
771 $slot = $day.date("His", $item["slot_begin"]);
772 break;
773 }
774
775 // process minx/max, prepare avg
776 foreach($item as $id => $value)
777 {
778 switch(substr($id, -3))
779 {
780 case "min":
781 if(!$tmp[$slot][$id] || $value < $tmp[$slot][$id])
782 {
783 $tmp[$slot][$id] = $value;
784 }
785 break;
786
787 case "max":
788 if(!$tmp[$slot][$id] || $value > $tmp[$slot][$id])
789 {
790 $tmp[$slot][$id] = $value;
791 }
792 break;
793
794 case "avg":
795 $tmp[$slot][$id][] = $value;
796 break;
797 }
798 }
799 }
800
801 foreach($tmp as $slot => $attr)
802 {
803 $tmp[$slot]["active_avg"] = (int)round(array_sum($attr["active_avg"])/sizeof($attr["active_avg"]));
804 $tmp[$slot]["slot_begin"] = $slot;
805 }
806 ksort($tmp);
807 return array_values($tmp);
808 }
809
810 protected function adminSync()
811 {
812 global $ilCtrl, $lng;
813
814 // see ilSession::_writeData()
815 $now = time();
816 ilSession::_destroyExpiredSessions();
817 ilSessionStatistics::aggretateRaw($now);
818
819 ilUtil::sendSuccess($lng->txt("trac_sync_session_stats_success"), true);
820 $ilCtrl->redirect($this);
821 }
822
823 protected function exportCSV(array $a_data, $a_scale)
824 {
825 global $lng, $ilClientIniFile, $ilUser;
826
827 ilDatePresentation::setUseRelativeDates(false);
828 include_once './Services/Link/classes/class.ilLink.php';
829
830 include_once "./Services/Utilities/classes/class.ilCSVWriter.php";
831 $csv = new ilCSVWriter();
832 $csv->setSeparator(";");
833
834 $now = time();
835
836 // meta
837 $meta = array(
838 $lng->txt("trac_name_of_installation") => $ilClientIniFile->readVariable('client', 'name'),
839 $lng->txt("trac_report_date") =>
840 ilDatePresentation::formatDate(new ilDateTime($now, IL_CAL_UNIX), IL_CAL_DATETIME),
841 $lng->txt("trac_report_owner") => $ilUser->getFullName(),
842 );
843 foreach($a_data as $idx => $item)
844 {
845 switch($idx)
846 {
847 case "title":
848 $meta[$lng->txt("title")] = $item;
849 break;
850
851 case "active":
852 // nothing to do
853 break;
854
855 case "closed_details":
856 foreach($item as $detail)
857 {
858 $meta[$a_data["closed"][0]." - ".$detail[0]] = $detail[1];
859 }
860 break;
861
862 default:
863 $meta[$item[0]] = $item[1];
864 break;
865 }
866 }
867 foreach($meta as $caption => $value)
868 {
869 $csv->addColumn(strip_tags($caption));
870 $csv->addColumn(strip_tags($value));
871 $csv->addRow();
872 }
873 $csv->addRow();
874
875 // aggregate data
876 $aggr_data = $this->adaptDataToScale($a_scale, $a_data["active"], 700);
877 unset($a_data);
878
879 // header
880 $first = $aggr_data;
881 $first = array_keys(array_shift($first));
882 foreach ($first as $column)
883 {
884 // split weekday and time slot again
885 if($a_scale == self::SCALE_PERIODIC_WEEK && $column == "slot_begin")
886 {
887 $csv->addColumn("weekday");
888 $csv->addColumn("time");
889 }
890 else
891 {
892 $csv->addColumn(strip_tags($column));
893 }
894 }
895 $csv->addRow();
896
897 // data
898 foreach($aggr_data as $row)
899 {
900 foreach ($row as $column => $value)
901 {
902 if(is_array($value))
903 {
904 $value = implode(', ', $value);
905 }
906 switch($column)
907 {
908 case "slot_begin":
909 // split weekday and time slot again
910 if($a_scale == self::SCALE_PERIODIC_WEEK)
911 {
912 $csv->addColumn(ilCalendarUtil::_numericDayToString(substr($value, 0, 1)));
913 $value = substr($value, 1, 2).":".substr($value, 3, 2);
914 break;
915 }
916 // fallthrough
917
918 case "slot_end":
919 $value = date("d.m.Y H:i", $value);
920 break;
921 }
922 $csv->addColumn(strip_tags($value));
923 }
924 $csv->addRow();
925 }
926
927 // send
928 $filename .= "session_statistics_".date("Ymd", $now).".csv";
929 header("Content-type: text/comma-separated-values");
930 header("Content-Disposition: attachment; filename=\"".$filename."\"");
931 header("Expires: 0");
932 header("Cache-Control: must-revalidate, post-check=0,pre-check=0");
933 header("Pragma: public");
934 echo $csv->getCSVString();
935 exit();
936 }
937}
938
939?>
$tpl
global $tpl
Definition: ilias.php:8
$filename
$filename
Definition: buildRTE.php:89
IL_CAL_DATE
const IL_CAL_DATE
Definition: class.ilDateTime.php:10
IL_CAL_UNIX
const IL_CAL_UNIX
Definition: class.ilDateTime.php:11
IL_CAL_DATETIME
const IL_CAL_DATETIME
Definition: class.ilDateTime.php:9
ilCSVWriter
Helper class to generate CSV files.
Definition: class.ilCSVWriter.php:39
ilCalendarUtil\_numericDayToString
static _numericDayToString($a_day, $a_long=true)
get
Definition: class.ilCalendarUtil.php:84
ilChart\getInstanceByType
static getInstanceByType($a_type, $a_id)
Get type instance.
Definition: class.ilChart.php:48
ilChart\TYPE_GRID
const TYPE_GRID
Definition: class.ilChart.php:24
ilDatePresentation\formatPeriod
static formatPeriod(ilDateTime $start, ilDateTime $end)
Format a period of two date Shows: 14.
Definition: class.ilDatePresentation.php:182
ilDatePresentation\setUseRelativeDates
static setUseRelativeDates($a_status)
set use relative dates
Definition: class.ilDatePresentation.php:50
ilDatePresentation\formatDate
static formatDate(ilDateTime $date)
Format a date @access public.
Definition: class.ilDatePresentation.php:113
ilDateTimeInputGUI
This class represents a date/time property in a property form.
Definition: class.ilDateTimeInputGUI.php:13
ilDateTime
@classDescription Date and time handling
Definition: class.ilDateTime.php:33
ilDate
Class for single dates.
Definition: class.ilDate.php:37
ilSelectInputGUI
This class represents a selection list property in a property form.
Definition: class.ilSelectInputGUI.php:18
ilSessionControl\getExistingSessionCount
static getExistingSessionCount(array $a_types)
returns number of valid sessions relating to given session types
Definition: class.ilSessionControl.php:317
ilSessionControl\DEFAULT_MAX_COUNT
const DEFAULT_MAX_COUNT
default value for settings that have not been defined in setup or administration yet
Definition: class.ilSessionControl.php:23
ilSessionStatisticsGUI
Class ilSessionStatisticsGUI.
Definition: class.ilSessionStatisticsGUI.php:16
ilSessionStatisticsGUI\getChart
getChart($a_data, $a_title, $a_scale=self::SCALE_DAY, $a_measure=null)
Build chart for active sessions.
Definition: class.ilSessionStatisticsGUI.php:609
ilSessionStatisticsGUI\buildData
buildData($a_time_from, $a_time_to, $a_title)
Definition: class.ilSessionStatisticsGUI.php:518
ilSessionStatisticsGUI\render
render($a_data, $a_scale, $a_measure=null)
Definition: class.ilSessionStatisticsGUI.php:555
ilSessionStatisticsGUI\exportCSV
exportCSV(array $a_data, $a_scale)
Definition: class.ilSessionStatisticsGUI.php:823
ilSessionStatisticsGUI\adaptDataToScale
adaptDataToScale($a_scale, array $a_data)
Definition: class.ilSessionStatisticsGUI.php:732
ilSessionStatistics\getActiveSessions
static getActiveSessions($a_from, $a_to)
Get active sessions aggregated data.
Definition: class.ilSessionStatistics.php:506
ilSessionStatistics\getLastAggregation
static getLastAggregation()
Get timestamp of last aggregation.
Definition: class.ilSessionStatistics.php:530
ilSessionStatistics\getMaxedOutDuration
static getMaxedOutDuration($a_from, $a_to)
Get maxed out duration in given timeframe.
Definition: class.ilSessionStatistics.php:460
ilSessionStatistics\getLastMaxedOut
static getLastMaxedOut()
Get latest slot during which sessions were maxed out.
Definition: class.ilSessionStatistics.php:438
ilSessionStatistics\getNumberOfSessionsByType
static getNumberOfSessionsByType($a_from, $a_to)
Get session counters by type (opened, closed)
Definition: class.ilSessionStatistics.php:484
ilSession\_destroyExpiredSessions
static _destroyExpiredSessions()
Destroy expired sessions.
Definition: class.ilSession.php:228
ilTemplate
special template class to simplify handling of ITX/PEAR
Definition: class.ilTemplate.php:12
ilUtil\sendSuccess
static sendSuccess($a_info="", $a_keep=false)
Send Success Message to Screen.
Definition: class.ilUtil.php:4925
ilUtil\sendInfo
static sendInfo($a_info="", $a_keep=false)
Send Info Message to Screen.
Definition: class.ilUtil.php:4885
$ilCtrl
global $ilCtrl
Definition: ilias.php:18
exit
exit
Definition: login.php:54
$lng
global $lng
Definition: privfeed.php:40
$ilSetting
global $ilSetting
Definition: privfeed.php:40
$cmd
$cmd
Definition: sahs_server.php:35
$_REQUEST
if($_REQUEST['ilias_path']) define('ILIAS_HTTP_PATH' $_REQUEST['ilias_path']
Definition: index.php:7
$ilUser
global $ilUser
Definition: imgupload.php:15