admin/thirdpartylibs.php

   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  * List of 3rd party libs used in moodle and all plugins.
  19  *
  20  * @package   admin
  21  * @copyright 2013 Petr Skoda {@link http://skodak.org}
  22  * @license   http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
  23  */
  24
  25 require_once('../config.php');
  26 require_once($CFG->libdir.'/adminlib.php');
  27 require_once($CFG->libdir.'/tablelib.php');
  28
  29 admin_externalpage_setup('thirdpartylibs');
  30
  31 echo $OUTPUT->header();
  32 echo $OUTPUT->heading(get_string('thirdpartylibs', 'core_admin'));
  33
  34 $files = array('core' => "$CFG->libdir/thirdpartylibs.xml");
  35
  36 $plugintypes = core_component::get_plugin_types();
  37 foreach ($plugintypes as $type => $ignored) {
  38     $plugins = core_component::get_plugin_list_with_file($type, 'thirdpartylibs.xml', false);
  39     foreach ($plugins as $plugin => $path) {
  40         $files[$type.'_'.$plugin] = $path;
  41     }
  42 }
  43
  44 $table = new html_table();
  45 $table->head = array(
  46     get_string('thirdpartylibrary', 'core_admin'), get_string('version'),
  47     get_string('thirdpartylibrarylocation', 'core_admin'), get_string('license'));
  48 $table->align = array('left', 'left', 'left', 'left');
  49 $table->id = 'thirdpartylibs';
  50 $table->attributes['class'] = 'admintable generaltable';
  51 $table->data  = array();
  52
  53 foreach ($files as $component => $xmlpath) {
  54     $xml = simplexml_load_file($xmlpath);
  55     foreach ($xml as $lib) {
  56         $base = realpath(dirname($xmlpath));
  57         $location = substr($base, strlen($CFG->dirroot)).'/'.$lib->location;
  58         if (is_dir($CFG->dirroot.$location)) {
  59             $location .= '/';
  60         }
  61         $version = '';
  62         if (!empty($lib->version)) {
  63             $version = $lib->version;
  64         }
  65         $license = $lib->license;
  66         if (!empty($lib->licenseversion)) {
  67             $license .= ' '.$lib->licenseversion;
  68         }
  69
  70         $table->data[] = new html_table_row(array($lib->name, $version, $location, $license));
  71     }
  72 }
  73
  74 echo html_writer::table($table);
  75
  76 echo $OUTPUT->footer();