[Summary view] [Print] [Text view]

   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  /**
  19   * Index page of the AMF test client
  20   *
  21   * @package    webservice_amf
  22   * @copyright  2009 Jamie Pratt
  23   * @license    http://www.gnu.org/copyleft/gpl.html GNU GPL v3 or later
  24   */
  25  
  26  require "../../../config.php";
  27  require_once($CFG->libdir . '/adminlib.php');
  28  
  29  admin_externalpage_setup('externalservice');
  30  
  31  //page nav bar
  32  $PAGE->set_url('/webservice/amf/testclient/index.php');
  33  $node = $PAGE->settingsnav->find('testclient', navigation_node::TYPE_SETTING);
  34  if ($node) {
  35      $node->make_active();
  36  }
  37  $PAGE->navbar->add(get_string('amftestclient', 'webservice'));
  38  
  39  $PAGE->set_title('Test Client');
  40  $PAGE->set_heading('Test Client');
  41  echo $OUTPUT->header();
  42  
  43  $url = $CFG->wwwroot.'/webservice/amf/testclient/AMFTester.swf';
  44  $output = <<<OET
  45  <div id="moodletestclient">
  46  <object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" width="100%" height="1000">
  47  <param name="movie" value="$url" />
  48  <param name="base" value="." />
  49  <param name="allowscriptaccess" value="sameDomain" />
  50  <param name="FlashVars" value="rooturl=$CFG->wwwroot" />
  51  <!--[if !IE]>-->
  52  <object type="application/x-shockwave-flash" data="$url" width="100%" height="1000">
  53    <param name="base" value="." />
  54    <param name="allowscriptaccess" value="sameDomain" />
  55    <param name="FlashVars" value="rooturl=$CFG->wwwroot" />
  56  <!--<![endif]-->
  57  <p>You need to install Flash 9.0</p>
  58  <!--[if !IE]>-->
  59  </object>
  60  <!--<![endif]-->
  61  </object>
  62  </span>
  63  OET;
  64  
  65  echo $output;
  66  
  67  echo $OUTPUT->footer();